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DE SOLE, LIN FORM ATIQUE 
CEST DE LA MERDE ! 

Oyez, oyez, gentes dames et jolis damoiseaux, la lamentable histoire du marche merveilleux de la micro-informatique. 
Les tristes sires qu'il devait enrichir en restent tout pantois : 9a ne marche pas ! 



L'annGe 1985 sera probablemeni 
lannee de Iojs les echecs dans le 
domaine de la micro Rien ne va 
plus, voila bien- 
tot trois ans que 
tout le monde 
allHrul le bouiri 



• Les logiciels pedagogiques. 

- La decoration de cette petite table 
du salon sur laquelle voire Apple 
tera tres chic. 

- L'fttude de la meilleure lacon de 
placet les elements composanl 



PROGRAMME, MON FILS, 
TU NE SAIS PAS QUI 
TE PROGRAMMERA 

Programmer ? N'importe quoi ! A 
part les hobbyistes achames. per- 



qui 



n 1 1 r 



(aire acheter des 
micro ■ ordina- 
teurs en masse 
aux Irangais . 
"Mais qu' onl- 
ils done ces dia- 
bles de Irancais 
a attendre com- 
me ca", se la- 
mentent les 
constructeurs 
'Jamais ils vont 
venir chez moi 
me debarrasser 
des engins que 
j'ai en stock?", 
pleumichent les 
revendeurs. 
"Mais qu*est-r.n 

que j'ai fait au 
bon Dieu pour 
quits ne s'lnte- 
ressent pas a 



itips ! 



, ma- 



chines ". Talent 
les publicities 
Qu'est-ce que 
vous avez fait ? 
Ecoulez. comme 
d'habitude. on va 
nous crachons dans la soupe, que 
nous ne voyons que le cote negatif 
des choses Mais, meme en y met- 
tant de la bonne volume, nous ne 
trouvons rien de positil. Ce qu'il 
laut comprendre, e'est que le mar- 
che de la micro-inlormalique fami- 
liale n'existe pas. Je repete. 
N'EXISTE PAS. Un ordinateur ne 
sen a rien. a absolumDnt rien, il est 
beaucoup Imp cher et les fabricants 
sont nuls. 



POUR QUOI FOUTRE? 

Les publicities ont cssaye de nous 
(aire croire qu'un ordinateur etait 
vachement utile a la maison. Utile a 
quoi ? Oh. mais a plein de choses : 

- Les jeux video. 

- La programmation en Basic ou 
dans un autre langage informalique 

- La gestion du budget lamilial 




en acheter par millions des zordma- 
teurs 

Si quelqu'un est capable de regar- 
der son magnelo-K7 pendant les 
vingt minutes ou il charge son pro- 
gramme de gestion, de rentrer une 
3 jne ses recet- 
tes et ses de- 
penses dans sa 
machine et de 
se planter dix 
fois dans les 
manipulations 
tenement le lo- 
giciel est mal 
toutu, qu'il le 
dise : il a gagne 
un crayon et un 
papier qui (era 
d'ailleurs double 
emploi avec son 
talon de che- 
quier. Faut 
quand 



pieds'. Pense-tu, ils loncent tfite 
baissee Et vas-y que je te lasse de 
la pub en pagaille, et allez que je 
stocks un maximum, et bourn j'im- 
pOrte n importe quoi (importe-nim- 
porte : nouveau beau metier !). 
tous lous ' lis n'onl pas yu I'enor- 
mite de leur deuxieme grande 
connerie les prix. 
Quelle famine normale, je dis nor- 
mals pas modeste ni lauchee. peut 
payer trois ou quatre cents sacs un 
ordinateur pour ses gamins sans 
calculer, sans tirer la langue a la fin 
du mois ? Qui va ensuite payer 
100. 200 ou 400 balles un logiciel 

3ui a perdu tout son interet au bout 
e dix minutes ? Qui va payer ? 
Ca e'est de la belle erreur de strate- 
gic, ca cest de la prospective lou- 
pes, ca cest du marketing de 
merde Fabriquer en masse des ma- 
chines pour le grand public et ne 



etre i 
utilisei 



pour 
l DTdf- 



Marchats aurail pu declarer 'L'inlormatique, e'est de la Merde!". line la pas 



dire que voire micro dans le placard de I'en- 
tree pour qu'il tienne le moins de 
place possible quand vous aurez de- 
li nitivement laisse torn be r 



JOUJOU CHERO 1 

Jouer ? Les consoles de ieux video 
etaienl en passe de devenir tres 
performantes quand elles ont etc 
abandonnees et elles avaient lavan- 
tage de ne pas coiiter trop cher 
Ces cons, Texas instruments en 
fete, sont venus creer un marche 
artiliciel en gueulanl comme des 
veaux que les consoles c etait de la 
merde et qu'il n"y avail que les or- 
dinateurs de vaiables parce qu'on 
pouvait programmer Resullat les 
consoles sont modes, les ordina- 
teurs trop nombreux, ils sont dija 
depassfis le jour meme de leur sor- 
tie, les logiciels ne suivent pas le 
rythme et on s'emmerde ferme si 
on ne programme pas 



SOMMAIRE : 



OU IL EST PROUVE PAR A + B. 
QUE NOUS SOMMESLESMEIL- 
LEURS CEST A LA PAGE 3. 



sonne n'a nen comphs a la pro- 
grammation. Trop complique Et 
programmer quoi ? Les program- 
mes des amateurs sont, a de rares 
exceptions ores (ceux des lecteurs 
de I'HHHHeodo. par exemple), nuls 
comme Cest pas possible et nam- 
vent pas a la cheville des jeux de 
console. Et a quoi ca sen si on 
nest pas fanatique de dialogue? 
avec une machine ? Vous discutez 
avec la puce de voire machine a 
laver quand vous lavez vos petites 
culottes ? Vous demontez voire te- 
lephone pour papoter avec les tran- 
sistors quand vous appelez I'hor- 
loge partante ? 



CHEQUIER ELECTRONIOUE 

Quand ils ont senn que ca derapait. 
il a fallu trouver de nouveaux argu- 
ments pour (aire acheter. Un jour, il 
y en a un, encore plus tare que les 
aulres, qui a eu une idee geniale 
la gestion des comptes tamiliaux ' 
Un ordinateur, ca sail compter, 
done il va laire les comptes de 
toute la famille Cest pas beau i 
Cest pas une bonne idee ' lis vont 



PEOAGOGO 

Ah, mais cest 
que ca peut etre 
pedagogique. ca 
Madame. Cest 
un ;oii joujou 
que tu vas ap- 
fait. prendre plein de 

choses avec 
Apprendre ? Apprendre quoi 7 Les 
ecoles et les profs, cest pour les 
chiens ? Avec te plan dmlormatique 
a I'ecole. vous croyez que les mouf- 
flets ca va les laire bander linlor- 
matique ? Histoire-Geo, Catechisme 
et Inlor manque Paul-Vincent, 
j'exige que tu aies de bonnes notes 
dans ces trois matieres, si tu veux 
prendre la place de Pere a I'usine 
quand tu seras grand, il est indis- 
pensable que tu excelles dans ces 
trois nobles matieres Dieu soil 
loue. le Catechisme n'existe pas 
dans ces ecoles publiques de rotu- 
riers. mais sais-tu qu'ils ont encore 
de vieux ordinateurs Thomson du 
temps ou les socialistes etaicnt au 
pouvoir. Fi. quelle horreur ! Paul- 
Vincent, tiens-toi droit ou j'appelle 
Chirac. 



Vous voyez qu'il y a deja matiere a 
sinquieter serieusemenl quand on 
vend ce genre de malehels. Ils de- 
vraient se dire 'Gaffe, ca sen a 
rien, i,e vais y aller sur la pointe des 



pas prevoir que la masse et le 
grand public n'a pas les ronds pour 
acheter les engins en question : laut 
le laire. non ? 



MARASME 



Cest te marasme Cest marram, il 
y a quelques annees on entendail 
souvent cette expression Au- 
jourd'hui, on dit plutot "e'est la 
crise' ou 'la conjoncture est mau- 
vaise'. Par centre, on disait deja et 
on dit toujours 'e'est la merde". et 
pour etre dans la merde. ils sont 
dans la merde les fabricants, les 
importateurs et les revendeurs. 
Vendre trop cher des babasses qui 
ne servent a rien ne leur suffif pas. 
ils cumulent Les previsons de ces 
grands enlants restent optimistes 
Suite page 31 



INFO-BD 




Toute I'actualite de la B.D. : de Barbe a Manara ei 
par les fanzines et... Ranxerox. Ca saigne page 42. 



DES PROGRAMMES POUR VOTRE ORDINATEUR 

AMSTRAD . APPLE He et lie . CANON X-07 . CASIO FX 702-P. 

COMMODORE 64 ET VIC 20 . EXELVISION EXL 100 . HECTOR HR . 

MSX et compattb.es . ORIC 1 ET ATMOS . SINCLAIR ZX 81 ET SPECTRUM. 

TEXAS TI-99/4 A. THOMSON TO7, TO7/70, ET M05. 
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MODULES AVfNTUBE 
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MODULES ATAE1SOFT POUR 'I 91 
MoonpaNol 21V F C 

Jungle hwil 219 FG 
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A7 f«ft 0« SOFTWARE POUR Tl 99 BASIC ETENDU 



Ce module no se contenie pas de 
vcu otfrir 4 Ko de memoire RAM 
(allmentee dot pile) permettantla 
souYeacrde de* programmes et 
donnees torsque vous eteignei 
I'ordinateur ... 

11 a oussi : 

• 4 Ko de memoirs morle |ROM) 
et 6 Ko de memoirs morte groptii- 
que [G - ROM] contenonf des utlli- 
la lies Ires inieressants : 

— acces possible a i extension 

12 K en H basic ; 

- chargemenl de programmes- 
objets ecitts en assembler, soil 
sui mini-memoirs, sot! sui exten- 

fanttt: 

- utilisation de PEEK et POKE, ap- 
pet de sous-progiammes tiabi- 
tuellsmenl non occssstbtes ; 

— progfomme de lecherche 
d'eneun [Easy lug - Debug) 
Le models avec monuet I ma- 

— "tour su mini- 
(95 FD 



Enwionet a rorre ordmaleut lormes 
coutom. muskjoe. orrxedurss, ca- 
racteres dessnes. vanaotes de tow 
oenes, constructions grammatical*! 



hie logo, n 
rel2K L 



Un nouveau basic etendu avec 
IS tonctlons supptsmentolre* oer- 
msttant de tracer ngnet. cercSes, 
ellipses, axes, dlogrammet en barm 
ou drcutrjkm Ce basic graphiqut 
presents 2 caiocWrisftguet Mi uti- 
les : une copie d ecron. graphiques 
st texts* (codes ASCII, "poke et 
Vpeet accei Oliect 6 la Ram ae corv 
trcte ecron, necssstte to 
memoire 32 K 1 200 Fa 



Elle est indispensable pour la pro- 
grammaHon en logo Si Ton potsede 
la mini-memcHre ou lostemoteur, ette 
petrrset d'aaressst del iouH»gram- 
mss en aswmBteur et os let eiecu- 



-1040Fn 



BASIC FTCNDU 
Module comprenant un langags 
de prMiammotiori renforcanl le 
talc n n 99. 40 wmmandes 

supplementaires. acces au Ian- 

ne assembler. |£ntre«,sor 
. Sajs^jrograiTimes, stxko- 
ge, sprites, ftartement d"emwn. 
Expressions togiques. in muirlpls. 
Introauctiors mgtnpte*. Acces a 
reitemlon 31 K MO F D 



LOTpTI 

• Module Basic slendu 

• K7 Basic par srt-meme 

• K7 technique des programmes 
dejeuxn- 1 

• 50 programmes basic etendu 
n° 2 nvanuei shit) 

L'ensemble S50 F a 



LOT r 1 ETUDES Ml 1090 
■ Module Basic stendu manue) 
entrancais 

• Ejlension msmoiie 12 x eit 

• H logo 1 2 

t'ememble 2.750 F □ 



LOTN*2 

EXTBtSIWJ COMPLETE 

• Module Basic etendu manuet 
enfrancols 

• K7 Basic par tai-meme 

• Extension memotre 12 K erf 

• K7 technique rJH programmss 
de |«H n° 1 st n" I 

lemembte 1.J40 F d 



EXCLUSIF : Plus besoin du boitier d'exlension peripherique TEXAS 



ComeeJei dJrwtemert sir train WW un Mflirbteurdeoliosiettwpouvcrtrecevcw 
2 ledeun de dfaquefles D.D;Di. 5"U 360 ko. Pennet la lecture de toutes let disauettw 
des proo^arnmes Texas extstcrts. 

L'enjembte cofflprerunl le cortroteur et une unite de dtsquefles 4.500 F D 

Llmle de disquette supptemenlwe 360 Ko 2500F 

(garanfve 1 an pieces et mc*i-d'cEuvre) 



pouYort contonr 2 unites de d h queili 




mbm mmw "*■' Uemon 32 



e commonde de 2 modules, un rrotsieme module graturl 
a chotetr parmi ceux manjije d 1 * 



Unite cenhoie Tt 99/4A Module logo 2 C^nhoieur de disauettes 

Ensemble ccfliprenanl une 1&*&tofr4to&pi*timiMqfamto*t> 

ves et un borttef corttenarrl une Jkm(l^**mto4mMt*#Cl*M4t4blim- 

tes,ls^d«drlmcto5pour^V4avectodws<jetlesd^W 
matage. Ced pennel de conserver plus de 100 pfograrnrTtes de 200 Hgnes chocun 
L'ertsembie possede un software qui permet de gerer laclement vos dtsquettes i les 
toncfiofls LOAD, SAVE, COPY, OEUTl FOBMAT, sorrt aisemerrt executees. 

4J00FD 



I 
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TSAITBrWT Ot TDTTI 

• Module Basic etendu 

• Extension memoirs 12 K 

• Interface serte pout Tl 99 
""■HFJ ff 44 a 



BON DE COMMANDS 

PROMO AOUT-SEPTEMBRE 



Participation express 
recommande jusqu'd 5 kg : 30 F 

LA KSli A C ALCUl 

iib: bd SaMlfiarmo-n ?HCS PACIS 

I«l. liiilU - t«ku : EIMV 220064 F 1 1301 RAC. 

Uiralton Oes proOutli OisportJbtoi sous I nun 
Parting greturt MauDBrt-LagicngB 



C'EST TOUT VRAI, PUISQUE C'EST ECRIT DANS LE JOURNAL. 



Premiere page, avec les visages delicais de Marchais el de Ranxerox 



2 Publi 

3 Cesl 

4 Progi 
Progi 

5 Progi 
5 Progi 
7 Progi 
S Progi 

Progi 
3 Progi 

1 Progi 

2 Progi 

3 Progi 
5 Progi 
3 Progi 

Progr 
7 Progi 
3 Progi 
J Progi 
3 Progi 

1 Progi 

2 Progi 

3 Progi 
Progr 

» Progi 
5 Progi 

Progr 
3 Progi 

Progr 



icite canaille de fa Chaine d arpenleur. 
' la page que tu es en train de lire, banane 
amme CANON X07 : 
amme CANON X07 : 
amme CANON X07 : 
amme CANON X07 : 
amme THOMSON T07 M05 ; 
amme THOMSON T07. M05 : 
'amme THOMSON M05 : 
•amme THOMSON T07. M05 : 
amme Tl 99 BS 



amme Tl 99 BS 
amme Tl 99 BS 
amme Tl 99 BS 
amme Tl 99 BE 
amme Tl 99 BE 
amme Tl 99 BE 
amme Tl 99 BE 
amme MSX 
amme MSX 
amme MSX 
amme MSX 
amme APPLE 
amme APPLE 
amme APPLE 
amme VIC 20 
amme VIC 20 
'amme VIC 20 
amme VIC 20 



REGIME de Jean-Luc MOULIN. 

SPACE de Jean-Michel JOUDRIER. 

POKE RTL de Christophe MARGUET. 

OTHELLO de Slephane MADRANGE. 

ENERGIC de Guy DECHELETTE. 

BOMBER de Alain RIBOUD. 

CHOURRAX de Frederic ABADIE 

OUAERO de Frederic VAYSSE. 

CODE SECRET de Didier VERNUSSE. 

KEY KONG de Pierre DENIS. 

DERATISATION de Philippe BAUDRY. 

SPACE ATTACK de Pierre DENIS. 

CANADAIR de Mickael SCHMITZ. 

CUBERT de Guillaume TELLO. 

FLIPP de Georges SION 

TEXAS BOUTEILLE de Gilbert STEVER. 

LABY MAN de Renan JEGOUZO. 

FROG de Gilles GAMBIN. 

COMPOSITEUR MUSICAL de Joseph PAUMIER. 

D A.O. de Stephane PIEL. 

ENTREE HEXADECIMALE de R el R RINGENBACH. 

RUN MAN de Atain GAUDON. 

PAINT de Jean HOTTERBEEK. 

BANOUISE de Patrick ANGLADE. 

PANIC CITY de Pascal SUBTIL. 

SCHMUHBLURP de Laurent KRIEGEL 

SOS TGV de Pierre-Henri BERSANL 

flics arrivent < 



' Depechez-vous de recuperer les combines de BIDOUILLE GRENOUILLE. 

i DEULIGNES, le monde des teignasses et leurs coules oeuvres 

) C'EST NOUVEAU, CA VIENT DE SORTIR. 

) Nouvelles du monde et d'ailleurs. 

I Nouvelles. News, Novella. Nowsxddernouvho. 

i Publicity speciale "EUREKA, j'ai trouve". 

3 Teloche. 

I Tele. 

» La television frangaise cause dans le poste. 

3 Publicite speciale "EUREKA, je continue a trouver" 

' Petit cinoche de rien du tout. 

I Cine deja un peu plus grand. 

) Cinemascope geant de course. 

) Publicite sportive. 

I ZINES DANS LA GUEULE, les bons lanzines bien gras. 

? BD-INFOS, lactualite des petits Mickeys de toutes tes couleurs. 

1 Et une planche d'HUGOT, une. 

; Tout SHELTON dans une seule page, la 45. pas la 44 ni la 46. la 45 

i DIMiTHI veiKl £es ssoirateurs dans le desert. 

' MARGERIN a hen compris a nrriOirnaiique. 

I L'ordinaleur es! a la MASSE (c est un jeu de mots). 

I GRAFIK STRIP Le graphisme a la portee de toutes les c... pardon : bourses. 

) Logiciel, iel-iel, logiciel qu'on prefere. Rock'n'Roll. 

I HYPER publicite CB. 

! Vise, c'est V1SMO qui publicite. 

i LOGIZIQUE, la ou Berroyer vous parle logiquement de zizique 

i GAME-OVER, Gl. NORSOFT el PEPE LOUIS se partagem cette page de publicite. 

' QUESTIONNAIRE avec des questions. 

J SOFT-PARADE avec des softs parades. 

! Des pubs en vrac et les noms des malades de service. 

) Toutes les photos du drame d'Hebdogiciel. 

> Assemblez-vous les uns les aulres. 

i ASSEMBLEUR THEORIQUE. on n'esl sur de rien. 
I ASSEMBLEUR PRATIQUE, on le prouve. 

> Aaaaa, doudoudoudoudou : pub CASIO. LOGICSTORE el GENERAL VIDEO. 
3 Concours. Salut la promo 
' Publicite client vachement publiciste de MICRODIFFUSION et ORDIVIDUEL, 



3 Programme HECTOR 
Programme HECTOR 
3 Programme HECTOR 
3 Programme HECTOR 
t Programme COMMODORE 64 

2 Programme COMMODORE 64 
Programme COMMODORE 64 

3 Programme COMMODORE 64 

4 Programme EXELVISION : 

5 Programme EXELVISION : 
Programme EXELVISION : 

3 Programme EXELVISION : 
7 Programme FX 702P : 
3 Programme FX 702P : 

Programme FX 702P : 

Programme FX 702P : 
3 Programme ZX 81 : 
3 Programme ZX 81 : 

Programme ZX 81 : 

1 Programme ZX Bl : 

2 Programme ORIC ATMOS 
Programme ORIC ATMOS 

3 Programme ORIC ATMOS 
1 Programme ORIC ATMOS 

Programme AMSTRAD : 
3 Programme AMSTRAD : 
3 Programme AMSTRAD : 
t Programme AMSTRAD : 
3 Programme SPECTRUM : 
3 Programme SPECTRUM : 

Programme SPECTRUM ; 
3 Programme SPECTRUM : 
I Les abonnes de t'HHHHebdo vous parlent. 
I EDIKA en couleurs et en muscles. 
3 Ah ben non, y a pas de page 93. 

La photo '"Tele a Marchais' est de Jean Gaumy de lagence Magnum 
La photo des abonnes de la page 91 esl de lagence Magnum 



SUPER POKE de Pascal DUCEY. 

TOPKAPI de Frederic CHATELAIS. 

FICHIER EN B3X de Michel BAILLY. 

BOWLING de Gilbert LABAT. 

PLANE de Michel BERTRAND. 

B AFTER 8 de Pascal GAUTIER. 

SPACE STORM de Emerich FERNANDES. 

RING de Raphael BARTHE. 

CITRONNADE de J.F. ESTORGES. 

EXELMISSIL de Pierre BRETON. 

EXELMUSIC de Jocelyn DONZE. 

PATROUILLE LUNAIRE de Christophe BOUILLE. 

TANKATAK de Patrick GERARD. 

INTERNATIONAL FOOD de Laurent GRAVERET. 

SPACE RESCUE de Laurent GRAVERET. 

BACCARA de Jean-Luc CHTIOUI. 

JEU DE L'ELECTRON de Jean-Marcel CREPIN. 

CARNIVALE de Henri CHASSAGNEUX. 

!LE AU TRESOR de Olivier TURPIN. 

SURVIE de Pascal HUART. 

COBRA INVADER de Christophe LESTRADE. 

FUNCTION de Philippe GOMEZ. 

COMPOSITION MUSICALS de Patrice CHARLANNES 

ICE BERT de Richard JUHEL. 

LA BOULE INFERNALE de Patrick BENITAH. 

GOBPUZZLE de Gerard GUENIN. 

SURPRISE de Pierre GRELLET. 

POKER de Jean-Luc LAGADEC. 

CHAT-GAROU de Xavier PELGRIN. 

ROGER LE MACON de Franck DIETRICH. 

SPECTRUM PAINT de Michel SEILLIER. 

KNOCK-OUT de Cyril CHASTAING. 



EDITO 



II est beau, hein '' Vous savez que ca a ete ires dur ? On a trime comme des betes pour le sortir celui-la. Soyez sympa. pariez-en aulour de 
vous. il faut qu on en vende un max, j'ai un wagon de primes a payer. Pendant que je suis au chapitre des pleurs, rempiissez le question- 
naire, on change tout a la renlree, comme d habitude, faudrait voir a pas s'endormir. Ah ... j'oubliais. si vous vous abonniez. ca me terait bien 
plaisir ... Voila, voila ... A part ca, ca va ? Voila ... Pas s'endormir. voila ... Pas s'endormir sur ses lauriers ... Surtout que les lauriers, c'est 
pas ce qui nous manque : on vient de recevoir les resultats de la presse Irancaise et on est devenu le premier tirage mensuel des ;ournaux 
informatiques. preuve que ca doit pas trop vous deplaire nos conneries. Mais, vous failes pas d'illusions, on change quand meme tout a la 
renlree Voila. voila ... Ca va ? Voila ... Et puis on est dans les cent premiers journaux, aussi. Sur plus de 5.000 canards francais. on est 
dans le pelolon des cent premiers, sans compter les quotidiens. Voila .. Mais on change quand meme ... Et si vous vous abonnez pas, on 
nen a rien a (outre. Voila, voila ... Et si vous en parlez pas autour de vous. du numero d'aout. on en a hen a Cirer. il se vendra quand meme 
Voila .. Oh. et puis merde. aliez vous laire cuire un oeuf, c'est pas possible de ne pas avoir de conversation comme ca. Vous rempiissez le 
questionnaire, vous parlez tout I ete de ce numero a lout ce qui bouge et vous vous abonnez vite fait. Un point. 

Gerard CECCALDI 



SPACE 



CANON x or 



Tente2 vail lam ment de vous emparer du tresor des 
forces spatiales imperialisms. 



Jean Michel JOUDRIER 



-\ effect uant les modificatio 



330 IF AS = "N* THEN 760 



Supprimez les Ikgnes 610 a 720. 

1390 OUT244.255 :OUT243.0:FORI% = 0TO255STEP15 : 
OUT242.l% :NEXT :OUT244.0 

Ce jeu compone 2 tableaux et les regies sont mcluses. If est pru- 
dent de sauvegarder le programme avant lancement. Les routines 
sonores provoquant I'excitation du relais de telecommande K7, il est 
preferable de stopper ce dernier pendant le deroulement du jeu. La 
correspond ance des caracteres graphiques employes, se trouve en 
REM 790. 1040. 1370, 1520 et 1670. 
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REGIME 



Gros ou maigres qui declenchez Ihilarite sur les 
plages, un regime approprie vous aidera peut-etre a 
corriger votre silhouette. 

Jean Luc MOULIN 

Mode d'emplo : 

Necessite un minimum d'extension (carte 4 Ko) el si possible I'impri- 

mante X-710. Ce programme permet d'etablir vos menus joumaliers, 

en indiquant la quantite de calories, protides. glucides el lipides ab- 

sorbes. Vous avez au depart deux possibililes : preparer le menu ou 

controler le menu. 

1 -Preparer le menu : un second tableau vous propose 6 categories 



CANON X07 
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d'aliments (67 en tout). Votre choix effectue. cheque aliment d'une 
categorie vous est presents sous forme de fiche, avec sa lenue en 
calories, protides, lipides et glucides pour 100 grs. Tapez ESPACE 
pour visualiser une autre fiche, "G' pour garder I'aliment en memoire 
et "0" pour revenir au tableau des categories. De plus, la possibility 
de rellre votre choix ou de supprimer un aliment garde en memoire 
vous est otferte. 

2-ContrfJler le menu : Revenir tout d'abord au menu principal en ta- 
pant une ou deux tols sur "0" selon le cas. puis tapez 2 La quantite 
que vous desirez absorber de chaque aliment garde en memoire 
vous est demands (en grammes). Apres reponse aux questions 
concemant votre sexe el votre activite physique, vous obtenez un 
premier bilan ( ESPACE pour changer de page) que vous pouvez 
modifier, retalre ou edtter sur I'imprimante X-710. 



■LIMEN2i5FL.Se BC-2200: IFA-2l 



3*o LOCATE ■'■. ::i'»!Nii I ; :i □< 

■liHoninl.m-:PRINT-2;F. A-3TMENSC-2600ELSEIFA-4THEN8C-3OOQ 370 RETURN 

,:Ent«nl» <19 tni':PBI 239 GOT021O 390 R«" INKE »•! IFBB-" • THEN390ELSERE 607 G0SUB39O: NSm-R«: LOCATE ( 

x ' I 260 M-INKEV*! IFA«--"ORV«LIA«l ilOH TURN INTN5*| 

CLS:C-A!ONCG0TOZ19,2l UAL<A»> >3TMEN260ELSEA-VAL IA»> :REIU 90O FORI- I TOO: JFGJ0THEN3ZO 610 FOR I - 1 T0300: R». INXEY»: let 

IW19 »I <■• Choi. ••>■ 615 N5«-NS««R»:LaC«TE 0,3:PR] 

919 FORI -1T03OO: NEXT :G"0:G0TO10O I : GO 106 10 
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Faiies de votre CANON, un partenaire de choix a ce 
jeu connu mais neanmoins passionnanl. 



votre tour el choix de la taMle d impression (1 a 3). 

- Sauvegarde dune partie en cours: lappui sur "1" lors de voire 

lour, etemt I'ordinateur "' ' 

intacle 
Stephane MADRANGE Les depiacements du ci 

Heches ( evite les case 
Modedempioi mode droile el bas). Validez votre coup par appui sur F6 |usquau 

Toume sur version CANON 16 Ko Ce |eu offre les possibilites sui- relournemenl des pions; si voire coup nest pas valable, nen ne se 

vantes . passe. Si vous pensez ne pas pouvoir jouer, sorlez du damier a 

- 2 modes de ieu : a deux joueurs: lordinateur relourne les pions. I'extreme gauche et appuyez sur F6. L ordinateur affiche SUR 7 " et 

change de |Oueur et teste la vaiidite des coups Conire CANON X- veritie. Si votre ieu est effectivement impossible, il change de 

07; ce dernier vous propose 3 niveaux de difticulte joueur; dans le cas contraire, le curseur se place sur une case "pos- 

• Sortie du damier sur impnmanle X.710. apres appui sur "P" lors de sible" 
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me en couns: I appui sur i lors de volte x v y — > ' 

el I'appui sur "ON" vous reslllue la partie *" fj£ -A L 

:rseur sur le damier, s elfectuent a raide des ,<^VS I W-^ 
i oocupees el passe a la ligne suivanle en CSSS2S VNILr^' 

5r 



iOTHENGOTOSOOO 



00 G0SU81OC 
03 FORJ-'.l- 



1LINE I 35,6) -183,61 I LINE -IBS, ] 
1002 LINE-I3V.6I 1GOSUB60Q 



]l-3:AZ-6:B2-6 



10*0 F0NT«(144>--£ 



S-:REaDC,D:nExi 



J>SCTHENSC-P0:»5 



):next1:lOCaTEo. 1 



■1ANDBO 



:zx-x:zr-v 

•■■P'THENGOSUSll 
236 lFI»-"'-THEN262 
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1220 PRESET 163 



I42,30>!LIN[ 



i.presetiss, i; 



: PRESET 162, 13) : PRESET I 



U8900:GOTOZ1B 




1240 PSET163.161 :P5ETi*3, IB 






62,171-144,171 


o:uu-o:oosjb9oo:qotoiio 




1230 IFROU-ITHENLOCATEIS.O! 








290 po-o:gosubi3oo:ippo-ot 
300 ifhou-2thengot02u 




1260 !FR0U-2THENL0CATE13,0: 
1270 RETURN 


SCO F0R1-1TD1400.IFINKEY. 


-■THENR 


1110 fobpou-ito8:readc,d:a. 


eturnelsenext: return 
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Suite de la page 5 
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20,13,40,0 




4, 17, .3,0, COLIN 
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63, 13, .3, O.SARD 








,225,23,13.3, 1, 
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170,20,9,0,HOUL 


,12,1.7,2 
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64, 3. 4, 3,12, ASP 






DATAAUBERGINE 




DATABETTERAVE 





ENERGIC 



Prouvez vos competences de chef d'etat, en menant a 
bten le programme energetique qu'impose votre nation. 

Guy DECHELETTE 

Mode d emploi 

Tapez et sauvegardez a la suite ces deux programmes Le premier 
content la presentation et le second (I sauvegarder par 
SAVE'ENERGIC], le programme principal A noter lexcellente qua- 
lite graphique de ce jeu. qui se pue de 2 a 4 [oueurs Vous avez a 
gauche, la table de jeu et a droite. votre plan programme impose, 
ainsi que les reserves energetiques accumulees. En debut de jeu, 
chaque chef detat dispose de 4 cartes, 25 millions de dollars. 1 
pion. 1 plan programme impose. A chaque tour, les pions des 
joueurs avancenl du nombre de cases mdique par les des. lances 
par lordinateur Lorsque les cases 17, 19. 20 clignotent, vous avez 
trois possibilites : 

1-consutter vos carles en tapant "1 ". Les cartes dont vous disposez 
apparaissent au milieu de I'ecran. Lordinateur vous demande votre 
choix ou le retour au menu. 
2-Passer votre tour en tapant "2". 

3-Effectuer des transactions. Vous pouvez vendre ou achate r des 
unites d energie correspond ant a la case ou se situe votre pion 
(maximum de 3 par tour). Soyez attentil a votre budget et au cours 
des energies. 

Le joueur gagnanl aura rempli le plan programme impose, multiplie 
par quatre son budget initial (soit 100 millions de dollars), tire toutes 
ses cartes et epuise ses reserves. 

- Cases energie : 8 de chaque energie: gaz. uranium, petrole, char- 
bon. 

- Cases fluctuation ; Place sur une de ces cases, faites fluctuer le 
cours de deux energies, de la valeur de chacun des des. 

- Budget : vane suivant les achats et les ventes. ainsi que les redis- 
tributions de gains, 

- De : lordinateur lance les des et fail avancer le pion du joueur de 
la somme obtenu. 

- Cours : les cours des energies sont visibles en permanence et 
augmentent de i million de dollars lors de I'achat dune energie. lis 
baissent d'aulant lors de la vente, 

- Plan programme impose : s affiche pour chaque joueur avec Tern- 



THOMSON T07, T070, M05 



placement el le nombre d'uniles de chaque energie que Ion doit 
acquenr. 

- Reserves ; lorsque les emplacements d unties dune energie sont 
remphs, les unites excedentaires sont mises en reserve. 

- Cartes certaines vous donnent ou vous prennent de largent, 
d'autres vous octroient ou vous retirent des unites, ou bien les deux 
a la fois. Les canes BOUM KRACH' provoquenl le meme eftet que 
I'arrivee sur une case "fluctuation', mais la valeur des des est rem- 
placee par les chiffres mdiques sur la carle. 

- Redistribution des gams : si le cours dune energie depasse 10, 
alors les millions excedentaires sont multiplies par le nombre duni- 
tes de cette energie possede par chaque joueur et additionnes au 
budget. Exempie ; le cours du gaz vaut 8: vous disposez de 6 unites 
de GAZ alors que votre adversaire en a 3 De plus, vous avez une 
carte "BOUM KRACH" 6 el 5. Si vous augmentez le cours du gaz 
de 6. vous recevrez ; 6 " (14-10) soil 24 millions et votre adversaire 
12 millions (cours normal - 10 = excedent). C'est un moyen de ren- 
flouer ses finances, mats il faut auparavant avoir acquis toutes les 
unites de cette energie. car a 10 millions de dollars, les energies 
sont mabordables. 

1-Case petrole 

2-Case fluctuation 

3-Cours petrole 

4- Case uranium 

5-Ces 

6-Fenetre visualisation 

7-Case Fluctuation 

8-Case charbon 

9-Cours uranium 

10- Case gaz 

11 -Cours charbon 

12- Emplacement unites imposees uranium (6) 

13- Emplacement unites imposees petrole (4) 

14-Emplacement unites imposees charbon (14) 

15-Empiacement unites imposees gaz (2) 

16-Emplacement unites en reserve 

17-Case transactions (touche 3) 

18-Case passe son tour (touche 2) 

19-Case consultation cartes (touche 1) 

20-Cours gaz 

21 -Budget 






: '« PROGRAMME DE PRESENTATION 0U JEU • 

£ ■* ENERGIC « 

10 L0CHTEe,3.a:ii0td ioe 

40 [-LCNCAt>lL0CATC2jH*eir0R E=I TO I»8* 

■•»![■*' m,E. 1 '!B = h5C' £1 .::OL0RC:PRINTGR»< 
E ::NErTE:RETUPN 

lit :le»p,,93 

188 t>EFGPir7..S.Ee,E0.38,3S.?9.79.£55:'C 

HhRBON 

169 pEFGKf<9»Gj 11. 157, 174.76. 137.299. £3 

lie DEFCR*'9'"24.E4.36,36,60, 1£6.66,66:' 

PETP0LE 

: 11 DEFGRI' ie ■■ -54. 36. 66. 66,66.36.36. 36:' 

GAZ 



1£2 DEFGRI '33>=8. 1£6.64. 126,6,78, 126,0:' 

3 

15B DEFGRI' 65 > -0,56. 1 1 6. ££6. 254. £54, 226, 

8:'A 

1=1 DEFGRI' 66>«0. 252. 226. 2SE, 252, 226,252 

rfll'8 

152 DEFCPH67'*8. I£4< 226, £24, 224, 226, 124 

-ei'c 

153 DEFGPl'68 -8.252. 2£6, £26. 226, 226,252* 

.bj-d 

154 DEFGRI '6= ■=?. £54. £54, £24.248.224,234 
• 8t'E 

155 DEFGRI' 76' = 0. 254. 254, £24,248,224,224 

,6:'F 

15c DEFGRI' 71 '-e, 1 £4, £26, 224.230,226, 124 
,81'G 

15' DEFGRI '7£ =0. ££-, . £26. 254, 254,226. 226 

p«i'H 

I5S DEFGRI'. 73. -8.124,56,56,56,56, 124,0:' 

I 

15? DEFGPI<74..0,62.28,28.28, 156, 120,0:' 

J 

160 DEFGRI<75>-8. ££6. 226. 252, 232,226, £26 

,0t'K 

168 DEFGRH76. = e,£24,224.224,££4,££4,£54 

.S:'L 

163 DEFGRI^? -=.3, £2s. £46. £34, £34, £26, £26 
,8:'H 

164 0EFGRI'7B' -0.226, 242, 234, 236,226, £26 
,0:'H 

165 DEFGRI < 79 "<0. 124. 2£6, £26,226,226, 124 
■ 6:'0 

166 DEFGRI' S0 =0. £T£ . £26, £'£6. £52, 224, 224 
.0:'P 

167 DEFGRI '81 ''=0. 124.226, 2£6, £26,228, 122 
,8:*8 

168 DEFGRI >6E . =0, ^£ . ££b. 226 . £52,223, 226 

,e:'R 

169 DEFG»KB3''=0. 124, 192, 124,14, 142.124, 

254.56,56,56, 
226,£26,226,i 

172 DEFGPIi86>=0,2£6,E26,2£6,££6.116,£4, 
8:'V 

173 DEFGRUB^ =■:. ££? . ££* . £26. £50, 122, 36, 

ei'u 

174 DEFGRK 88 '=0, 2E6. 1 16,56. 56, 1 16, 226,8 

175 DEFGPii89>«e, 226, 226, 116,56.56,56.0: 
I7t DEFGRIi98>«e.254,2S.56, 112,224,254,8 

*•* CARACTEPES TITRE "ENERGIC ••• 



189 OEFGRK20>.38.25£.253.253.251.251.£5 
1.113 

198 DEFGPI.21.^.22-. 249.252. £54. 254, 148 
.153 

191 DEFGPI<£2 -231 . £39. £55. £55,254. £49,2 
47.2*7 

192 DEFGRI '.£3. = ! 1 9. £4" . £31 . £39.239, 207, I 
99.195 

1 -; [■EFGPI'£4.*]79.££4.£54.254,252,253.2 

49.243 

1?4 DEFGPf'£5.'=£i~.£30,£7i.£7:-;,£3 s .£0 7, 1 

99.195 

195 DEFGRI '.£6 ■=£04, 156. 191.63,127,224,1 

99.143 

;:-6 DEFGRI (£7 .=£52. 1 £5. 125. 125. 121, 1, 125 

.125 

197 DEFCPicaEl.tia, 246. 232, 254.255,28/.! 
92,128 

1 98 DEFGRI' 29 >» 1 5. 15.3,30.254,252.249.25 

199 DEFGRI<38>*1£5. 121. 123, l£3, £43,247,2 
43,225 

208 DEFGRf ■ 31 J-1E8, 143,223. 255. 254, 25£,E 

48,240 

£01 DEFGRI' 39 -8. £4, £4,48, 8. 6. 8, 8 

1O0O0 F1I-GRH 11 "GPK 12>-GRI' 13>l* lere 



10620 F3*=GP*< 17 - + 5R*' 18.'*GPH 19'tGRH£3 
.•GRirE4> + GRI'25>*GRI'29.*GRI<3B)tGRI<31 
:'3t»e ligne titre 

11997 ' .I.I.H.t»«..illi>««lmH.tl 

11998 ' ••*• PAGE TITRE * CHOIX •••* 

12808 CLS:SCREEN 5,e.8:v-l 

12881 FOR 1=1 TO 68 STEP2: V=V*I»2: LINE£8 

iV)-(319j¥)|-SlNtXT 1: SCREEN 5, .8 

12002 CONS0LE3, 4: SCREEN 4. , e:C0NS0LE5, 7: 

ICREEN 6, .0iCONSOLE7.8:SCREEN7.,8 

126B5 CONS0LE8,24, 1. 1 : CLS: LOCftTEl 1 ,24 J AT 

TPBt,l!C0L0R6:PPlNTrit;:B0XF< 112,184>-(2 

28, 195>.5:L0CATE2B.24:PRINTGR*(13^:L0CAT 

Ell,24:C0L0P6:PRINTF2t:L0CrtTEll.E4:C0L0R 

7:PRINTF3*:F0R 1=1 TO 7:PRINT:NEXT 

12B8S PTTRB8, 0:CONSOLE0, 24. 0,6:^ = 9 J 14=14! 

;=6:fl«=-fiUTEUR":GOfiJB40:PRlNT- J 'iZ = 1B! 

C=7iA$="GUY &E:hELETTE":G0SUB4B:£=3:H=E2 

if3ift»-'P0UR OBTENIR LES REGIES TfiPEil S 

UP l":COSUB48!£=8:C=2:H=£3:«*--POUR CHfiR 

GER LE PR0GRAHHE £-!G0SUB 48 

I£010 REP*=tNKEY»: IF REP*="" THEN 12818 

else if rep»="i"then 12019 else irBEP*-" 

E" THEN12812ELSE12018 

I£81£ C=7:U=18:2=4:rt*=-PATIENTEZ LE PROG 
PrtHrtE SE CHARGE ":G0SU8 40J8OXF<8, 176^-<3 
19, 192).e:L0AD-ENERGIC".R 



=■ REH^IiER DE FRUCTUEUiE-: " 

«m=.-i:tijm-;' :■:=•;■•■ MiijBa 

12128 U=2UHf=" iJUl LEUR PERMETTR0NT 
DE PEMPL1R LE PPOGRAMME OKI LEUR A 

ETE IP1P0SE-:: = ::G05UE48 
!£1£5 ^TTRBe.0:fc*.''iUITE 1 ■' i 2-30: H=£4!C 
=5:G0SUB4e 

1£170 r**IMKEV*IIF rt*«» OP Tl: .■"J-THEM 
5CT012138 
1£13£ ' ...-•...........-..,,., 

12173 ' ••• P H G E 3 ••* 
12134 ' ....................... 

1£148 ClS:N=H:Z-8:A*«-vouS DISPOSE! DE 
£5 MILLIONS DE DOLLARS DE 

■i CARTES DE JEU":G0SUB48 

1£158 U=14!C = 6:h*=^uUP G^GNER IL FhUT': 
iOSUB4e>«"16lC"lIZ"4l(U«*REr1(»LIfl LE PLUN 

e PfJCfiAM«E IMPOSE" :GOSUB40:H = 17: C = 2:At-- 
AVOIR AULTIPLIE PAP 2 SON BUDGET" : G0SUB4 
e:U-18iC-3iA«--NE PLUS AVOIR DE CARTE"IG 
^ u 8«0:u-19:C=5:O* = -NE PLUS AVOIR DE RES 

12151 GOSUB40 

12168 H=2l:Z=8:C-6!At-' VOUS V01LA 

DONC CHEF D'ETAT BON 

Nl CHANCE" :GOSU840 

12170 ATTRBB.e: 01= "SUITE 1 " : Z=30: H=24: C 

=5:G0SUB48 

12173 T*«1NKEYI!IF 71=*- OR T*<>"1"THEN 

G0TOI2I75 

I£208 ClS:Y«77:F0R 1=13 TO 28 STEP2!Y=Y* 

!«2:LINE'0,Y>-i'319,Y),-5:NEXT I: SCREENS. 

.8:G0T012888 



GUY DECHELETTE PRESENTE 
ENERGIC 



5 L0CATE8,e,8:CLE0R, . 93: G0SUB2E16B: GOSUB 
10!BOXF(e,136>-'319, 152>,-HG0T013 
10 PLAY"A8T4O4L24FAFAPFALA«PLAIPLE4O5D0P 
D0PL48FAL24REL6P04L24LAIL6PL24LAI05L36RE 
O4L3PL24LOiL485OL40O5REtL24DOL6PLE4O4LAL 
At": RETURN 

15 O5:7_ = 4:H=18:A* = "N0MBRE DE JOUEURS OE 
£ u 4'!C0SUB4B:REPf=INKEY*: IF REP»=""TH 
EN RI=RND*6:GOT015 ELSE NJ-VAL<REP() : IFN 
}<S OR NJ>4 THEN R1=RND«6: G0T015 
— 4>,BA14),RS<4 



.»■ 



1 



178 ' 



132 DEFGRK 13 ' = £2-1. £24. 192.192, 128, 129,0 

.0 

'.£3 DEFGRI' 14:> = 15. 31 . 31, 31, 31, 31, 63, 63 

154 DEFGRf 15 ■* 192, £55, 255. £54. £54.252,2 
53,249 

155 DEFGRI '16 =-:e. 125, 127. 127. 255. 25E, 24 
9.248 

18£ DEFGRI' 17. = 63.>i2. 126. 127, 127,255.25 

5.255 

167 DEFCRSil8>=7, 15. 8, 253, 249, 251 . 243. E3 

1 

188 DEFGR*( 19: =£40. 24G. 224, 193. 1E9, 135, 7 



12815 ' 

12019 ATTRB0,0:CONSOLEie,24.8,e:CLS:2=0: 

U'lHAM' CHAQUE ETAT A BES01N D'ENERG 

IE POUR ASSURER SON EXPANSION SINO 

N SON rONCTIONNENENT":C" 

-:G0SUB4B 

12828 U-14:AI." CEUX GUI N' ONT PAS ASSEZ 

DE RESSOURCES ENERGETIOUES NATU 

PELLES":C = 6:G0SUB4e: PR INT: PRINT 
12038 >5iH»17iA*-"URANIUt1-:C«l:G0SUB4e: 
PRINT" "fGR*<B> 

12848 N= 1 9i Af« " PETROLE " :C»£: G0SUB48! PR IN 
T" "*GR»(9> 

11858 Z=23:U=17!A*="C"Z":C-3:C0Sg848:PRI 
KT- "*GR*aa>:PRINT 
12068 N-19iA*--CHAP80N":C=7:GCSUB48:PRIN 
T" "♦GR*<7>iPPINT 

12862 BOX i 35, 131>->£75, 1 63 1 . 4: L [HE! 35, 14 
7 .--275, 147>,4!LINE( 152. 131.'-' 15£, 163 >, 4 
1£865 Z=6:W=£i:A*=-D0IVENT LES SCHETEP A 

:0UPS DE DEVISES FORTE 

i":C=6:G0SUB40 
1SB7B ATTRB8,8:A*»"SUITE 1 ":Z=30: U=25i C 



l),GR(4 



>>cn<4 

K4>, 
l) f D« 



',XR(< 



,LU(4>,LPC 



,LCC 



LGi4),N0N 



>,TRUt4>,TRPM),T»:i4>.TPG'4 



!,UR<4),CR(< 



',Ari(4>,PR( 



,Z2<4 



;:G0SUB40 
12888 Tt'IN 
G0T012888 
:£892 ' (•( 

12883 ' ••• 

12884 ' 



EYf:IF 



1 OR T* 



1-THEN 



1 G E 



12898 CLS:Z-6:U=ll:Af'"LES COURS NE SONT 
FAS STABLES":C=7rG0SUB48 
12108 Z-£!«*13tA*-"ILS VAPIENT CONSTAMME 
NT SOUS L'EFFET DE L'OFFRE ET DE L 
- DEMANDE ET PAPFOIS DE LA S 

=-E.:iJL«Tinni»!C = 6:G0Sue4e 
:£118 N»17IZ-UA»-'LE8 CHEFS D'ETAT DOIV 
Z\l DONC P1VALI5EP £■" 1NGENI0S1TE POU 



22 FORD-I TONj:C=5:Z=0:h=2O+D:A*=-NOM DU 
JOUEUR ":G0SUB48:Z=15iC-6:CHA-D)G0SUB5e: 
INPUT"-iNOH*(D)iNOH*(D)=LEFT$<N0H*<D),19 
>:2ZCD)"12-INTHLEN(N0H«(D;o>''£>:NEXTD!C 
Li:LOCATE8,8,0 

B5 UnU>-6:UH(£)=4:UH'3) = 3:UM(4> = 2:PMi 1 '• 
=4:Prt'2i=3!PH'3:i=2:PH<4>«6:CMU> = 3:CNI£> 
■£:CH(3)=6:CHc4>.4:Gn(l)=2:GM<2>=6!CMl3) 
■4:Gfl'4)«3:C<l>«l!i:'£>«£iC<3>-3:C(4>-3 
?7 LU' 1>=5:LUi:2)=8:LU<3>-11:LU(4) = 14:LP< 

l)-8tLPt2)"lHLP<3)-14tLP(4>-5lLC<lJ-lll 

LC(£)=14:LC(3^5:LC'4)-8:LGa) = 14:LG<2> = 
5:LG<3>«e:LG<4>-ll 

28 FOR D-l T0Nj:H'O>=INT<ll«RND+l>tZ<D>= 
INT< ! :tfN! -: ■ : ■: ! . :»T. I l*PNDt | ■■ :u. [, .::> 
Tc H«RND*niBAfD>=£5iX<DJ-liY(D)-lJA(D)" 
4:NEXTD:BH(l)«2:BHf£)=3iBH(3)-5iBH(NJ>"4 
:00«|:jJ(U = i:jJ'2' = 2:jJ(3> = 3: JJt5J = 4 
30 F=8: J=eiG0T0288 

40 I>LENIAI>:L0CATEZ,U,8:F0R E'l TO MB* 
=t1]D$^A$,E, l>iB«ASC'B*>:COLORCiPRlNTGR*( 
B),mNE>!TE:RETURN 

50 O*=STR*<CHA):l-=LENiA»l:L0CATEZ, H, 0:FO 
P E»l TO HB««M1&*<A«,E,1):B-ASC(B*):C0L 
ORC:PRINTGR*<B)i:NEXTE: RETURN 
28B B0XF(24,72W173, 151 ), -5!B0X(31, 47)- 
i48.64>,7:BOX<7!,47J-iB8,64>,7iB0X(29,43 
>-(38,66),7iB0Xl69,45)-<9fl,66),7 
tZb PSET< 1, 1)GR»'3 7 .,4!PSETi23, 1 >GR*'33> 
:PSETi 1,23'GR»' 35 > : FSET' £3, 23'GRI' 34 ' 
238 PSET19, I ■Wflt 'iPSETi 15, UGRI'2S':P 
SET' 9.£3'GR*'3e ■ : PiET' 1 5 , £3 GR*' 30 ■ : PSET 
■ 1,9)GR»<31>!PSET< 1.15JGR*<3I ':PSET'23.9 
■GRt'£9''!PSET«E3.15.GR*'29' 
£50 B0XF'£4,£4>-'79.39f.-5iB0XF( 128.24:.- 
.. 175.39',-5:B0XF.£4. 16B>-< 79, 175 ', -5: BOX 



F 128. 168)-' 175, 175'. -5 

368 C0L0R,4:Z«7:u=;:«l= ' o E T R0LE-JC=2:G0S 

l JE40::«15!A* = , 'CHARB0N"ir..7:G0SUB4e:Z = : 

=20:Af="URANIlJM■':C = l:GOSUB*^:Z•17:A*■■ 

Z-:C«3iG0SUB48IG0SUB745e 

310 FOR 1 = 3T07STEP2: PSET 1 . 1'GRI' 9>, 2,1 

EXTuracTcitf i)om<» 

328 PSET- 13, 1 .'GPI' 10 i . ■: FOP I = 17T021STEP£ 

:PSET. I,l>GR*ilO>:NEXT 

348 F0RI=3T07STEP£:FSET'I,£3.'GR*'ie>: 

TiPSETf ll,£3iGRI' 10:' 

358 PSETt 13,23>CRI'9.'.2:F0RI = 17T021STEP2 

:PSET. I.£3.GRf<9J!NEXT 

360 F0R1 = 3T07STEP2:PSET'1.I 'GRH8),i: 

T:PSET<l,ll>GR*i8> 

7-0 PSET' 1. 11/HRtt-: ■ . ■ : FOR I = 1 7TQ21 STEP2: 

PSET(I,1>GB*(7):NE:-;T 

308 rORl»3T075TEr£iFGEIv£3, 1 1GM( 7 HHEKT 

:PSET<23,11)GR*(7) 

39B PSET<23, 13)GR*<8>. 1 : F0P1-1 7T021STEPB 

:PSET'£3,t)GR*(B>. UNEXT 

408 C05UB 5800 

418 C0L0R,4iZ*£5!U=l:A*="PLAN PROGRAMME" 

:C=3:G0SUB48:Z=29:H=2:A*=-|MP0SE-:G0SUB 

4S0 COLOR, 0iZ= 15: U=6: AI = "8UDGET":C=3: GOS 
UB48 

430 Z«27: H-l 6: A«= " RESERVES" :C=3:G0SUB48 
435 ATTR88, 1 : L0CATE38, 5, 81 PRINTGR*<54) 
448 L0CATE38,8:PR1NTGR*<32) 
445 L0CATE38,ll:PRINTGR*C51> 
458 L0CATE38, 14: PRINTGR»<38) 
455 COLOR, 8iL0CATE28, 23: PR1NTGR*'49>; 
468 L0CATE33,23:PRIHTGR*<3B)J 
465 L0CATE38,23:PRINTGR*<5D;:ATTRB1, i:C 
OLORl 

478 L0CATE23,23:PRINTGRf(67);:LOCATE35,2 
3:PRINTGR«(84);:ATTRB8,ltL0CAIE31,23:PRI 
NTGR*<31);:ATTRB8,8 
588 J-J+HIF J-NJH THEN J-1:00'B 
301 GOTO 11188 

502 COLOR, 4!B0XF'.£4, 72. -(175, 151 >,-5>Z=B 
:U«1B:A»='C'EST A":C=7: G0SUB48: H=15: A$=" 
DE JOUER":GOSUB4O:U-13:ATTRB0,i:Z=ZZ(J): 
C-C' J):A* = NOM*U):GOSUB4e:ATTRBB,0:GOSUB 
28888 

585 R1«tNT(RNDI6) 
518 LOCATE 4, 7, 8: ATTRB1 . 1 : COLORB, 7:PRIMT 
GRKRl + 1) 
528 R2=1NT<RNDI6> 

538 LOCATE 9, 7, 8i ATTRB1, 1 : COLORB, 7:PR1 
GRf(R2+l):ATTRB8,8 
600 R=Rl+R2+EtC0L0R6,B:l-I 
6B5 IF 1-1 AND 80"1 THEN 688 ELSE BH<-J 
P0INT(Xi:j)<8*l,YCJ)»8+l):IF 1 = 1 THEN 6BB 
ELSE IF BH(J>0-1 AND BH(J><>« THEN PSE 
TfX(J),Y<J))GR*<91),CU):PLAY"D0":PSET(> 
<J),YU))GR*(91),BH( J):PLAY"P':G0T0618 E 
LSE 6B9 

688 IF I»l AND BH(J>OC(J> AND BHiJK>-l 
AND BHU)04 THEN PSETCXC J), Y( J) >GRK9I : 
.BH'.j:':COT0618 ELSE F-l 

689 IF F»I THEN ON A<J> G0SUB738, 748, 751 
,768,728,726,888 

618 IF Y(J)-1ANDX< J)<23THENX<J>-X<J>*2K 

OT0698 

628 IF Y(J)«lANDXi J>-23THENr< J)«Y< J>»2iC 

0TO698 

638 IF Y(J)-lANDXt J>> 1ANDXI JX23TKENX1 Jl 

-X(J)+2:G0T0698 

648 IF Y(J)"23ANDXr J).23THENX(J)-X(J)-2i 

GOT0698 

658 IF X(J)-23ANDY(J)>1ANDY< JX23THENY(J 

)»YU>*2:G0TO69e 

668 IF X<J)=1ANDY< J)=23THENY( J)=Y< J)-2: 1 

0T0698 

678 IF Y(J)»E3ANDX' J)MANDX( J)f £3THENX(. 

)-X(J)-£iG0TD698 

688 IF X<JJ = 1ANDY' J)-23TH£NYi J)=Y( J)-2: ( 

OT0698 

685 IF Xf J)'lANDYU>MANDY(JJ<£3THENXfj: 



698 A<J>-P0INT' 



((J)I8*5,YU!I8« 



692 BH(J)=POINT(X' 



'•B*1,Y(J)<9*1)HF BH 
.... I AND IOR THEN BH'BH 
' J ■: JJ-JJ'BH'iH< J'-W JJ':GOT07£6 ELSE IF 
;=R AND BH'JX'-l hND BH(J)t>4 THEN PSE 
T'X' J'.Vi J)'GR*<9L '.C J) I PLAY-DO" :BH*BH< 
J'i jJ=JJfBHV!C. J .=6t JJ,:G0T0720 ELSE 708 
788 COLOR. 8: PSET. );ij..Y' J) )GRf*91 >,C< J>i 
PLAY*D0" 

T I0 IF I>P THEN ON HI J.G0SUB738,748,75B, 
-^0. 720.-28.800 

~£8 ["I+llIF I-1=R THEN Fri:COTO7880 ELS 
EG0T06B5 

--£■ PSET' ■:■' J', V'- J 1 ' -'GRt'S'. i: RETURN 
740 PSETi>;'.J'.,Y' J ' 'GR* < 9 ).£: RETURN 
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750 PSET ■ >.' J . . ' J ■ 'Gft*' 10>.3:RETURN 
760 IT >;<J'>1 AND VU)*I THEM PEET : 
'-■■ Ji>GRt<37>,4 :RETURN 
" = 5 IF ::<J, = 23 mW> Y.j>=23 THENPSET 
. >■ J' 'GRH34 ,4:RETURN 
770 IF X<J>-23 AND vcj)=] THEN PSET 
,V> _n>GRK33>.4:RETURN 
7T5 IF X'J>-1 AND YOl-23 THEMPSET'l 
')GR*<35>.4:RETIJRN 
IF Y'JV-1 AMP XCJJM hMt X(J><23 THI 
tSRETURN 






'<23 1 



NPSET> 



II RETURN 

1 AMD ri JOl HMD V(J) 23 THE 
■ j. GR*< 31>.4:PETUPM 
23hMD V'J-'.'l HMD VCJX23 THE 
NFSETiXi J>,Y' J)>GRt '29;. 4= PETURM 

we PSET (Xl J'.v. J>>CR*C7)»7sRETURN 

816 RETURN 

5060 RESTORE2300@:F':)RI = lTC55:ftEaDA,Z,E,R 

:B0X<,A,Z;-'E,P ■ ■ 6: NEXT I : B0:^F( 208, 8 i-<ll 1 

,23'.-5iRETURN 

7088 IF H(J>=4 THEN GOSUB 6888 

"081 ATTRB8,8:COL0R.4:Z=6iH=17iA*=' , V0TRE 

:H0IX":C=3:G0SUB48: 1 = 8 
7003 T*=INKEY»: 1 = I + 1 : COLOR 1, 0JATTRB1, 1 :P 
LUY-P":L0CATE25,23:PR1NTGR*<67>;:ATTRB8, 
l:LOCATE31,23:PRINTGR*<31.>::ATTRBl, 1 : LOG 
"TE35,23:PRINTGR*i34j;:ATTR88,6MF 1=7 T 
HEN 1=8:C0LQR,4 
7685 T*«INKEY*HF ?•■" 'THEMG0TO79O3 ELSE 

T=VAL(T*>:IF T>30RT;i THENG0TO7663 ELSE 

ON T GOTO 18888,7508,7818 
7019 COLOR, 4!B0XF< 24, 72>-< 175, 151>,-5:Z- 
" : C*7: a**" VOUS POUVEZ" : G0SUB48: Z=9: 
i*="l VENDRE'iG0SUB4B:M=12:A*="2 AC 
HETEP-:G0SU848:Z=7:U=14[HJ='DES UMITES": 
G0SUB46:AM<J)=A':j> 

7828 OM AM<J> GOTO 7040,7058.7868,7198,7 
108.7180,7880 

7848 Sf='URANIUn-:C = «U>:Z=9:H.16:A*-S*: 
G0SUB49:GOTO71B8 

7058 S*=-PETROLE-=C=H' J >: Z»9: H=16: A*=S«: 
GOSUB40:GOTO7180 

""1 S*""GhZ-iC-h' J':Z = ll:H=16!fl*=S»!G0S 
l:G0T07I88 

) S*-"CHftRBaN-:r = h uj .:2.9:u=16:«*=S»: 
G0SUB48 

S:C = 3:«*="V0TRE CH0IX":G0SUB 
48 

l=IMKEYi;IFT*=-"THEMGQT07110ELSET= 
VAL'Tf):IF T:>2 OP T< 1 THEM GOTO 7118 
7128 ON T GOT07148,7308 
7130 END 

7140 B0XF124.72W 175.1S1>,-5:0N AMCJJGO 
TO 7 160, 7 17B, 7 1 98. -280. 7289, 7208, 7 198 
7160 XR<J>=TRU(J':G0T072BB 
7170 XP< J^TRPi J'iG0T072B8 
7188 XR< J>=TRGIJ<:GOTO72B0 
7190 XRO> = TRC<J) 

: t:IFXR(J>=0 THENZ=4:C=3:H=12:A*=- 

VOUS N- fiVEZ P«S-;G0SUB4e:Z=3;M=15:H*=-I> 

E RESERVE D' UNITES" : COSUB40:C-A< J> iZ-9tM 
■ - ■ f = S*:GOSUB40"PLOVPPP'iGOTO7BB0ELSE 
• 12iA* = 'V0US POUVEZ VENDRE" :G0SUB48 
:U-14lIF XROX4 THEM CHO=XR< J>!COS 
UB58 

7201 IF XRtJ>>3 THEM A*. "3" :GOSUB40 
7 282 Z*9JH-16:fi» = K !JNITES":G0SUB40:fi( JJ-A 
n> Jj:;=8:H=17:«*=-C0riBIEN':GDSUB48 
7205 TMINKEYi.: IF T* = -'THEN G0T072B5ELSE 
" ""'.(T*>UF T<0 OR T>XR(J> THEN GOTO 72 
85 

7210 COLOR, *!0N Am JJGOTO7220, 7225, 7238, 
7248.7249.7249,7235 

7229 BA(J>=BAiJ>KCUIT):CU=CU-i:TRU(J> = ~ 
ftUlJ>-TiCL"25*TRU' J>:FORI- CL TO 36IPSE 

" :-K25>,B:NEXTI:GOT07248 
7225 B«<J)-Bh<JJ*(GP«T>JCP-CP-1:TRP<J>- 
RP(J)-T!CL-25*TRP(J>:F0R I-CL TO 36SPSE 
J 18>CR*<25>,B:NEXTI:GOT0724B 

7230 BAl.J)-BA<J>*<CCtT>iCG«CC-l:TRG' 
RGO>-T:CL-25»TRG' J ■ : FOR I=CL TO 36IPSE 
■'I,19)GR*i25,,0:NEXT l:G0T07240 

7239 Bfl(J)»BH(J>+<CC*T)iCC-CC 

RC<J>-TiCL-25*TRCi J):FOR I-CL TO 36JPSE' 
- i.2O:'GR*i25>.0:MEXT I 

7240 G0SUB74S9:IF 0=1 THEN GOTO 18698 EL 
SE G0TO588 

":i(S C = 7:B0MF'24,72-.-' 175. 151 .- . -5: Z=4: H= 
12:h»=-C0HB1EN EN VOULEZ" : G0SUB4B: Z=9: U= 
15irt*='l A 3"iGOSUB4BiZ-10:U-13:A*-*VOUS 
■JGOSU840 

7316 T*=INKEY*:IF T*«" -THENG0TQ731B ELSE 
T=VAL'T*):IF T<1 OR T>3 THEN GOTO 7318 
'328 C0LOR,4:0N RIKJ) GOT07346, 7356, 7368 
.7420,7420,7420.7378 

7340 B*kJ>=BA' J>-<CU.T:':CU=CU*liURi:j> = UH 
■ UFUR'Jxe THEM U<J>=<JH' Jj:COS 
UB7345:G0SU873B8 ELSE U< J>-Ut J)*T:GOSUB 
"<!-.:r.aTO7420 

7345 FOR I-B TO III JJ-lsPSET- [»2f26,LUU> 
■GRH25>,HMEXTI:RETURN 

7356 BA<J>=BA< J:'-<CP«T>:CP=CP*l:PR^J>=Pn 
<J:p-T-P<:J>IIFPR<J:■'0 THEM Pc J>-PB< J) IGOS 
UB 73S51G0SUB7396 ELSE PU)'P'J>*1: GOSUB 

7355:G0T07428 
7355 FOR IM TO P<J>-HP8ET(IM+efi»LP<J) 

;25J,2tNEXTI:RETURN 
7369 Bfl<J>=Bfl'.j:--'Ci;«Tj:CG=CG*l:GR(JJ=Gn 
l-T-0(J)HFOR(J)<B THEM Gi J)-GNO)iG0S 
UB -365!G0SUB7408 ELSE GU) = G< J>*T! GOSUB 

73651G0T07429 
7365 FOR 1-6 TO C' J '-1 ' PSETi I«2»26, LG' J) 
'GR*'25>,3!NEXTl:RETURN 

"376 BR(J>=8h( J>-iCCiTi:t:=CC*l:CRtJ)=CM 
<J)-T-D(JJMFCR' J"6 THEM D' J>-CPfi J) iGOS 
UB 7375iG0SUB741B ELSE DC J)=D( J>'T: GOSUB 

7375:GGT07428 
7375 COLOR, 4 = F0R 1-6 TO DC J ,-l I PSET ( I«2 + 
26,LC(J>)GR«'25-,-:NE?:ti:RETURM 
7389 TRU(J)=TRUU>-URUf : FOR 1 = 1 TOTRU<J 
■I PSET (1+24, 17>GR*'.25.', 1 : NEXT I IG0T07428 
7398 TRP(J)=TRP<J>-PRU):FOR I»l TO TRPc 
J):PSET(I*24,1B>GRI'25J,2:NEXTI:GOT07429 
7488 TRG<.J)«TRGiJ>-GR(J>!FOR 1-1 TO TRG< 
J>:PSETII*24,19)GR*'25),3:NEXTl!GOT07428 
7418 TRC(J>«TRCiJ>-tRU>:FOR 1 = 1 TO TRCI 
J'iPSETi I*24,2e>GR*'25).7:KEXTI 
7420 G0SUB7458MF 0=1 GOTO 107BB ELSE GO 
T0509 

7450 C0L0R,0:C-5!Z=16:H=7'.L0ChTE14,7:PRI 
«- ■:-f»--~~ ■ :Gi"ij..i?";ei; ]! :-■ .1 ■ '• 

THEM Hi=-DEF!CIT-:C=l:Z=I4!GOSU84e:F0R 
I = 1TO10!PLHVSIDOSI-:MEXT 

7452 COLOR, 4=IF CU< 1 THEN CU=1 ELSE IF C 
U>18 THEN GOSUBlieBOiCU-ie 

7453 C«3i 2-5: H=2UL0ChTE5. 21! PRINT" ■: 
CHft=CU:G0SUB50 

7455 IF CP<1 THEN CP»1 ELSE IF CP 10 THE 
I C0SJB11818:CP=ie 

7456 C=3:U=4:L0CflTE5.«:PRINT - "iCHh-CP 
:GDSU856 

7460 IF CC<t THEN CC=1 ELSE IF CC: 18THEM 



6MHEP OK ABoHtteHEHT 
O'oti ah 4 tfeSOOQitieL I 



cfcrHB'oeAue oe MWSsy-iE-neup (iv> eT 



THOMSON T07, T070, M05 



16 THE 



028!CC=10 
7461 C-3:Z=17!L0ChTE17.4!PRIN 
CC:G0SUB50 

7465 IF CC 1 THEN CG = 1 ELSE 1 
N GOSUB 1I638:CC*10 

7466 C=3=U=2l:L0CHTE17.2i:PRIMT" ":CHfl 
'CGIG0SUB56 

7470 RETURN 

'580 B0XFt24,72>-i 175. 151 ;■. -5 = GOTO 500 

8800 RN = R!*UKL=0 

8005 KL:KL+l:C0L0R,0i60XF l 24.72)-il75.15 

1-,-1:Z=4:M=19:h*='V0US ETES SUR UNE'-.GO 

SU848!H>IIini'-CHSE FLUCTURTI0N":C0SUB4B 

IZ-5IU-l8lR*-'FftITE8 VftRIEP"!G0SUB46!Z=8 

:U=13:H*=-LE COURS' : G0SUB48: Z=5: M= 14: fi*= 

■D'UME ENERG1E CE":G0SUB4B 

8887 Z'1KM=15:CHA=RM:G0SUB50 







:=3:U=17:C=2:«*=-1 PETROLE" :G0SUB46 
:Z>13:C'7iKt>'2 CHARBON': GOSUB40:Z=3: U=l 
8:C-lifl*-"3 iJRHNIun-iG0SUB48:C = 7:Z=13!n* 
=-4 GhZ-:G0SU848 

8020 T*-INKE¥*!IFT«=--THENGOTOBO20ELSET- 
VflL(T*>:IF T(l OR T>4 THEN GOTO 8928 
8030 B0XF<24,128)-'175, 151 > . -1 1 Z'7: k«16 = 
M*'I B8ISSE-:G0SUB48:M=17!H$=-2 HfiUSSE" 
■GDSUB4B 

0040 V$=INKEY»: IFV*=- -THENG0T08848ELSEV= 
VnLtYOMF Y< 1 OR Y>2 THEM GOTO 8648 
BB59 ON T GOT08870, 3080. 8890, 8108 
8870 IF Y=2 THEM CP=CP*RM ELSE CP=CP-RN 
B875 GOTO 8118 

0080 IF Y=2 THEN CC=CC»RM ELSE CC=CC-RN 
3085 GOTO 8118 

BB98 IF Y=2 THEN CU=CU+RN ELSE CU=CU-RN 
8695 GOTO 81ir 



B1B8 IF Y-2 THEN 




8118 GOSUB "459: I 


0=1 THEN 0'2:RH=BK2: 


JTOieSH ELSE IF 


=2 THEN GOTO 18858 EL 


E IF kL=2 THEN GO 


588 ELSE RM=R2»|:G0 


8005 




1608B COLOR, B:80X 


•24,72)-(173,151>,-lt 


■=8:RJ=8:S=0JRT-0 




10020 IF HIJIOB 


HEN S=S*1JH(S)=H(J):0 


H<J> GOSUB 10108 


18128.10148, 19169, 191 


0. 10200.18228.182 


8. 10260,18268, 18300,1 


32B 






HEN S=S-l:M<S)=Z(J)=0 


ZU) G0SU8 10108 


18128, 18148,18168, 101 






328 




10840 IF E<J)08 


HEM S=S*1!M(S)-E<J):0 


E^J:> SOSUG 1610B 


18120,10140,10160,181 


0. 1828B. 10220, 102 


B. 16266. 16280. 10360,1 


320 




10050 IF U<J)<>8 


HEN S=S+!!M<S>=H<J>:0' 


HCJ) gosub leiee 


10120.10140,10160,101 


0. 10280. 10220,102 


0. 16268.16288, 18368. 1 


328 




10060 RJ=l:HTTRBl 


HL0CnTEll,21!PRIMT" 




010062,10063,10864,18' 






16061 2=5:H=J3'rt* 




SUB4B!F0R i»i to 




10B62 Z"l2lM*18!fl 


=-1-iC=3:GOSUB4B:G0T0 



10B63 Z-9:M-13:fi*="l OU 2" : C=3:G0SUB48:C 

0T018867 

I0B64 2=7:H*15:A*="1.2 OU 3" I C-3: G0SU84B 

iG0T019967 

16965 Z=5:U=15:h*="1.2.3 OU 4*:C=3= GOSUB 



B40 



i67 Z = 7:« = H:i 



=-VOTRE CHOIX-:C=3:G0SU 
="RET0UR-:GOSUB4BiZ=2B 



? Z.13iM'lBJHl 

:CHH=H*l:G0SUB58 

19070 Tf=IMKEY*:lF Tf=" 'THEMGOT016078ELS 

ET-V«L(T«) 

10B71 IF T<1 OR T>M+1 THEM GOTO 16879 

19872 RH=9it>A=9iRUU=0:RUC = 0:RUC=0:RUP=8: 

RVU=0:DOU-0!Bkl-0:Bt<2'O 

19073 IF T-M*l THEM BQXF<24, 72)-< 175, 151 

>.-5iC0T0 7668 

10874 80XF<24,72)-il75, 151), -1 

10OBO RJ=l:RT=l:S=T:OM H(S) GOTO 18110,1 

8139. 19150,10170, 19199, 19219, 19239,10256 

,18278, 18296,10310,18338 

10090 GOTO 10500 

10180 Ht-'ECOMOniE D'ENERGIE':Z=3:U=9:C" 

5:G0SUB46:fl*''ET p:CR0ISSEMENT-:Z"4:H'=19 

:G0SUB48:fl»=-DE VOS EXPORTOTIONS' : Z=3=M= 

|[:GOSUB40:h«=-RECEVEZ':Z=9:W=13!C=2:GOS 

UB40:Hf=*5 f1ILLIARDS-:Z*7:U>l4:C=l:G0SUB 

40 

10165 A*«"D0NME2":Z«9!H-16!£>2:C0SUB46:fl 

*="2 UNITES »U CH0IX":Z=4iM=17:C=l:G0SUB 

40IQBTDIMM 

18118 RA>5:DOU=2:G0TO18588 

10128 Hi=-C0NSTRUCTION DE" : Z=5: U=9=C=5! G 

05UB46:Af= a F1ETHONIERS ET D' UN* :Z=3:U=16: 

GOSUB40!A(>'RESE8U DE GAZOOUCS'tH'l 1 iGOS 

UB*B:H*--pflYEZ-:Z=9:M=13:C-2iG0SUB46:fl*= 

"5 MILLIflRDS":Z=7:H=14:C=|:G0SUB4B 

18125 hI='D0HNEZ-:Z=9:U=16iC-2:GOSUB48:h 

!=■! UNITE (1U CHOIX-:Z=4:U=17:C=1!GOSU84 

0iG0TO18486 

18138 DA-5>D0U*l:G0TO185Be 

10140 flt-'EXCELLENT RENDENENT :Z*3;H=9:C 

=5:GOSUB40:ft*-"OE VOS USIMES" : Z=5:H'19IG 

OSUB40i«fGEOTHERHIOUES-iM.lHCDSU84B:fl 

*="RECEVEZ-:Z=9:U=13:C=2:GOSUB40:fl«=-10 

niLLlHRDS":Z=6:H=14:C=l:GOSUB40 

18145 Af>-D0MNEZ-:Z-9:U=16:C=2tC0SLI848:R 

*.-2 UNITES AU CH0IX":Z-4:H-17:C-l:G0SU8 

48:GOTO1B40O 

18156 Rn<lB!DOU-2:GOTOie500 

18168 «*=' INVEST I SSEMENTS" : 2*4:U=9;C=5: G 

0SUB4B!ft«--P0UP L« PR0SPECTI0M-:Z=3:M=1B 

iG0SUB48:At='DE GISENENTS' : Z=6:U=1 1 : COSU 

B4B:ft»="D0MNEZ":Z=9TM=13:C-2:C0SUB49:A*= 

■5 HILLIflRDS-iZ-7«N-14iC-liG0SUB4B 

10165 h«="DONMEZ":Z*9:M=16:C=2:COSUB40:h 

*="1 UNITE BU CH0IX-:Z=4!U=17:C=l:GOSU84 

8:G0TO18488 

18178 DA=5!D0U=l:G0TO185BB 

10108 8*- - PR0JET REUSSI":C-5:2=5:H=9:G0S 

UB40:n«-'OE GhZEIFIChTION" >Z-4:U-I8iC0SU 

B4BIA»-"DU CHARB0N-;Z=7:U-!1:G0SUB4B!AS- 

■PECEVEZ-JZ.8iN-14:C=2:G0SUB4B:At=-2 UMI 

TES CHflRBOM-iZ-4:U-!6iC»l!GOSUB48:GOTO10 

16198 RUC2' GOSUB 1B58B 

1628B a«**DECOUVERTE D'UN' I C=5i Z-4:U=9! G 
0SUB4flifl*=" IMPORTANT GlSEnENT" : Z=3:M=19: 
G0SUB48: fi*="OE PETROLE" : Z=7i U'l 1 : G0SUB4B 
!H«="RECEVEZ'iZ=8:H=14:C-2iG0SUB48:O»="2 
UNITES PETROLE ": Z=4iH=l 6-' C = l:GOSUB40: GO 
TO10408 

10210 RUP=2iG0T0I65O0 

10220 fi*='DECOUVERTE D'UN" : C=5: Z=4!H=9:G 
OSUB40:8l*-EMORnE GISENENT : Si= 10: GOSUB40 
:rt*="DE CflZ NftTUREL-:Z=5:H=ll[G0SUB46:fl» 
= "RECEV£Z-:Z=8:«=14-.C=2:G0SUB4B:h*=-2 UN 
1TES G«Z-:Z=6:H=16:C=i:G0SUB49:GOT01B488 
10238 RUG=2:GOTO16580 



Z-6' 



UR8HIUM-!Z=7:lt=ll:G0SUB48 



18:C0SUB4B 



■ ■RE 



^12:«TT 



?:fiTTRB 



l = 12:flTTI 



SE Z=14: 



*,72>-(l 



-B OR R 



C-2:GOSUB4B:«*="2 UMITES 
URHNI UN" :Z = 4!H=16:C=l:G0SUB48: GOTO 18480 

8250 RUU=2!G0T01B5B8 

0260 Hf="B0OM kRftCH- . _ 

,l!G05UB46:HTTRB!,liH*=-5 ET 7-:; 

:C = l:GOSUB40:OTTPB8, 0: GOTO 10480 

627B BKl'5<BK2*7:C0T0185e8 

028B H* = "B00f1 kRHCH-:C=5!2 = : 

.HG0SUB4B:ftTTRBl,l: 

lOH G0SUB48: hTTRBB.6: GOT0184B8 

B2?B BKl=6:BK2=4:G0TOI8r"" 

0380 A*=-800M KRflCH-:C=! 

. l:G0SUB4B!0TTRBI, !;«»-■■ ET B-Ii 

:C=l:GOSUB48:flTTRB0. 8: GOTO 18408 

0310 BK1=6:BK2=5:G0T0185B8 

0320 ftl = -B0OI1 KRrtCH*:C=5:Z = ; 

.1:G0SUB46:hTTRB1,1:h»="5 ET 4":; 

:C=l:GOSUB48:flTTRB0,8:GOTO18488 

9338 BM=S:BK2=4:GOTOI05B6 

0400 IF PT-1 THEN RETURN EL! 

:h*='SU1TE l':C=5!GOSUB40 

0485 M-N+l:Z=ll!N=2l:C=3t«TTI 

GOSUB50:flTTRB0,O 

0410 Tf=INKEY*!IFT*='- Oft T*> 
GOTO 18410 ELSE B0XF(24,72)- 
: RETURN 

B300 FORI=1TO20O:NEXTIiBOXF 

151),-1 

0518 IFDOUOB THEN C0TO186( 

0520 IF RUU06 OR RUCO0 OF 

IGO0 THEN GOTO18700 

0530 IF RAO0THENBA<J> = BA(.. 

0540 IF DhOB THENB0(Jj = 8P< 

0550 IFBK1O0 AND BK2O0 THEN GOTO10OO8 

0560 IF H<J)=M(S> THEN Hi J>=8iG0TO588 

8565 IF Z<J)'K(S> THEN 2< Jf=0:GOTO508 

0570 IF E(J>=M(S> THEM E( J)=0:GOTO5B8 

8575 IF H(J)«H(S) THEM U< J)=B:GOTO506 

0580 GOTO 506 

0600 B0XF(24,72>-<175, 151 ), -1 =Z=4:M=10: 

,*='VOUS DEVEZ DOMNER-:C=6!GOSUB40!Z=7:W 

12:flTTRBl,0!CHfl=DOU:GOSUB50:«TTRB8,B!Z= 
M=I4:nt=>DE QUELLE ENERGIE" : C=6:G0SUB4 

i:Z=3:M=16:fi*""l PETROLE" :C=2: G0SUB4B: Z= 

3:flt=-2 CHRRB0N-:C'7:GOSUB4B 

0610 Z=3iH=18:ft*=*3 URfiMIUH':C=l : G0SUB4 

■:Z=13:A»="4 GflZ-:C = 3:G0SUB4B:Z=12:M"12: 

F MHDI THEN R*=-UNITES-:C=5:G0SUB4B EL 
SE fl*=-UNITE'!C=5:G0SUB48 

8628 K* = IMKEYt:lF K«="THEMC0T018628ELS 
" 1 OR K>4 THEN GOSUB 1062 

0623 B0XF<24,72)-<175,151>,-1 

8630 ON K GOSUB 10640,10650,18668,18670 

0640 nH<J)=2:XRU> = TRP(J):G0SUB 1 

. J>.Bfl<J>-<CP«DOU>: GOTO! 8685 
0650 fiM(J) = 7:XR' ,J) = TRCU> : GOSUB 1 
CC*DOU>:GOTOL0685 
liXR<J) = TRUUKGOSUB I 

CU»DOUi:GOTO106B3 

3:XR<Jt=TRG(J>:E0SUB 1 

CG«DOU>:GOTO106O5 

JXDOU THEN Z-4!H-12)At=-V0U 
EM flVEZ PnS":GOSUB40:Z=6:H=15:flf=-EN 
RESERVE" :GOSUB40:PL8Y*PPPPP": GOTO 7009 
0685 0=1 :T=DOU! GOTO 7210 
0690 0=0= GOTO 10520 
0700 B0XFC24,72>-(175,15I>,-1 
0710 IF RUUO0 THEN HHI J> = 1 JT=RUU:Bflt; J> 
BH(J)»(T*CU):GOTO 10758 

0720 IF RUPO0 THEN flNC J)=2: T-RUP:BH( J) 
BA(J)+(T«CP>:GOTO 19759 

8738 IF RUC08 THEN CMC J)-7: T»RUC:BH( J) 
Oh' J'.. T«CC>:G0TO 19759 

48 IF PUG08 THEM HN( J> = 3: T=PUG:Bu( Ji 



B66B H«<. 
,(j>-B«<J> 

B67B OH (J 
i<J>-Bb(J)- 
IF XR 



;,.,-:,;, 



oh. . 



TiCG) 



58 0-1 i GOTO 7328 

0780 0'6:G0T0 1053O 

8B08 0-HRN-BKl 

0B05 B0XF<24,72^-<175,151),-1 

0810 COLOR. 0:Z=?:u = 10:pi» = " VOUS DEVEZ": 

COSU840:Z=5:tJ=li:p$="FflIRE FLUCTUER" 

:G0SUB48:Z=7:U=12:h«="UN COURS DE':C>6iG 

0SUB48:Z=11:U=14:CHh=RN:G0SUB5B:Z=3:H=16 

«»■■! PETR0LE-iC-2:G0SU84e:Z.I3::ft*-'B 

HflRB0N-:C-7iG0SUB46 

0828 Z=3:M=lB!flt= - 3 URANIUH" : C=l :G0SUB4 

:Z«I3:A*«-4 CAZ-:c*3i G0SUB48 

0830 T«=INKEY*!IFT*="-THEMG0T019839ELSE 

T=VAL<T*): IFT<10RT>4THENGDT0 10830 

8832 IF 0<>2 THEM GOTO B836 

8846 RN-BK2:GOT0 B838 

685B O=8:G0T0 1856B 



iORE-iFOR D=l TO 

-nu(D>+TRU(j>>»ccu-ie: 

BIB PLAY"D0RE":FOR D=l 
^(D>*TRP<J))4(CP-10 
PLftY-DORE-:FOR D=l 
'<DH-TRC(J>)»(CC-10 
B3B PLflY'DORE'iFOP 0=1 



(G(D)*TRG(. 



KCG-18 



183 0-D*l UF Bft<D>> = : 
AND G(D)-GM(D> AND P<l 
N<D> AND TRU(D)-9 AND 
■-S AND TRG(D>-8 AMD 



IF D-H 



1165 B0XF(24, 72>-> 

-■127, 151>,-B:B0XF 

GOSUB 18 

1116 COLOR, 7!Z=ZZ.D: 

:G0SUB46:Z=9!M-13:C> 

48:Z-4:U>16IC' 
GOSUB*0:REP*=INKEY1 



20888 COLOR, 0:C=5:Z= 



BA«D;=BA' 
D: RETURN 
BA(D>=BA< 
D:RETURN 
BA(D>=8A( 
D: RETURN 
... BA<D)-8A( 
NEXTD: RETURN 

AMD U<D>=UN(D 



THEN 11105 

™ "02 ELSE GOTO 11 



=5:Af=NOI1*(D 
GAGKE'IGOSU 
UNE AUTRE OU M" 
F REP»=" THEM 111 



6:H=7:L0CATE14,7tPR 
G0SUB36UF BA(J)< 
O THEM A*=-DEFICIT':C=l:Z=14:GOSUB40:FOR 

I=1TO10!PLAY-S1DOSI":MEXT 
20005 COLOR, 01 Z«25iH-LU(J>-l:A$-"URANIUM 
-:C = l:G0SUB*BJZ-25iH=LP(J)-UA*--PETR0LE 
"U-2: GOSUB40:Z=25!H'=LG<J>-l:A»="GAZ 
-:C-3:G0SUB48tZ-25tH-LC<J>-HA«--CHARBON 
-:C=7:G0SUB48 

20010 COLOR0,4:FOR 0=2610 37 STEP2:PSETt 
O,5>GR*(25),0:NEXT 

20828 FDR 0=26T0 33 STEP2: PSET(0,B)GR*<2 
5>,8!NEXT Q 

26030 FOR B-26T0 31 STEP2! PSET<0, 1 1 >CRI ( 
25>.8:MEXT Q 

28040 FOR 0»26TO 29 STEP2: PSETcO, 14 )CRSi 
25>.01MEXT 

2805O COLOR, 4:F0RK=17 TO 20:FOR 1=25 TO 
36:PSET'I,KJGRI'25-.0:MEXT 1 : NEXT K 
28060 IF UUl-0 THEN COTO20078 ELSEFOR I 
=26T0 (U(J>t2)*24 STEP2:PSETU,LU(J)>GR* 

25>. II NEXT I 
26078 IF PiJ>=8 THEN GOTO28088 ELSEFOR I 



-26T0 
' 25 .' , i 
29080 



26108 
ELSEI 
*c25). 
201 IB 



P'J,»2>*24 STEP2:PSE 

NEXT I 

F G'J>=8 THEN GOT02B89B ELSEFOR 

GO'«2>*24 STEP2:PSET<I,LG' J> " 

NEXT I 

F D.J'=8 THEN bOT0281B8 ELSEF 

D.J.«2"24 STEP2:PSET(I,LC'J> 

NEXT I 

0L0R,4:IF " 

OR 1-25 TO TRU 

(NEXT! 

FTRPi J>«8 THEN 

0TftPU>*24:PS1 



GR* 



GR« 



1*2! 
XT I 

26280 RETURN 

22106 DEFGRfi 1>=0,0.> 

22102 DEFGR«<2*"0,96 

22103 DEFGR*(3)-192, 

22104 DEFGR*<4)=0, 102 

22105 DEFGR*<5>=195, 
5 
2210b DEFGRS16)-102. 



.24,24.0,0,0 

96.0.0,6.6,0 
92,0,24,24,8,3,3 

92.8,0,102, 102 
95,0.24,24.0,195,19 



102 

22107 'LOGOS 

22108 D£FGRf'7i=8.20 
'CHARBOM 

22189 DEFGRt'8)=6.11 
238:'URANIUN 
22118 DEFGR*(9) = 24,2. 
■■'PETROLE 

22111 DEFGR«aB> = 24, 36.6i 
:'GAZ 

22118 DEFGRK49: " " 

22119 DEFGR*<50 

22120 DEFGR«<51 

22121 DEFGR*(52: 

22122 DEFGR»<53>=0, 

22123 DEFCR*<54>=f 


22124 DEFGR*(55>=i 

22125 DEFGR*<56>=( 

22126 DEFGJ»(57)-I 

22128 DEFGR*l25i=( 

26,0 

"" 1 DEFCR«(28^-i 



82.8.162.102.8.182, 



20,38,38,79,79,2 
174,70, 137,2 
36.68,126,66.66 
,66,68,36,36,36 



126, 



14,126,8 
1,126,0 
26, 12,0 
iao,b,/8, 126,0 
126.70,78, 126, 



»66, 



zi 



126,126,126, 126,126,1 
,60,60,60,253,126,60, 

2 DEFCRt<29'=16,48, 127,255,2 

3 DEFGR«<38)=24,60,126,255,t 

DEFCR*(31)=B, 12, 254, 255,255, 254, I 

3 DEFGR«(37>=225,243,235, 127,63,63, 1 
55 

6 DEFGR*(33) = 1 35, 267,255, 254,252, 252 
255 



126.8 



255,127,4 
66,60,68, 



1,233 



43,225 

22149 DEFCR«(39>=8,24,24,4B,e,B,8,B 

22150 DEFCRi( 65 J -8, 56, 116,226,254,254,22 



6,6 

22151 DEFCR»(66J-0, i 
52,6 

22152 DEFGR*(67>=8,1 
24,6 

22153 !■! ; ■■:■ 1 v ■:■ :i..-'. .: 
52,8 

22154 DEFGR*(69)-6,254,i 
34,8 

22155 DEFCR*(78>-0,254,i 
24,8 

22156 DEFGRX' 
24,8 

22157 DEFGRt<72)-8,226,i 
26,6 

22158 DEFGR*<73>" 

22159 DEFCR*(74>- . 
2216B DEFGR»(75>-e,226,t 
26,6 

22162 DEFGRt(76><-8,224,E 
54,8 

22163 DEFGR»<77>=0,226,; 
26, B 

22164 DEFGR*<7B>-0,226,f 
26,0 

22165 DEFGRfi 
24,6 

22166 DEFGR*<S8>-B,252,i 
24,0 

22167 DEFGR*i81>=8,124,; 
22,0 

22168 DEFGR*<82>=0,252,; 
26,0 

22169 DEFGRf<83)- 



24,8 

22172 DEFGR*<86/=8,226,i 
4,0 

22173 DEFGR*<87)«0,226,t 
6,0 

22174 DEFGR*<88)«0,226, I 
,6 

22175 DEFGR*<89>*0,226,; 
B 

22176 DEFGRf<90)"0, 254,i 



,226 


224 


224 


226,1 


1 226 


226 


22(. 


226,2 


.254 


224 


248 


824,2 


,254 


224 


24S 


224,2 


,226 


224 


230 


226,1 


,226 


854 


254 


226,2 


f 56. 


6,5 


»,56 

1 56 

EH 


124,8 


,226 


252 


226,2 


,224 


224 


224 


22*,: 


,246 


234 


234 


226,2 


,242 


234 


230 


226, E 


,226 


286 


£?b 


226,1 




226 


252 


224, E 


,226 


226 


226 


22B, 


,226 
,192 


124 


252 

14, 


220, £ 
42, IE 


,56, 
,226 


S6,5 

226 


>,56 
226 


56,8 
226,1 


,226 


226 


226 


116.E 


,226 


226 


258 


122,3 


,116 


56, 


16,1 


6,226 


,226 


116 


56, 


S6,56, 


,28, 


16,1 


2,2 


4,254 


,66, 


b,7 


1,78 


126,1 



, 126,255.255,255,255, 



22177 DEFGRK48 

22178 DEFGR4191 
126, 60:RETURN 
23000 DATA 21,5,34,18,37,5,50, 18,53, 5,6' 
.18,83,3,98, IB, 181,5, 114,18,133, 5 
,149,5,162,18,165,5, 178, 18, 161, 21, 194, 3' 
,181,37,194,30, 181,53.194,66, I 81,83, 19- 
98, 161,181,194, 114,181, 133, 194, 146, 181. 
49, 194,162,181, 165,194, 178 

23018 DATA 21,181.34,194,37.181,50,194. 
3,181,66, 194,85, 181.98.194. 181,181,114 
94, 133, 161,146,194,149, 181,162,194, 165, 
81. 178, 194,5,21, 18,34,5,37, 18.58,5,53,: 
.66.5.85.18.98,5,101, IB, 114.5, 133, IS. 1' 
,5,149, 18. 162.5, 165,18,178 
23828 DATA2,2, 197, 197.21,21, 178,178.23, 
1. 176,152.23,23,88.40, 119,23,176,40,23, 
2.96,69.103,42,176.69.23,159.88,176,11' 
159. 176,176 

23630 DATA 1 99, 7.312.24,199.29.296,50, 303 
,29,312,56, 199,53.296.74,363,53,312,74, 
99.77,296,98,383.-7,312,98,199,101,296, 
22,363,181.312, 122, 199, 125,296, 178,383, 
25,312,178, 199, 173.232. 197.238, 173,272,. 
97,277,173.312, 197 • 



CHOURRAX 



Voleur de renommee internationale. vous vous etes m- 
troduit dans un immeuble pour voler des coffres-forts. 
Malheureusemertt, le plancher pourri et les lampes pie- 
gees ne vont pas vous faciliter la tache... 

Fr6deric ABADIE 

Mode d'emploi : 

Les depiacemenis de voire personnage. qui se Irouve a gauche de 

I'ecran sur I etage superieur. s'effectuent a I aide de la manetle de 



THOMSON M05 






la (aeon s 

- Posilion 3, emplacement vers la droite 

- Posilion 7, deplacement vers la gauche 

- Posilion 5. CHOURRAX place sut lascenseur (carre vert), des- 
cente d'un etage. 

- Posilion 1, CHOURRAX place suf un coffre-fort (carre magenta), 
ce dernier dtsparail et le score augmente. 

■ Position 3 - ACTION, saut vers la droite. 

- Position 7 + ACTION, saut vers la gauche. 

Vous dispose; imtialemenl de 3 vies et en gagnez une a 10000 puis 
tous les 1 5000 points. Vous perdez une vie lors de la chute dans un 
trou ou lorsqu'atteint par le tir dune lampe. 



6 • • ABADIE FREDERIC • 

9 - *(••<■•••**"**•**•■■•***•*••* 

10 CLS:LOCATE0,0.0:<:LEBR,,5 

11 DEFGR*<0:'"0.B.e0. 126. 68,69, 126.255 

12 DEFGR*. l:-^.;^. 155,255. 136,60,24,6 

e 

12 DEFGR*. 2:"239, 239.0. 253, £53,0. £39, 239 

14 C'EFGR*'3 ■ =£4. £4. 69. 126.255, 24,0.0 

15 DEFGR*.4'.=255. 199. 199, 199, 19 a, 199,355 
,255 

16 G0SUB 9000 
1? ■ 

18 ' •••• HISE EN PLACE DU DECOR MM 



30 FOR 1=0 TO 39:lO:aTEI.10iPR1NTGR*<2>: 

NEXT 1 

40 L0CATEINTM*38»RND>. 101 C0L0R2! PRINTCH 

R*U27> 

58 CQLORMFOR 1 = 8 TO 39: LOCATE 1 . 14!PPINT 

GPt'2:,iNEXT I 

60 LOCATEINT. i+38*RND>, 14: C0L0R2: PRINtCM 

R*<1£7> 

70 COLQRUFOR 1 = TO 39: LOCATE I . I81PRINT 

H'l r.:N[.,I 1 

80 LOCATEINT. 1.38«RND>. 18: COLORE: PRINTCH 

R*U27> 

90 tQL0R8.6!L0CATE2.£4!PRINT , -Score : " J 'L 
OCATE 19. 24: PRINT" Etage : " ; : L0CATE3B. 24 :P 
RINT'Vn >•} 
95 COLOR,0:PSET(X,9:,GR«. 1 >, 81PSET. X.B'GR 



:oi-> ■:ol?p.'::fe.e t ' . 9 -cph i .-. *:FiET' 

GP*tB>,8:COLOP,0 

1030 PSETiX-l,9>" "iPStT>.X-l.8->" ■ 

1040 RETURN 



1110 

C"0 

1128 C0LDR,C:PSET<:.9GP*< 1 :•, 8:PSETi X,8' 

GR«i0),8:COLOR,8 

1130 PSET.X*1,9>" ":PSETIX*1,8>" - 

1140 RETURN 

1997 ' 

1998 ' *»** DESCENTS D'UN ETAGE «••■ 

1999 ' 

2088 COLOP1.0:FOR 1=8 TO 39: L0CATEI, 22:P 

RINTGR*i2>:NEXT I 

2018 ET=£T.l:DESC=INT< !*38«RND> 

AND DESC028 THEN PSET. 
'.£ ELSE PS£TtDESC*l,21> 



' DESC<: 
DESC,21>CHR*< 
CHR*<12?1,2 
2020 PSETill, 

31,3 



2030 OTTRB0, UC0LOP5 



2040 P0RTE=INT 
2045 IF SCREENi 
.PORTE, £1K>12; 
>£B THEN LOCATE 
2050 PORTE'INT 
2655 IF SCREEN' 



GR*'3>,3iPSET.28, 18.-GPH 



■••• BOUCLE PRINCIPALS 



:*1:G0SUB 100 



126 ] 



»=r and , 



..-.. X=X-l:G0SUB 1108 
130 IF P0INKX»8*4,84 =2 AND A-5 THEN GO 
EUB £600 

Wjj IF A-l AND POINT. X«8*4.65>=-6 THEN G 
OSUB 5500 
158 IF A«3 AND STR[Gi8>«-l THEN GOSUE 60 

liB If &=7 «W mtU(»a-l THEN GOSUB 61 
ee 

170 IF ET,£ AND PND L THEN GOSUB 5008 

190 IF ET'£ AND PNC L THEN GOSUB 5100 

190 IF RND>T THEN GOSUB 7000 

£0B IF SCREEN. K, 19.=32 THEN v!E=VIE-liGO 

SUB 2B86:G0SUB 11830 

201 -IF G-0 AND IC> 1 0MB THEN VIE'VIE- 1 :C 

292 IT G*l AND SC25B0B THEN VIE=V1E*UG 

£03 IF G»£ AND St'40000 THEN VlE-VIE*ltG 

=3 

£04 IF G«3 AND sC 55060 THEN VIE=VIE-l:G 

£05 IF C«4 AND SC'70060 THEN VIE-VIE+t'C 
-5 

£06 IF C-5 AND il 55000 THEN VIE»VIE»l:C 

=6 

210 COLOR0,6:LGr„iL;e,;jiPPINTSC) 1 LOCATE 

26.24iPR1NTEI;:l0':"TE36.24:PRINTVIE;:IF 

VIE=0 THEN 10000 

220 GOTO 106 



,«38«RND> 
PORTE, 17XM27 AND SCREEN 

' AND PORTEOU AND PORTE. 

: PORTE. 20:PRINTCHR*<!£7> 
>38»RND> 

IPORTE, 17)0167 AND SCREEN 
■F0RTE,21>O127 AND PORTEOU AND PORTE. 
2B THEN LOCATE PORTE. £0: PRINTCHR*. !£7> 
2660 ATTRB0.B 

2070 FOR J-l TO 3:LOCATE0,2£:COLORUPP!N 
TCR*(2>1" 

";GR*<2> 
208B PSET<X,6>" 'IPSET(X,7>" ":PS£T'X,8' 
GR1<.6>,8:PSET<X.« ■CPt' i :.8:NEXT J 
£098 RETURN 
3BB8 C>0<COLOR,B 

3010 PSEKX, 9>GP*.1'.8:PSET<X, 8>GP*.B>,8 
:PSET(X-1,9>CHR*< 127 :■ , 5: PSET<X-1, 8>CHR*' 
127>,5 
3828 RETURN 
3100 C=0!COLOR,B 

3116 PSETtX,9>GR*' 1 :■ . 8: PSEKX, 8>GR*(8>,8 
:PSET(X*1,9>CHR*(1£7).5:PSET(X*1,8>CHR*< 
1£7>,5 
31£0 RETURN 

4997 ' 

4998 ' *•** TIP DES LAHPES *«•* 
4S99 ' 

58BB LINE.92,64J-i 92.79:., 15: PLAVL203SIL 

fiiLAS0tS0FA*FAMIREtPED0»D0-:LINE<92.M<- 

<9£,79).B 

5010 IF X«ll THEN G0SUB1 1030! VIE-VIE-1 

5020 RETURN 

5 IBB LINE (228, 64>-.22B, 79) . 15:PLAY"L203S 

lLAtLHSOIS0FAiFAnlREiRE:'0tC0-:LINE(228,6 

4>-.£28.79),B 

5118 IF X=£8 THEN G0SUB1 1B30: VIE-VIE-1 

512B RETURN 

5497 ' 

5498 ' »••» VOL DE? COFFRES-FORTS •••« 

5499 ' 

5568 PLAY"L2404LALA»SI" 

5518 BONUS=INT< 1*1 0iRND >»106-i ET.10 ■ : jC= 

SC+BONUS!C-0:GOSUB 1020 

55£B RETURN 

5998 ' •*•• SAUT VERS LA DROITE •••« 

5999 - 

6000 IF X=38 THEN RETURN 
6005 FIHY"T5A0L3O4['ODO#RERE«" 

6010 IF P0INT.X*8*4.65>--6 THEN 0=5"C=8! 

S=5:ELSE 0=8:S=6 

6815 PSETCX+1,8>CR*'-] ) . 8: PSET<X+1,71GR*. 

0-.3iCOLOR,Q:PSET<:;,9: i" ■!PSET<X,8i" "IP 

SETiX*B*4,65),S:PSET.X«8+4.75),S 



6620 IF POINT. .>!♦! .«8-4,75>-5 THEN C"3 

6025 PLAVL304REtPEC0tD0" 

6838 IF X-:37 THEN -;-:■;♦£ ELSE :'. = :■>! 

6035 COSUB 1800rPSET.X-l,7>" " 

6040 IF X=38 THEN P;ETr38,7>" - 

6045 IF /.-I = ll ANf ET;2 THEN PSET'!1.~'C 

R*(3),3 

605B IF X-l-28 UND ET 2 THEN PSET.28. - >G 

R*<3),3 

6055 RETURN 

6097 ' 

6098 ' «»»• SAUT VERS LA GrtUCHE *«*« 

6099 ' 

6166 IF X=l THEN RETURN 

6105 FLAY-T5A8L304D0I>0»RERE*" 

6110 IF POINT. X»8*4. 65i=-6 THEN O=5'C=0: 

S-51ELSE 0-0: S-0 

6115 PSET(X-1.8'GR«> 1 ■, 8: PSETIX-1 . 7 •Gft*l 

B>,B:COL0R,O:fSFT.:.,4 ■■ ■ : PSETOS, 8> " M :P 

;.ET, .-»s.4.65 '.^P C ,[ T ' .>3*4.7S>,S 

6120 IF POINT. 'X-i *8+4,75>*5 THEN C«5 

6125 PLHV'L304RE«PED0»D0- 

6136 IF X>£ THEN K"X-E ELSE X=*-l 

6135 GOSUB 11B0:PSET.X*1,7>" " 

6140 IF X-l THEN PSET(1,7>" " 

6145 IF »1 = !1 AND ET;>£ THEN PSET(11,7)C 

R«<3),3 

6156 IF X*l=£8 AND ET>E THEN PSET.28.7JG 

R»<3>,3 

6155 RETURN 





?£52 ' •--' 

9259 * 

=260 CLSlSCREENB.etATTRBl, U COLOR 1 .0!LOC 

P.TE1S, 2i PRINT ■CHOURRAX" 1 ATTRW.8 

9270 C0L0Rl,0!L0C-TE4.5:PRINT' i Vour et«s 
CHOURRAX ":PSET(24,4 fiPj.B ■ . ':PSET 24. 5 • 
GRIU.',7iCOL0RliPRiNT- , u n uol«uf. ■ 
9280 L0CATE2,7:PPINT-Vouf VOIU «'as in*r 



92M 

PSET 

93BB 


L0CATEE.9! 

38,9>CHR*' 

LOCATE0,!! 


£7'^5:COLOR1 
PRINT" Voui 


;hr* 


12"' 


5 


»er d'etaje jrace »mx" 

=310 L0CATE2.13JPRINT "ascens 

7. 13 i;hp«i 1£7>,2iC0L0R1 

-320 LOCATE15.13IPRINT". H»i 
1 des" 

•IZv L0'I-TE2. 15: PRINT" li-Pt- 
GPf'3>.3:C0L0Rl:PRINT- qui -. 


e«r«-:PSE 
":PSET.9, 


5 


&340 


L0CATE2, 17 


PRINT"des *r 


m« 


111 V 




?35e LOCATE£,££:PP1NT-Pour . 
sur -J--:GGTO 9236 


.... 


.pp u 


• 


:-??8 


' •<•• 


NIVEAUX 




n 


.. 



6997 ' 



THEN P-P-l 
7810 COLOR, 0:PSETK 
7026 RETURN 
B997 ' 
B998 ' •■•• 



TROUS 
■'l*37*RNrj':IF SCREEN. 



9460 ClS:SCREEN1,9:hTTRB8. liL0CHTE9.6J 

INT-TRES FACILE —> I* 

9416 L0CHTE9.9:PRINT-FrtCILE 

> £" 

9420 L0CATE9, 1£1PRINT"M07EN 

-> 3' 

9436 L0CATE9, 15: PRINT-DIFFICILE 

■TRES DIFFICILE 



PRESENTATION 



9446 L0CATE9, 18:F 
- 5':ATTR86,0 
9450 EOINKEYf 



NT 



9000 SCREEN0,0,4:CONSOLE20,24:SCREEN0,6 

4:CONSOLE0.24:COLOR,0 

9016 FOR Li TO 160!PSET'INT(8 + 312-RND> 

INTi8*40«RND>:'. INTI1 + 15IRND ' : NEXT Z 

9020 B0XF(6,5J-.14, 14>GR»(4),4 

9036 B0XFU8,3>-<24,15>GR»<' 

9040 BOXFi£4,7;-i£9. 16>GR*. 

9050 B0XFi£6,B)-<3E, 17)GRIf 

9066 BOXF. 15r2'-<20, 17>GR*. 

9070 BOXFi 1 fl . 6 ■ - • 16. I* .GRI' 

9086 BOXFi 30, 6 ''-(?>>. ::■ ■f.Pt' 

9096 B0XF12,9>-(8, 16)GR*(4), 15 

9160 FOR H=l TO 29:READL1,L£ 

9110 LINEIL1,H)-CLHL2,HJ,7 

*i i*> NEXT * 

9136 DATA [4,6. 11. J £.9. 10, 1, 10.6. 10, 5 

.9.3, 9, 3, 8, 2. 9, £.8, 2, 7, 1.8. 1,7,1 

9146 DATA7,1.7,1,6,1,6,1,6, 1,6,2,5,2 

.4,3,4.4,3,4,3,5,3.6,2,7,1 

9150 L0CATEl£.2l:ATTRBi, 1 : C0L0R6, 6: Pi 

- CHOURRAX- : LOCATE 1 1. 22 :ATTRB1.B: PR IN' 

VOLEUR":ATTRB0.8 
9168 PSET<9,2B>C;pr ' : PSET 38, 26>GR*<8> 
^•'.70 PSET. 9. 21 >GP*' 1 >l PSET. 30.21 )GR*l 1 > 
9188 GOSUB lieee:LQi:ATEl,23iPRINT"Pour c 

9190 AS=INKEY*:IF «»<>"■ THEN 9£10 
9200 GOTO 9190 

9207 ■ 

9208 ' *•»• PEGLE ' JEU «•#« 

9209 " 

58!0 CLS: SCREENI, 9:-TTRB0,l!LOC«TEl 1.10: 

PRINT-LA PEGLE '} 1COLOR0. 1 : ATTRB! 

.i:PRINT'R' 

9220 ATTPB0.1: COLOR l.fl: LOCATE 1 1.15: PRINT 

■LE JEU > -;:ATTPB1. 1 1 COLORS, 1 1 PR 

WJ-iATTRBe-e 

9236 Z*=INKEY*MF Z» = "R" THEN 9266 ELSE 

IF Z*""J" THEN 9400 

9248 V=RND 

9250 GOTO 9£30 

9257 ' 



9470 IF Ef="2" THEN 



9490 IF E*«"4" THEN I 

9500 IF EM'S" THEN I 

9510 GOTO 9450 

9520 CLS:SCREEN6.6,4:C0NS0LE8,23:GOT0 20 



T-.97:G0T0 ! 

jTj.92:GOT0 95 

-.9:COT0 952B 
-.8:GOT0 9526 
«.7:GOT0 952B 



9998 ' ••■ 

9999 ' 

1OB0B FOR 



FIN DU JEU •■*• 

■0 TO 500iNEXTKiCLS:CONSOL£6. 



1883B AMINKEYCIF A* = -N' THEN CLS:CONS0 

LE8.£4JATTRBl,i:L0CATE6,18:PRINT-A LA F" 

OCHMINE": GOSUB 1 1028: COLOR81 L0CATE8. 0. ( 

END 

10046 IF A*»"0" THEN 9400 

16050 GOTO 1BB30 

18997 ' 

10998 ' ••*• HUSIOUE •»*« 

10999 ' 

110B6 PLBY"03T7fl£L£4Lh,L12L";I04L24DOLl£D 

0L24RERE03SIL12S1L2404HIL 

MIREL24D003L12SILAL24SI' 

11618 PLAY-L12nlLASI04DOREL24r1IL12r1IREMl 

FAREL24flILI2rtIREMtFAREHlL6FAHlLI2RED003L 

24SIL12LAL48LA": RETURN 

11028 PLAY" TSA103L IHI L24FAL12FAIL 

2PLAL40SIbLl£PFAIL£4SOLl£LflL£4SIbO4L12RE 

tH£L£4PE:REREHlL12[>0»03SlSOIFAtL24FAFAPSO 

•LA-iRETURN 

11630 PLAY-L5AflL20;M:FEnI"H;OLASILASOFAH 

IREM'IRETDRN 



BOMBER 



Aux commandes de votre bombardier vrombissant, ex- 
primez pleinement votre folie destructrice. 

Alain RIBOUD 




THOMSON TQ7, T07, T070 




«d% ^4^ 




,....,,...,...».• 

• BOMBER * 

• • 

• csncu par: • 

• • 

• Alain RIBOUD * 

JLEe.24iPOI-£^H603B.tB010eiie6:CLS 
10. l:L0£ATE6. 1 : PRINT"Pendanf It c 



;68 PRINT" 



116 C0LORl:L0CATE14. 15JATTRB6. l: PR I NT "PA 
TIENTEZ -ILOCHTEIO, 1 7: PR1NT"SUEL0UES INS 
ThNTS* 

1£8 LOCATE 0,22:COLORl:PRINT-Realise F=ar 
A. RIBOUD" 
I JO CLEAR, t,H69FF, 128:DlnGl' 128 > : G0SUB156 
BtIF PEEM6H8A08 WH36 THEN450 
140 G0SUB2118 

1*0 AD-1HBFC8: 'Adrtjjt it, 1* table at- ion 
169 P* = k 1C00B7F8023i:B8BC6CB23CB638C7B27C 
66E0C7E27C03FFFFFAFC6FFFFFFFFFFFFFFFFF3F 
FFFFFFF20FFFFFFFE283FFFFFFC20O30006C 6260 
3O00BC02" 
:".? QuiuB£050 

IsO AD=;h8FAI: -Hflrtis* tabli bouba 
IN P*="0180018003C003CB07E9066B0C300C3B 



i = -E-E7C3-jn.F-E-::i. :-„j.;.4.;:h-hih-^4 



250 P»="B6E7C384FEB7E7C386C7H4846A48A784 

39" 

irt- 'io;-UB2050 

£70 AD=(.HBF4B:-Roi>tm« affichaae ivion 

££0 PM-108EP. IN 0MC6MBOBF7aB6C7C3eA 

61B7E7C3A6A0A7g95.;2iEE3ee823108CBFFr;£DE3 

£90 GOSUB2650 

300 «D = ^HBEF0: 'Poutine avancee ai'ion 

;10 PM"BEC0083O05:68:BDBF7O3089£85Hi6F- 

E?E7C38»0ie T E-C7SK^gB7CO02BEC000860Ci:6B6 

:.'Ei6eO5H2',rE7^-t'-:;i4^£6F166C08£46£4e3BC' 

EC: OBr'6C-4S7«C802i6r.eBEC 860300 lBFCi?ee3?" 

?,-/. r,:iLiB2650 

770 m£. = iHBEC0 

7-0 P* = " 8680C tOtFl-.j 7- : l tOi-Fr>6033C601FD60 

71E-607«.C63rtBt-E81E39* 



75./ i:OSLiB205B 

366 WD=!.HBD80: 'Routine affichaae bonbe 
370 P*=-B6C606ei£5£«19B6C0e58160261£FCC0 
6'310635B862r.9? , :':.. : . c .>'.-F-L EO .^2^0139B638B7 
lO65FC:O00C3034^r; .:i:','!7EE,;O.;710SEBFHiBDBF 

-■:'^ e ■■:■■■■: h.v:e-e-: 7 i..:AiE['343oe8D8 10330000 

26EB39" 

;=:.; CO:ijB2050 

390 AD»«HBD40:'Poutine descente bo»b€ 

46e PI = "7DC86^i';->. ■IfJ'.'Ji.iVL ;?BEC0633:5: 

:':'2':386D3e282 _ nc-:: ::.VT: T -3.>:':rrC8037AC005 
■7£«3eBe£9BFC003er'BF9e3801BDBF96308eD7B6 
E7C3aA0SB7E7.:3L': -4E; ^i^i7.)^D34D26F5 3986 

0eB7cee5BEC0O3': :>ji:io-:E[-f->;o-:=i:'B7i*cea5E6F6 

7FC06539" 

-10 C'"JSUB295B 

420 AD=«-HBC00:'pil:-f3^e avion 



QUAERO 



Profitez pour une fois de loccasion qui vous est offerte 
de gravir lous les echelons. 

Frederic VAYSSE 
Mode d'emploi . 

Tentez de reussir 30 tableaux, en gnmpan! sur la demiete echelle 
du haul de lecran Les deplacements s'ellectuenl a laide de la ma- 



THOMSON T07,T07,70 






nette et ACTION petmel d'eviter voire poursuivan! Vous pouvez 
creer vos propres tableaux, definls en DATA de la maniere sui- 
vante : 

■ ler chiffre numero du tableau 
-2eme chiffre nombre de 80XF 
-36me chiffre : nombre d'echelles 

-Suite de chiHres : coordonnees des BOXF. suivies des coordon- 
nees haut-gauche des echelles. 



VAYSSE FREDERIC 
LAMARQUE J-LOUIS 



bO ■ 18/85/85 

70 POKE(.HE7C1.3£:C»NSOLE0.£4 

30 CLEAR, &HD900, 15: CLS:LOCATE0,0.0iSCRE 

EN3.8.9iFQP I-tHDOOl TO (,HD025:READA*iPO 

VE1.VAL' "tH"tA*:':NE::T:[>ATAB6,E7,C3,8H,01 

.E-7,E7,C3.8E.4e,88,H6.94,67.?F,FF.5F,H6, 

0l,H7.80.SC.Cl,27.26,F7.B6.7F.FF,A7,88,8 

C.5F,3F.25,E7,39 

35 FORI=8TO300:PSET INT> RN[>«319>, INTIRHD 

• 199) >, INT<RND«6*1>:NEXT 

90 DEFGR*<2:'=15. 18 , 34. 36, 68. 72, 152, £30 

108 DEFGR*' 31=8. 17.33.56,68.72,60, 112 

110 DEFGR*' 41=12, 18. 36. 68. 60,36,238,196 

120 DEFCR*<5>= 14.17,32.40,68,64,132,248 

138 DEFGR*(6)=20.34,34,47,88, 116,132, 138 

148 DEFGR*< 7 >« 12, 51.34,66,76,136. 136,248 

141 DEFGR*!8>* 1,6.24.36.36.63,68,132 

142 DEFGR*<9>« 255, 0.6,61, 33, 32,32, 56:DE 
FGP*i 18, =128, 96, 24, 196. 36, 34, 34, 33! DEFGR 
f 11) = 132.68, 68. 36. 39, 24, 6. l:PEFCR*'12> 
- 32, 32,33, 33,160. 0. 8,255 = DEFGR*' 13)- 33 
.34.34,36,196,24,96,128 

158 LOCATES, 16,0iATTRBl.i:F0R 1*2 TO 7:P 

R 1 NTGR*< I >JI NEXT JATTRBB.B: LOCATE 10, 16iC0 

L(JP5:F0RI=8T0ie:PR!NTGR*'I>;:NEXT:L0CATE 

10, 11:FORI = UT013:PR1NTGR*'I)!!NEXT 

160 rORI-1 TO 16e:EXECsHD68l:NEXT 

178 S'BIXH >=0:RESTCIRE39B:ATTRB0,0: SCREE 

N7iCQNS0LE6,24,liCLSiF0RI«eT016STEP2iL!N 

E<8.l>-<328, I>, INT'RND*7:>-MiNEXT:DEFGR*< 

■•24,110,94, 191, 191,94, 1 26, 24: DEFGR* U> 

'60,24,255, 189,68.36,36,36 

ISO C0KS0LE6,24:ClE: JCfiEEN. 0, 0!AA=59343: 

BE=59341 :POKEAA,0!POKEBB, 63: POKEAA, 4: 

190 READF1ONERRORGOTO630O8 

280 READA1,A£:F0R[=1T0A1:R£ADA,B,C,D!B0X 

F< A.B>-iC,D).-3!NEKT!B0XFlO. 192)-' 320,20 

,-3lF0RI«ITGfi2iREADA,BiF0RJ"B T0B*£4ST 

EP3:PSET<A,J),-2iNEXTJ,l:A=5=B=£3:C=30:X 

■200! LOCATE t,0:PPINT"SCOREi"; Si CONSOLEE, 

24:XC2>«6 

E10 BOX'6,0>-'320, 15), -3i LOCATE2O,0fPRIN 

T- TABLEAU! "iFUOCATEl 3, 0: PRINT"") "; X< 1 > 



£28 X=X-i:L0CATEA.t.:PPINTGR*'l.:IFB=2THE 

&rORI=lTO50:A=. I 'Mrj[.iO*l:PCHEBB.0:POKE8B 

■ «:NEXTi IFX:eTHENI?0ELSES = S'-X: GOTO 180 

2:0 E=RWDMFC>X(2 ■ i H THENC X< 2) )=C(X<2) 

>-E ELSEIFC<Xl£>)'A THENC'X'2>>«C'X<2>>+ 

E 

248 IFA=INT<C<Xl2- > 'THEN F0RI-20T08STEP- 

2iPOKEBB.8iP0KE8B.PNEXT!X'l>«XU>-HiLOC 

hTE!5.0:PRINTXU'! IFX< 1 ,' = 3OTHENFORI = 30TO 

9STEP-.l:POKEBB,6:P0KEB8,I:NEXT:LGCATEl, 

l:PRINT"UNE AUTRE PART IE " : h*- INPUT*'. 1 )!I 

Fh*="O"TH£NI70LL££: jIJIOLE^. 14 :CLS: SCREEN 

,0:G0T0348 

258 CLSSLOCATEABS' INT<C'X'2;s:. ■,B: PR I NIC 

Pt'O'UFPQINT' A»8*4.B*8*14> = -|THENB=e*l! 

GOTQ220 

£68 ONSTIU.9>GOTrj£fi0. £80. 290,290, 310. 31 

8.328.320 

278 G0T0228 

288 lFP0INTirt*8*4. 8*8-1 K--2THEN220ELSEB 

= E:-j! :■:<£) = >■:■; 2- + 1 -roi--: G0T0226 

256 IFH-39THEN228ELSEIFSTRIGI81THENABA+3 

ELSEA=A+1 

380 G0TG22B 

310 IFPQENTi A*e'4.B»e*14>O-2THEN220ELSE 

5 = 6-3: >:■ 2) = AES--:-:<2 - l :■ : G0T0228 

328 IFA«eTHEN£E8ELSEIFSTRIG< 0'THENA-ABS' 

fl-3 ELSEA=A-1 

338 C0T0228 

340 FORI=OTO2eOSTEP2:LIN£(0. 1 :■-' 320, 1 >, I 

NTIRND*7*1>!N£XT:CLS!L0CATE2.12:PRINT"SC 

OPE:"lSs"AU";F;"ie»* TABLEAU" : BOX' 0, 96) - 

(320,104>,E 

358 PRINTiPRINT" ■iPRIHT" Au reuoir et 

a bier>tot ..." 
378 FOR 1=0TO1B8:FORJ=5TOBSTEP-1: SCREEN, , 
J: NEXT J, I 

375 FOR H-I TO 3 

376 F0RI-eT015STEP.5iP0KEBB,6:P0KEBB, UN 
EXT:FGRI-15T0BSTEP-.5:POKEBB,O:EXEC(,HDBO 
l:POKEBB,HNEXT[,H: i LOCATEB. 8: P0KEIHE7C1 
,56=END 

380 M 

390 DATA 1, 6, 11,8, 48. 320, 56, 0, 72, 328, 88, 8 

,96,320,104,0, 120,320, 128,0. 144,320, 152, 

0, 160,320. 176.0,24,200.40, 160,72,300,72, 

50. 96, £00, 96, 100, 1 £0,50. 144. 180,144, 188, 

168,208,168 



BOMBER 



Suite de la page 9 



438 P*=-7FC0e77FCee6CC4O8eFDCe8eFCC0a8C3 

^118FDCee0BDBF40BEC0e06[>89eiE5261E8DBEPe 

Bt'BC'B07CC00686£8BlCO06£6E77FC0067CC0e7e6 

15B1C00726CE3939" 

440 G0SUB2B58 

450 ATTRB8,l:L0CATE18.15:PRINT-Pour decc 

Her appu;.ez"!L0CATE7.17:PRINT" deux foi 

* *ur un« touch*." ifiTTRBO.6 

468 BOXF<8,£0>-<39,22)- ■ 

470 BOXF<0,23>-<39,24>" '.,8 

480 POKEtHC000,S:H5A:pOKElHCe81,tHEOiEXEC 

tHBF48 

490 A*=INKEf*:X«RND! 1FA*-"" THEN498 

500 A**INKEY*!X=RNDl IFrt*-"* THEN5O0 

510 A*=INKEY*iX=PND!IFA*='" THEN510 

5B0 FOR 1*1 TO 48iEXECtHBEF0:FORK«l T080 

-4*I!NEXTKINEXTI 

530 POKElH683B,&BeiOeil08:BOXF<e.2I)-'5,. 

E2) . . 

540 VOL-=0iPQKE(,HE7C3.PEEkUHE7C3 , GRei:PO 

(.:EiMC0O8.0iPOKE&HCae9,8 

550 VOL-VOL'-l!HAUT«10*£*VOLiIF H0UT>19 T 

HEN HAUT=I9 

568 PO*ELH683B,t<Bei0Bei0e:CL5 

57C SCREEN,,! 

?;■:■ G.JS!jBI34B 

590 EXECtHBCB0i ITPEEKt LHC087>>lrH14 THEN6 

08 ELSE808 

600 POKElHC000,4H5A:POl-.EtHCOei.SHE0:E>:EC 

|tHRF40 

618 B0XFl6,23>-'39,24)" -,,0 

628 FOP !■=! TO 28 = EXEC(.HBEF0:F0RKe1 TOi J 

NEXTKiNEXTI 

630 P«PEEKaHC808:'*c^6<-PEEHl.HC009:' 

640 ATTRB0,l:COU=£B818811O0!POKE(H603B.C 

ou 

650 ON VOL GOSUB 1118.1138,1150.1170,119 

0, 1210.1230, 1250,1278 

660 COU'tBONOlieO IPOKEI.H603B,COU 

£78 ATTRB8.0:lDCi;il;V..^:P= IMTG*(4):F0R 

D-0 TO 201NEXT:LOCf.T££-,;;:pRlNT- " 

680 FOR 1=26 TO 6 STEP-31 LOCATE I,22iPRI 

NTG*<6):FORP=0TO20INEXTDJLOCATEI,22:PR1N 

T* ■ 

698 LOCATE I -1, 22= PRINTGI10) : FORDe0TC28: 

NEXTD:LOCATEl-l,22iPRINT" ■ 

700 LOCATE I-2,22!PRlNTG*(3>:FORD=eTG20! 

NEXTD:LOCATEI--.£;:PHNT" :■«£:-.■: 

718 LOCATE6,E2iPRINTG*(4)iF0RDE«l T0188' 

NEXTDE!L0CATE6,£2>PRINT- - 

720 FOP 1=6 T026 STEP3:L0CATE I, 22! PRINT 

GI'7)!F0RD"0T03etNE):TDi LOCATE!. £2 = PP1WT" 

"30 LOCATE I*l,£2iPPlNTG*( l.'!FORO=0TO30: 

NEXTDiL0CBTEl»I,2£iPRINT' " 

740 LOCATE I»£,2£:PPlNTi:i £ :■ : FORt'=8TO30: 

NEXTt:L0CATEl*£,£2iPRlNT- - i NEXT I 

758 LOCATEE7,2£:PR1NTC*'5>:FOR t-0 TO70! 

NEXT:L0CaTE27.££!PRI»T- ■ 

768 F0Rl»28T01£TEP-l!POKEtHC88!,l.HEe*I'E 

XEC4HBF48!B0XF<5*I,28>-a8.I,2E)' 'iNEXT 

770 POKE1HCO0O, lH5A!POKEtHCO01,tHE0iEMEC 

I.HBF40 

780 FOR 1 = 1 TO 40:£>:ECSHSEre:FORk=l T080 

-4«l:NEXTKiNEXTI 



410 D«Ta£. 13, 12.0.49. 119,56, 136.48,175,5 

6.200.46,320,56,0. 7£, 175,80, 184,72,311,8 

0,0.96. 119, 104. 136,96. 191. 104,208,96,328 

,104,0, 120,143, 128, 168. 120,326, 128,8, 144 

.183,152,200.144.320.152,0.168.320.176,8 

.24, 15E, 46, 258, 48, 0.72, 176. 96, 318, 96, 108 

,120,288.128 

420 DATA50. 144, 160, 144,310, 144,120, 168 

430 '3 

440 PATA3,8.9.8,48,79,56.96.48, 175,56, 19 

2.48,320,56,48.72. 160.60.96,96,206,184, 1 

60. 120,280.128,280, 144,320,152,88,168.32 

8. 176.0. £4. 49. 48, 151.72. 199.96.279,128,2 

06, 144.216.144,96, 168.258. 168 

450 '4 

460 DATA4.9. 9,0.48, 71,56,88.48, 160,56.88 

,72, 208.80,0,96, 159, 184.176,96,287,104,3 

04.96,328.104. 188. 120,208. 128, 128. 144.28 

0. 152,56,168,270. 1 ^6, 0. 24, 151 . 48, 104, 72, 

180,96,185,96.128, 120.191, 144.60,168,268 

, I6S 

470 '5 

4B8 &ATA5. 15,9,8,48,63,56,80.48.151.56,1 

66.48.239,56.256,48,320.56,0,72, 109,80,2 

40.72.3E0, 80,0, 96, 55, 104,64.96,119,104,1 

£8,96, 199,104.203,96.320, I 04,0, 1E0, 63, 12 

o,80, 120.320, 128.8, 144,31,152,48, 144,320 

, 152,0,168,320,176,0,24.310,48,30,73,300 

.72, 168,96,28 

496 DATA1£6,308, 120, 160, 144,50, 168 

580 '6 

510 DATA6.7,9.8.49, 100,56,0,72.151,80. 16 

8. 72,320,88, 0,96, 326, 184, 0,126,80. 128.8, 

144. 160, 152,0, 168, £86, 176,8,24,32,48,52, 

72, £68, 7£, 0.96, 75, 96,45, 128. 100,144,250, 

168 

520 '7 

530 DATA7.10, 10,0.48, 103,56, 120,48,224,5 

6.128,72,127,80, 136,72,184,80, 184.96, 143 

.104, 160.96.256. 104,50, 120, 127,128, 168, 1 

28,270,128,80,144.250,152,100.168,160,17 

6. 0,24, 170, 48, 120, 72, 180, 72, 128, 96, £50, 9 

6, 188, 120,235, 120, 160, 144, 110,168 

540 '8 

550 DATA0, 15,7,0,43,80,56.40.72,135,80,1 

52,72,207,80,224, 72,320,80,0,96, 159, 184, 

168.96,231, 184,248.96. 320. 104,0. 12B, 111. 

128, 128, 1 £8,175.1 £8. 192. 120. E39. 128,256, 

128.320, 128, 176, 144,215, 152. E3£, 144,320, 




15£,8,168.129, 176. 146. 168.238. I 

4.48,318,72,5 

560 0ATA96, 310. 120,193, 144. 



168.96.216, 104,0. 129, 3B. 1£S. 96. 120, 184.1 

28.19E. 1 £0.280, 128. 140. 144.320.152, 140, I 

68.258. 176.0.24,96.48. 176. 7£, 17.96,88.96 

.126,96.258. 120. 148. I 44. 148, 144, 1 56, 144. 

206.168 

598 '10 

660 DuThIO, I 3. 22, 8, 48, 7, 56. 24, 46. 1 3. 56. y 

0.48.500. 56. 48, 7£. 150.88.46.96.186, 104,8 

. 120, 39. 128. 5*. 120. -5. i ii . 104 . 120. 1 1 9. 12 

8. 136, 120. £16. 1 £8. 48, 144. 103, 152,112, 144 

.288.152, 16. 168. 1 43. 176.224. 168,256,176, 

0.24,88.48,96.48, 140.48, 170,48,56.72.64. 

72.64,96 

610 0ATA104.96.16. 1 20, 56. 120, 152, 1 £6, 160 

,120,168. 120.48. 144, 103, 144.176. 144.232, 

144.32, 168. 128,168, 136. 163,224,168 

620 '11 

636 DATA11, 16, 11.0.48, 175,56,192,48.255, 

S6j 168.72.224.88.96,96, 192. 164,64.120, 12 

7.129. 160,128,224. 128.32, 144,95. 152. 192. 

144.266. 152.8, 166.63. 176,256. 168,320. 1 '6 

,8,24,286,48, 176, 7£. 112,96, 176,96,80,128 

.288,126.48. 144,272, 144.8, 168.320, 168 

640 '12 

656 DATA 12, 6, 7, 8. 48. 288. 56. 224. 7£, 328. 88 

.96,96.256. 184,8, 120. 128, 128,0, 144,256. 

52, 224,168,320, 176, 0,24,208.48, £32, 7£, : 

0,120,250, 144,380,168,96,96 

660 '13 

67* [.Hit, 13, 6, 18. 8. 48, 320. 56. 32, 72. 288, E_ 

.64,96,236,104, 128, 128, 192,128,96,144,22 

4.152,64, 166,236, 176.6,24,40,48. 104,48,7 

2,72,200,72,208,72, 136,96.144, 128. £10, 14 

4,64, 168 

688 '14 

690 DATA 14, 10, 1 1,0, 48, 95, 56, 1 1£, 46, £E4,5 

6.64,72,128.88,192.72,320,60,96,96,168,1 

B4, £36 f 96, 320, 104, 128, 120, 191, 128,224, 12 

0.288,128, 160,144,236,152, 128, 168. 191, If 




-98 G0T0550 

800 CO»PEEK<tHC006.!Ll«PEEK(tHC007>iLlG» 

LI-2I IF LIC<1 THENLIG-1 

818 P-PEEK<&HC0e2J*256tPE£MtHC069) 

820 PLAY-O3L30LA" 

838 COU«(.EeieOU0O :P0KEtH603B,C0U 

646 B0XF(CO.LIG)-<XO»5,LJ*2>" " 

£50 Prt-LIHF Pfl>19THEN Pfl=19 

360 FOR 8-9 T031LOCATE CO. PA.Oi PRINTPAR* 

CO) INEXT 

870 FOR 1=LI*1 T022 

888 LOCATECO + 3, I-M PRINT" "iL0CATEC0*3 

.HPRIKTAVC*iPLAY' , 01L24D0- 

890 NEXT 

980 FORPA'PA TO 19iF0R 0-0 T03JL0CATE CO 

,Ph+0:PRINTPAR*(G/!FOR D=l TO30: NEXT! NEX 

T i NEXT 

910 LOCATECO.201PRINT" " t BOXF< 6,0)-<39. 



950 ATTR80,0!LOCATEIO,9:PPINT-VOUS AVEZ 

GhGNE ■;?!-*■' :POKE5HC008.0:POk'£tHCe09,0 

960 LOCATE10, 10:PP1NT-UN AVION COUTE 108 

Of": IF BEN>-I THEN 970 ELSE980 

970 LOCATE10, 1 1 : PRINT -VOUS AVI EZ" SBEN! "* 

■:C0T099O 

980 L0CATE16. 1 1 ! PRINT "VOUS C'EVIEI*) ABS'B 

EN);-*" 

590 BEN«P-1O00-,BEN:IF BEN; -I THEN 1060 

ELSE 1030 

1068 LOCATE 1 0, 1 2: PFINT"AFRES ACHAT IL V 

OUS" 

1010 LOCATE 10,13!PRINT-REST£RA "JBENC* 

1026 GOTO1050 

1C-30 LOCATE 10. 12:PPINT"MPRES ACHAT " 

1040 LOCATE 10, 13lPRINT*V0US DEVREZ^ABS 

•BEN)!"*- 

1850 L0CATE10, 15 = PR INT "Voul'z uous re jOU 

e<-7 iO-'tn'i R*=INPUT*<] MIF R*-"0" THEN 

540 ELSE IFP*s"N" THEN 1060 ELSE 1058 

1060 CLSJA7TRB0, IMF BEN >-| THEN 1078 E 

LSE1090 

1070 L0CATE5,6:PPINT"Voui *<'!> done 4 *9n 



iBEN; ' 
I END 



1110 L0CATE13, 18! PRINT" J' »1 9* 9 ne "iPi't 
'"!L0CATE13,13!PRINT-Je '»i* un« h»ltt" 
iL0CHTE9,16iPRINT"et ji rtptri • l'attio 

1120 RETURN 

1-30 LOCATE13.10!PRINT"J'»i gtgne "!P!"* 

'"iL0CATE13.13;PRIWT-Je Blise un coup': 

LiCHTE9.16iFRINT''«t jt rtP.ri » l'«tt«4U 

1140 RETURN 

1 ISA L0CATE13. IBlPRINT"J'*i »»»ne "IP!"* 

! "! LOCATE 16. 13! PR I NT ''J' en chie" : LOCATE 1 
0,16iPRIHT"*(«»i «» uaut 1« coup"- 
1160 RETURN 
1170 L0CATE13. I0iPR[NT-J'si gsane -;Pi"« 

'"!L0CATE16,13iPRlNT , 'C'«*l l« pi«d" 
MiO RETURN 
1150 L0CATE13. 10iPRWj'»i 9 »^s ■Jpl'l 

1 "IL0CHTE13, !5iPRINT"Je full j« uilliu 



1220 RETURN 

1236 LOCATEn.lOJPRINT-J'*! itwe -:P,-"* 
■ h !LOCATEI3,15:PRINT"Je Suis le aeilleu 

1249 RETURN 

1250 LOCATE!3,!0!PRINT"J'4i laint -!P|«* 
'":L0CATE13,l5iPRINT"J« iuie le aeilleu 

1260 RETURN 

1270 L0CATE13.lOiPRINT-J'»l 9*«ne **PJ"« 
"-■L0CATE13, ISiPRINT-J* full 1* Milllu 

1280 RETURN 

1290 P0KEiHCeaCi,::ii5H:POi EtrC08l,(.HE0!£XE 
C;HBF49 

1390 FOR I-! TO £81 EXECSHBEF8: FOPK-1 TOI 
■NEXTKINEXTI 

1318 F-PEEK<IHC09S>*E5&*PEEK<«.HC999> 
13E6 INPUT" "(A* 

1340 PRINTCHR*i2O>!POKElHC9O5.0 
1350 PRINTCHR*'20'.iPOKElHC085,8 
1366 FOR C0=1 TO 11 

1370 C0U*lNTvRND»16 i : I F< C0U=4 )ORtC0U=8) 
THEN1378 ELSE COU=t E8098O 199 0R<C0U»6'!P 
■-I t: H693B,C0U 
1308 E £UHBEC0 

1390 in-INTHAUT*PND>HF IH- HBUT '3THEN I 
H=HAUT'3 

1400 ln*<ltt'RND*3:' 

1 410 LINEiie+2*CO,£2-H1>-'10t2*CO,22>Irl* 
1420 EXECtHBEC8 

IJ30 LINE' 1I + £«C0.£2 ■-< 1 1 *2»C0.22-iri> IN* 
!PRINTCHR*'8> + CHR* 1 8.>*CHR*'ll>Tt*<4.INT 
C3«RHB)) 
1446 EXEUH8EC0 
1456 NEXTCO 

1468 l>0xr<6,S?-i39,£4>" ",,9 
1479 B0XT(e,»)-(5,E4>" -,,1 
14 60 FOR 1-9 TO 3 

:4;tj c oj= i nt ■ f .me * 1 6 ■ : ■: uu= >: f ■ u .joooo.;- ;p' : 
OiJ»6>lPOKE*H603E,COU 
1568 L0CATE6 + 7«l.£3iPP]NTG*'RND«18.' 
1518 COU«INT(RNC*T6'i:OU«iB10800090 OR'C 
0Uf8'':POKElH6038,C0U 

1520 LOCATE8'-7iI,£3!PR[NTG*'RND*4*£0) 
1530 NEXT 
1540 RETURN 
1556 END 

1560 DEFGR*l6> = 24.£4.72. 128,24,8,8,24 
1578 DEFGR*a:"=24.2o,lB.36,24, 16,16,24 
1580 DEFGR*i£^24.£4. 16, 126. 16,48,68,162 
iG*'6>»CRt(e>!G»' r- = GP*U >!GH2>-GR*(2) 
1590 DEFGR*<3,=24.£4,7£. 126.8,28,34, 162 
1660 &EFCR*'4:. I 56.56. 16.254. 186,56.40, 10 
S'G*<3>«GR*l3>iG»'.4>=&Rli4> 
1610 r)EFGR»<5)»S6, 56, 1 46. £54. 56. 56. 40, 18 
6iGi..5>»C»*(5> 

1620 DEFGR*' :*>-S4, £4. 72. 62,?. 28, 18.54 
1630 DEFGR*i7',.£4.24, IE, 124. 144.40,72,10 
8iG*<6>«GR*':6)iG*i7>«CR*<7> 
1640 D£FGR*iB>=0,4,7. 135. 124,124.68.68 
1656 DEFGR*' 9>=0. 32, £24.225,62,62,34,34! 
G*(B)-CR*<B)iG*(»)-CR#(9> 
1660 DEFGRi' 10 ' = 255. 157, 153.255,153,153. 
£'.:■. £ = ":G1' [O^GPJ. IB..«GP*ae) 
1670 DEFGR*' 11 '=255. 153, 153-255. 153, 153, 
: 77. £55: G* ■ 1 1 > = GR*-: 1 1 :' + CR*<II) 
1680 DEFCR*' 12 ' = 255. 255.155. 195.195.195, 
:55.£55:G*i : £ .■ =r_.ST' 1 £- -*&Rt(.l£> 
1690 DEFGR*' 17 - = 255. f 55. 255. 195. 195, 195, 
1 1-5.1 ?5!G*' :7-(]KJ. lf..tLR*(|3) 
rOC- ['EFGPJ' 14'=7.7.5.£5.67.73,£01,255 
1710 DEFGR*' 15 =192,224, 144. 152.252, 146, 
147.2S5!G*'15)-GRf(14)-GR*U5) 



1720 DEFGR*' 16)«0,9. 0,9, 63, 73,201, 255t 
1739 DEFGR*' 171-0,8,0,0,252. 146,147,2551 
GJ' 17 ..«CR*< 16>*GR*{17) 

1749 DEFGR*<I8)-1,3.7.15, 17.49, 113,255 

1750 DEFGR*a9>-128. 192,224.248, 136. 149, 
142,255.-G*'19>-GR(vl8>-GR*':i9> 

1760 DEFGR*<20>-1, 63, 56, 254. 179,75,72,48 
1770 DEFCR*<21>^12e. 128.64,96, 152, 164,36 



i,25, 37,36, £4!G*(2 



1768 DEFGR*<22)>1, 1,2,6 

8)=GR*<28>*GR*<2i: 

1796 DEFGR*(23)»128,252,28.127,£85,£ie, 1 

B.12 

1300 DEFGR*'24*-3.7, 14, 127. 127,222,36, 12 

:G*i21>«CP*<22>*GPH£3> 

1810 DEFCR*' 25>*254. 17, 16, 255, 255, 255. ( 



1820 D£FGR*<26>-0,9.128.254.£55. 169,69,2 

4:C*<22,-GR*'24 ■*-GR*'25)*GR*<26) 

1836 DEFGR*'27)>'0, 8,1.127,255,189,60.24 

1840 DEFGR*(£B)-127, 136,8,255,255.255.8, 

e 

1650 &EFGR*i29>«192.224, 112,254,255. 123, 

128.48tG*'2S)-GR*<27).GP*'28)*-GR*i29:. 
1868 DEFGR* '2? ' = 1=2 .224. 1 12-254,255, 123. 
120.48iG*'23:"GRr'27>*GRl'2e) + GR*'29> 
""") DEFGR*' 32) = 32, 48, 24, I 48,252,246,243 



.225 
1868 r 



189S t 



f-6 -Gt 



G*U0:'iM*a)-G»' tlUNtCB) 
G*U3>!r1*'4>*G*' I5)lflt(5) 
£6,255,255.255, I 



1900 DEFGR»<38)' 

3,15 

1916 DEFGR*' 31 >-0, 3. 7. 23, £47, 251, 239. 255 

1926 DEFGR*' 32. -32. 46. £4. 140.252,246,243 

,£25 

1939 DEFGR*'33>-7,31,63. 1E7.255.255, 159, 



68 

1940 DEFGR*' 34 >-22J. 248. 252. 254, 255 

249.34 

■■ 35'. 6-. 



255, 



..268.224,192, 1 



1950 DEFGR*' 

1960 DEFGR*' 

28,128 

1970 DEFGR* ' 37 -159. 255. 1 5. 7, 6, 14, 12, 28 

1580 DEFGR*' 3S.-245. 255, 240, ££4,96, 112,4 

8,56 

1998 AVC*-GR*'30)»GP*(31)*GR*'32> 

2000 PAR*U)-CR*'33) + GR'*<34> 

2019 PA**<2)-G(t*<35>+GR«<36> 

2020 P»R«<3)-GMC37>+GR«(3B) 
2030 PAR*<fl>«* ■ 

2046 RETURN 

SBSI &"V*RPTR' PfJ!fi(4)-PEEK(D)^2 

2066 A'6>*FEE*"D-I .:A<i:..PEEK<D+£. 

2676 AC2'-INT-HI 856):fi'i. = H['-»'2 *£56 

£636 FORI-0 TO4IPO^E*H66E0*I.A'n;NEXT 

2UJ0 E-XCf-HBAOe 

£169 RETURN 

2118 ' 

£1£9 AD-1.HBA90! -Routine tr»ns*cr-B*tisn d 

n uileur nuaenquef. htttrs adrcsse thai 

ne dan* (H69E9 . tdrcisc 4'ikplintaiion 

dan* JH68E2 tt len £ dans iiH69E4 

2130 P«»"367FS66j; r -Jt -EEul.:'5EE2AD6C670AE 

4£6F?377F39AD6f0:-::]07['E-:i-.r.8C95EBC9E7A 

y39E680C030ClOA2['02C09739" 

2140 FOP I'l TO LEN'P*>'2 

£159 H-ASC'rlID*'P*,2*I-l,l.:'-48!H-H< 

>9) 

2I60 L«ASC'HID*'F*.£*I, 1 > >-48J L=L-7* 

2170 P0^EAD-1'I,16»H+L 
2160 NEXT 
2190 RETURN 



CODE SECRET 



Decouvrez avant quiconque, I'important message se- 
cret que se disputent les puissances etrangeres. 

Didier VERNUSSE 

Mode d'ernploi ; 

Se joue a deux espions. les regies secretes sonl incluses. 




T/99/ BASIC SIMPLE 



UV MoT i£C£ET te CACHE 
DAM CETT6 0Pfue.nvP 

PUIS ffJ'iHte FOli 



M 


A 


H 


H 





K 


R 


V 


A 


w 


6 





* 


P 


3 


w 


F 


L 


( 


<P 


H 


2 


F 


T 


P 


N 


V 


u 


C 


<? 


Y 


o 


H 


L 


F 


6 


T 


e 


& 


M 


y 





K 


T 


y 


p 





P 


2 


u 


v 


A 


M 


S 


<P 


K 


5 


p 


L 


R 



£Z 



ftf KU l* 
5 ffl( F 



1 CALL CLEAR 

2 CALL COLOR (14. 6 
7. CALL COLOR! 15." 

4 CALL C0LORU4.i.. 

5 CALL COL0RU3.6, 14) 

6 CALL COLORf 1 1 . 16. 14) 

7 CALL CDL0RI10. 10. II 
S CALL CDL0R<9. 10. 1) 

9 CALL CHAR(103."00382C3COE060603") 

10 CALL CHARU02."001C143C30606060"; 

11 CALL CHAR(101."O33F7BE3O7OF6FFF"l 

12 CALL CHAR(100."C0FC9EC7EOEOF6FF"l 

13 CALL CHARI99. ■FFFFFF7F33217050") 

14 CALL CHAR<9B."FFFFFEFECC94CE6A") 

15 FOR 1=1 TO IB 

16 CALL SOUND (-20. 1*1000.0! 

17 NEXT I 

IB OPTION BASE 1 

19 CALL SCREENI2) 

20 PRINT "CODE SECRET. 



66 CALL CHARM41."00m0'.".'O'j03vjF;FFF' 

67 CALL CHAR'140. "030F3FFFFFFFFFFF' 

68 CALL CHAR<139."1F1F1F1FIF1F1F1F' 

69 CALL CHAR(13B. "FFOOFFOOFFOOFFOO' 

70 CALL CHAF*(117,"FF 

71 CALL CHAR! 1 16. "•■) 

72 CALL CHARdll.-ISlBlClFOF") 

73 CALL CHAR(110."1B1B3BFBF0") 

74 CALL CHARU09, "OOOOOOOFlFlClOie 

75 CALL CHARI10B. "OO0O0OFOFB3B1B18 

76 CALL CHARU07."OOOOOOFFFF") 

77 CALL CHAR (106. ' 1818181B1H1B1B1B 
7B IF UK*1 THEN 90 

; FFFFFFFFFF 



. AAAAAAHHHHH ' 



21 PRINT "GRACE AUX TOUCHES ( 1 A ' 
ABLIS LE CDURANT ENTRE LES2 FOLI 

22 PRINT "FAIT VITE.SINON.. . : HOF 
BYRINTHE ( + LE SON E5TGRAVE 
CA VAUT POUR TOI 1 !M" 

23 PRINT " 



25 F 



PRINT ■ 



30 fr i ru- 
st PR IN* 
32 FOR : 



ALORS . TU JOUES" 



i FORT i 



= 1 TO B 

33 CALL COLOR II. I 

34 NEXT I 

35 INPUT "T"E 
ET 2001? ":P 

36 CALL SCREEN (14) 

37 PP-P 

38 IF P'20 THEN 42 

39 PRINT "ALLE2.RIGDLE P( 

40 CALL SOUND(300. 110,0) 

41 GOTO 35 

42 DI*>BB 

43 A«(l)=."ll AVANCER" 
"4 0»(2)="2) OBSERVER" 

45 A*(3)="3) E.D.S.X ?" 

46 CALL CLEAR 

47 PRINT " 

4 B PfilHT "BEN. EUH.. .PATH 
CHARGE' ! ! ' cti" 

49 CALL CHARIISO, "FF7F3F; 

50 CALL CHAR (149. 

51 CALL CHARU4B. 

52 CALL CHAR (147. 

53 CALL CHAR 11 46. 

54 CALL CHARU45, 

55 CALL CHARI159. 

56 CALL CHAR (134, 
37 CALL CHr*fm35. 
5B CALL CHAR (133. 

59 CALL CHAR1132. 

60 CALL CHAR(15S. 

61 CALL CHAR (157. 

62 CALL CHAR (156. 

63 CALL CHARU55, 

64 CALL CHAR (143. 

65 CALL CHAR(I42. 



IFBFBFCFC7E7E7E7"! 



3E3E7E 
FFFFFFFFFFFFFFFF " ) 
FFFEFCFCFEFBEOCO" J 
FF7F3F-JF7F1F07&3") 
111913030F1F3F1F-J 



FFFFFFFFFFFCFOCO" I 
FFFCFOC") 
FF3F0FO3") 
FFFFFFFFFF3F0FO3" ) 

C'OuOoOOi.COFOFCFF") 




ftu M€C Oi/i tx'T A WZ N*NA : 

€T LA -VAN/* tw' KPot*0: W« 




82 


"OR V 


-1 TO 12 




H. - . 


:all 


SOUND (-10 






c or * 


»1 TO 12 




Bfl 


CALL 


SOUND 1-3. 


6.11 


Ut, 


IE AD 






H7 








HR 


■JEXT 






H9 


•JEXT 








:all 


SCREEN (2) 




VI 


30T0 


340 




VH 


"all 


-(CHAR (5. 3 


78) 




:all 


HCHAR 17,3 






:all 


-ICHAR<7.7 


69) 


V"S 


:all 


HCHAR (9. 5 




96 


HALL 

1A-1S 


(CHAR (7. 5 


116) 


9b 


"OR X 


>1 TO 3 




VS> 


-a=a- 






IOC 


GOSUB 460 






NEXT 








CALL 


HCHAR ( 1 4 


12.144.10) 


10: 


CALL 


HCHAR (8. 


2. 117, 10) 


104 


CALL 


HCHAR (14 


16. 14S) 


IDS 


CALL 


HCHAR ( 1 4 


17.146) 


KliS 


3G r ~ 








CALL 


KEY(O.H.S) 








THEN 336 


10" 


CALL 


HCHAR ( 1 7 


1 1.32) 


no 


CALL 


HCHAR(17 


11.49) 


11! 


CALL 


HCHAR ( 19 






CALL 


HCHAR (19 


11,30) 


11" 


IF S 


-0 THEN I 






DIST 


=!NT(SOR< 






CALL 


SOUND 1 30 


110<-DIST*100.0 


I 16 


IF H 


49 THEN 


119 










lie 


BOTE 


12B 




lis 


ip y 


>jO TH£N 


107 


\M) 


W*l 






121 


CALL 


KEYIO.K..STI 




CALL 


SOUND1-10. 4000.6) 


IS.-i 


CALL 


HCHAR (21 


11.32) 


174 


BALL 


HCHAR (21 


11.51) 






;T<.0)»1 (K-=6B) + (f=B3)*(K 




THEN 


126 ELSE 


121 


XVti 


W-l 






IVV 


DI-K 






l?fl 


IF W 


'0 THEN 304 


15W 


FOR 


= 1 TO 4 




130 


DID 


"0 




1J1 


(3(1) 






iw 


FID 






t.TS 




I 




134 


IF D 


■:.-6B THEN 145 


l."fl 


V-3 






136 


FDR 


-0 TO 3 





THOMSON T07, T07, T070 



QUAERO 
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52.0. 168.71. [76, 4 6.24. 388, 84*56,48,856,4 .311. 144,3 It. 168.31.168.39, 169, 127, 168,1 
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1828 [fiTA28, 1,50. 0,196, 319. 199, 0,24. 8, 48 
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103,144, 127, 144, 135, 144,383,144,311,144, 
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9.96,7£, 192. 72. 104. ?6 . 223 , 96, 64 . 128, £31, 
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56. 304. 48, 3£8. 56, 0.-8,31,60.48,72,63,88, 
168,72. 175. 80. £78.-8. 320. 30. 0.96. 15, 104, 
183.96. 143, 104, 160.96. 175. 184. 192.96, £23 
184, £48, 96, 271, 1 84. £88. 96, 328, 184,8, 1"" 



.95, 128. 168. 128, : 



128.272. 126.287, 128, 



304. 1£0.3£O. 128 

1880 DATA.32. 144,47. 152, 64. 144.95. 152, 160 

.144.175, 15£,27£, 144,287. 1 52. 32. 1 68, 47. 1 

76. 168, 168, £23. 1-6.856, 168.287.176,0,24. 

128,24, 320.24,56,48. 175. 48. 305, 48. 8, 78, 1 
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5. 123. 1 60. 180,2-2. : 20. 32. 144. 175. 144. £87 

. 144,47. 168 
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KEY KONG 



Tirez votre virginale fiancee des partes poilues de 
KONG le lubrique. 



n&t v*-r 




CIEL 

1000 REM ■=-.•— z-.:- oe DENis pitrrr e 

AV. MAURICE TH0RE2. 69120 VAULX-EN-VEL IN 
(LYON) 
1010 RANDOMIZE 

ioro 0-0 

1030 GO SUB 4630 
10*0 SO'BBO 

1090 print "kev-konh a fait he? s1ennes 
il a en1.eve votre fiancee bien aihee el 
celle-ci.pour"! 

1060 print "vqus alerter. a entonne son c 
hhnt prefers. n'ecoutant due voire courbd 
e vqus allez tenter de la sauver" 
1070 print "mais attent ioni^ey-) ong mont 
e la garde et vous lance des 
ai.le7 risquer votre vie't 
1000 print "dans ce chantier desaffecte. 
am jem" ■fp0fessionnel"-il y aura plusieu 
rs etages. votre salut est dans" 
1090 print "l-echelle en haut.a droite." 

;'..[■-.■ i "fun MARIAGE. 

klQO INPUT "QUELLE FORCE DE JEU T 
• DEBUT : I /PROF: 2) arret : O " 1 R 

1110 IF ft-0 THEN 4410 
1120 IF (R. 1>*(R< 2>THEN 1100 
II SO IF R«l THEN 1150 
1140 R-10 
II SO RESTORE 

1160 PRINT llllliltf ■tllllfVOUl JOUEZ A 
VEC LES rauCMES-:TBBi!0>;"\W R/":TAB 

:9li". -S D- 

1170 CALL 5CREENU4) 

11B0 CALL CHAR(41.~FFOO(x)1B1BliOOOFF 
1190 CALL CHARi45,' , 0O0OOO99FF66"> 
1200 CALL COLOR18.5.1) 
1210 CALL COLOR'2.2.7) 
1220 CALL C0L0RI9. 1. I) 
1230 CALL COLOR (10. 1. 1) 
1240 CALL CHAR(136."IB?HFF3D3C3CE' 
1230 IF O+K.-R THEN 12B0 
1260 CALL COLOR (9. 2.1) 
1270 CALL COLOR (10. 2.1) 
1290 CALL CHAR(133."1819FFBC3C3C272 
1290 CALL CHAR (110. ""I 
1 300 CALL CHAR (111."") 
1310 V*-"0101010101010101" 
1320 W*»"COCOCOCOCOCOCOC" 
1330 CALL CHAR(I33."18iaFF&D3C3CE7" 
[340 CALL CHAR 

1330 CALL CHAR(94."3C4299BDBD99423C 
CHAR(95."3C7EFFFFFFFF7E3C 
1370 CALL CHAR(5B."BlFFai8iBlFFBlBl 
13SO CALL 

139© 0D»-"OC'7FVF(,B7F6S41 
1400 CALL CHARUOI.DDi) 
1410 GG»-"0o7F7F6B7F?F63 
1420 *•< 
14 30 F*' 

1440 CALL CHARU04.X«> 

1430 CALL CHAR(105."010101010101010I 
1460 CALL CHAR! 106. "FFFFE3E3E363E3E3 
1470 CALL CHARI130.-1B183DFE3C7EFF24 
1480 A^'lEiEOCOCOCOCQCoC" 
1490 B*-"3C3CIBlBlB18181fV 

" COCOCOC OCOCOCOC " 

510 CALL CHARUOB. "FFFFFFBEFFFFFFFF 

320 CALL CHARU09.P») 



fAlT OE U POBI 



CALL HCHARI12, 


7.150) 


CALL HCHAR113. 


6.147) 


CALL HCHAR (13, 


7.14B) 


GOTO 291 




CALL HCHARI9.1 


,117.6) 


CALL HCHARI10, 


4.117,4 


CALL HCHAR III. 


4. 117,6 


CALL HCHAR (12, 


4, 144,6 


CALL HCHARI13, 


4, 144,6 


CALL HCHAR (12, 


6, 149) 


CALL HCHAR112, 


7. 130) 


CALL HCHAR (13, 


6,147) 


CALL HCHARI13, 


7. 148) 


IF B(3I(>1 THE 


297 


CALt HCHAR (10. 


4.142) 


CALL HCHARdl. 


4.139.2 


CALL HCHAR (10, 


5.143) 


CALL HCHAR (12. 


4,158) 


CALL HCHAR (12. 


5.157) 


IF D!31<>1 THE 


303 


CALL HCHARUO. 


8,141) 


CALL HCHARUO. 


9,140) 


CALL HCHARdl, 


B. 159.2 


CALL HCHAR! 12, 


B.156) 


CALL HCHAR 11 2, 


9. 155) 


GOTO 107 




IF DIOG3 THEN 


308 


IF A(T-|,R>-2 


HEN 320 


GOTO 129 




IF OK 69 THEN 


312 


IF A(T,R-l>-2 


HEN 320 


R»R-l 




GOTO 129 




IF DI >6B THEN 


316 


IF A(T+l,*>-2 


HEN 320 


T-T»l 




GOTO 129 




IF Dl't BB THEr. 


129 


IF A(T,R»l)-2 


HEN 320 


R-R+l 




GOTO 129 





PRINT " 


JQlODj 1 


PRINT " 




PRINT " 




PRINT " 




PRINT " 




PRINT " 




PRINT " 




PRINT ::: 




CALL HCHAR 


19.23.49 


CALL HCHAR 


20,25.30 


CALL HCHAR 


21,25.51 


CALL HCHAR 


19.26.52 


CALL HCHAR 


20,26.33 


CALL HCHAR 


21.26,54 


CALL HCHAR 


19,27,53 


CALL HCHAR 


20.27.56 


CALL HCHAR 


21,27.57 


CALL KEYIO 


0W.3T) 


IF DWO-I THEN 369 



I GOTO 427 

1 IF MN<>4 THEN 40B 

( Z-13 



449 NEXT I 




450 CALL CLEAR 




451 GOTO IS 




432 PRINT till 




453 PRINT - 


MAuVAIB" 


454 PRINT " 


DEGONFLE" 


455 PRINT "0*" 




456 PRINT "•<!•■ 




457 PRINT "cb" 




458 CALL SOUND 


100. 110.6) 


459 GOTO 45B 




460 FOR 1-1 TD 


LEN(A»(X) I 


461 CALL SOUND 


3.300,0) 


462 CALL HCHAR 


AA. I*1Q,ASC(SEG*(A« 


463 NEXT I 




464 RETURN 




463 END 





420 IF MM >B THEN 424 



DERATISATION 



Tl 99 BASIC SIMPLE! 



Oil la destruction des rats de votre grenier vous obli- 
gera a quelques dangeureuses acrobaties. 

Philippe BAUDRY 

Mode d'emploi : 

Ce jeu compofte deux tableaux et le deplacement s'effectue a laide 

des touches "S" et "D". 

PREMIER TABLEAU : vous disposez de trois vies. 

er Stage ; passez sur une planche plutot cassante. une chute vous 
coute une vie et te retour au depart. 

2eme etage : avancez en evitant si possible la chute des briques, 
sinon une vie et retour au depart. 



3eme etage ; evitez les trappes qui s'ouvrent sur votre chemin, 
sinon vous tombez a I'etage interieur mais conservez votre vie. 
4eme etage : sautez par ESPACE pour attraper la cle de la porte du 
grenier qui apparait aleatoirement au-dessus. L absence de cette cle 
vous inlerdit I'acces a I'etage superieur. Plus de 10 sauts vous con- 
tent une vie et le retour au depart. 

5eme etage ; sautez par-dessus ies sacs d'outils par ESPACE. un 
seul appui sur la touche *D" provoque le deplacement de votre per- 
sonnage. 3 sacs touches, une vie etc... Passez au second tableau 
par ESPACE. 

- SECOND TABLEAU : vous disposez des vies restantes du premier 
tableau. Tirez par ESPACE. le plus possible des 50 rats du depart. 
10 rats echappes, une vie. Compteur de rats tues (PTS) et comp- 
teur de rats sortis. au-dessus de la porte. 







REM • BOUDRY PHILIPPE • • 
ERATISATION * * TI-99/- 

» • BASIC SIMPLE * 
110 CALL CLEAR 
120 CALL SCREENI2) 

130 CALL CHAR(12B."081B7EBD3CIS2442" 
1*0 CALL CHARU29."99997E3C3C1B2424": 
130 COLL CH0R(132,"FFFFFFFFFFFFFFFF": 
160 CALL CHARU44."81FF81FF81FFB1F 



CALL CHAR ( 1 45 
180 CALL CHAR tl 46 
190 COLL CHARI136 
200 CALL CHAR! 137 
210 COLL CHARU20 
220 CALL CHAR 1 112 
230 CALL CHAR! 121, 
240 FOR Z-3 TO 23 STEP 5 
230 COLL HCHORIZ. 1,152. 32 
260 COLL COLOR (16, 5, II 
270 NEXT Z 

2B0 COLL VCH0RI1S.30, 144.! 
290 COLL VCHARU3.3. 144.5 
300 COLL VCHORIB. 30, 144.3 
310 CALL VCH0RI3. 3, 144.51 
320 COLL HCHARIl. 32, 143) 
330 CALL HCHARI2.32. 146) 
340 CALL COL0RI13.12. 1) 



FFBlBDeDBDBDBDBD") 
B1B0BDBDB0BDB1FF") 
FFFFFFFFFFFFFFFF" ) 
FFFFFFFFOOOOO'JOO") 
OOOOOOOOFFAOAAFF " 1 
07O3O7OB1O2OSOAB"! 
0000183C7E7E7E3C") 



■22 



fOO I 
360 ^ 

370 CALL HCHAR (X. 1 

3B0 CALL HCHAR (X, 1 

390 COLL HCHAR (X.> 

400 CALL C0L0RI14. 



i70 1 



■22 



> C-4 

490 EOO 
30O KK-5 

510 COLL HCHORIL.C. 1! 
520 CALL COLOR* II. 13, 
530 CALL KEYtQ.K.S) 
■ ii ThIn S^O 



S30 IF K-83 THEN 1840 

560 GOTO S30 

570 CALL HCHORIL.C, 321 

5B0 IF L-2 THEN 390 ELSE 1040 

590 L-2 

600 X4-2 

610 FOR S-l TQ 4 

620 Y4-5+(INT!RND»23>) 

630 COLL HCH0RIX4.Y4. 1211 

640 COLL C0L0RI12,15.1> 

650 Y4-Y4*l 

660 NEXT S 

670 FOR 1-1 TO 50 

680 NEXT I 

690 CALL KEVIO.K.S) 

700 COLL GCHORIL.C.ZQ) 

710 CALL HCHOR(L.C, 12B) 

720 COLL S0UNDI10. 196,20,392.20.-2.0) 

730 CALL HCHARIL, C. 32) 

740 C-C+l 

750 IF ZO-121 THEN 760 ELSE 940 

760 L-2 

770 C«3 

7B0 EC-EC* 1 

790 IF EC-3 THEN BOO ELSE 910 

BOO COLL HCH0R(2. 4. 32.271 

810 LIG=24 

820 COL-6 

B30 A*="Lfl CASE DEPART S.V.P! 1 " 

840 GOSUB 3570 

B50 FOR 1-1 TO 100 

860 NEXT I 

870 COLL HCHARI24.6.32.26) 

BBO SAU-0 

B90 GOSUB 3630 

900 SOTO 470 

910 FOR 1-1 TO 130 

920 NEXT I 

930 GOTO 690 

940 C-C-tC<-I).(C>"32l 

950 IF K-32 THEN 960 ELSE 1020 

960 C-C*l 

970 COLL S0UNDC50, 880,0) 

9B0 CALL S0UNDI5O, IlO.O) 

990 IF CXJ1 THEN 1000 ELSE 1020 

1000 C-31 

1010 IF C-31 THEN 3740 ELQE 1020 



1060 GOTO 142i 



THEN 1050 ELSE 1070 
10B0 ELSE 1400 



1520 C-C+l 



10S0 


L-12 


1O90 


I 1 =RND 


ltOO 


IF ZZI-.55 THEN 1110 ELSE 1350 


1110 


X2-13 


1120 


RANDOMIZE 


1130 


Y2=4+IINT(RND«24)1 


1140 


COLL HCH0RIX2.V2.32.2) 


1130 


FOR I-I TO 20 


1160 


NEXT I 


1170 


IF C-V2 THEN 1190 


11BO 


IF C-V2-1 THEN 1190 ELSE 1340 


1190 


FOR V-l TO 30 


12O0 


CALL S0UND110, 131. V, 175, V) 


1210 


NEXT V 


1220 


LIG-24 


1230 


CDL-6 


1240 


A»-"JOLIE>'' LO CHUTE." 


1250 


GOSUB 3570 


i 260 


FOR I»l TO 100 


1270 


NEXT I 


1280 


COLL HCHARI24. 6. 32,261 


1290 


COLL HCH0RIX2.V2, 152,21 


1300 


COLL SOUNDI200. 131,10.-7,10) 


1310 


L-17 


1320 


C=32 


1330 


GOTO 2580 


1340 


COLL HCH0RIX2.Y2, 132.2) 


1330 


C=C+l 


1360 


COLL SQUND!10,19fa.20,392,20,- 


1370 


C-C-(C<=I)*(C>-32) 



> IF C=29 THEN 3090 ELSE 1390 

) GOTO 310 

I IF L-17 THEN 1410 ELSE 1460 



CALL SOUND! 10. 196.20,392.20.-2,0) 

C-C-(C<-l)*(C>-32) 

GOTO 510 

IF C»7 THEN 1470 ELSE 1300 



1550 


CALL S0UNDI1O. 196.20.392.20,- 


1360 


WU'RND 


1370 


IF WW>.45 THEN 13B0 ELSE 1790 


] 530 


0-22 


1S90 


RANDOMIZE 


1600 


P=9*(INTtRND*I2)l 


1610 


CALL HCH0R(0.P,32) 


1620 


IF C-P THEN 1630 ELSE 1760 




X-0 


1640 




1630 


COLL SCUND15O0. 110.20. -fa, 10) 


1660 


CALL HCHARIX.Y.137) 


1670 


LIG-24 


16B0 


COL-6 


1690 


A»-"ATTENTION. PLANCHE POURRI 


1700 


GOSUB 3570 


1710 


FOR I-I TO 100 


1720 


NEXT I 


1730 


CALL HCH0R!24,6.32,27) 


1740 


GOSUB 3650 


1750 


GOTO 470 


1760 


X-0 


1770 




1780 


CALL HCHAR(X,V,137> 

IF C-29 THEN 1B10 ELSE 1830 


ISO ■ 


1 BIO 


IF L-22 THEN 3030 


1820 


IF L-12 THEN 3090 


1330 


GOTO 510 


1844 


COLL HCH0R(L,C.32> 


L8S0 


IF L»2 THEN 1860 ELSE 1910 



1870 C-C-l 

1880 C-C-(C'>1) + (C>"32) 

1890 50TD 310 

1900 GOTO 2300 

1910 IF L=7 THEN 1920 E 



:K-1 THEN 2010 




KEY 
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3100 IF C=5B THEN 3840 
3110 IF C>32 THEN 2690 
3120 CALL HCHARIA.L.321 
3130 COLL HCHAR(A-1.L-I, 135) 
3140 CALL HCHAft(0-l.L-l,C) 
3150 COLL GCHAR(A.L-2.PL> 



41 ■ 



5240 



3170 COLL HCHARIA.L-2. 133) 
31B0 L-L-2 

7190 COLL GCHARIA*] .L.F) 
3200 IF F-32 THEN 5160 
3210 IF AX THEN 2690 ELSE S370 
3220 IF Z=58 THEN 2710 
3230 COLL HCHORIX. Y.32) 
3240 FOR J-l TO 15 
3250 COLL GCHARIX*' "-' '" 
3260 IF V-41 THEN 3300 
3270 COLL HCH0R1X+J.Y-D.94+RND) 
-.280 COLL HCHARIX+J.V-.D.V) 
3290 NEXT J 
"300 X»X+J-1 
3310 D— D 
3320 Y-Y-D 

3330 CALL HCH0R(X,Y,94*RND! 
3340 CALL SOUNDI-5,-6.0.BBO. 1> 
3350 IF AX THEN 272" ELSE 3380 
-360 COLL HCHARIX.Y.32) 
337Ci IF (X-OKtY -L1THEN 2690 ELSE : 
3380 IF (X-A)*!Y LITHEN 2610 
[390 IF X A THEN 3520 
3400 RESTORE 3490 
3410 CALL CQlOR!2.2,7) 
3420 FOR 1=1 TO U 
3430 REOD 0.P.F1 
7440 CALL HCHARIA.L, 174) 
3430 CALL 50UND(0*B0.f',0.PI.O) 
3460 COLL HCHARIA.L. RNIJ.94> 



3600 



7610 COLL GCHAR(A-T.L.C) 

3620 IF C=41 THEN 36B0 

3630 COLL HCHAR1A-T.L.134) 

7640 CALL SOUND!-30,22O»T.T-l) 

3650 CALL HCHAR(A-T.L,C> 

3660 T"T*1 

3670 GO TO 7610 

76B0 CALL HCHAR 10-T.L. 134) 

7690 CALL HCHAR!A-T.L.41) 

3700 A=A-T-1 

3710 COLL HCHARIA.L. 134) 

3720 IF A.'X THEN 2690 ELSE 3370 

3730 IF X=23 THEN 3520 ELSE 2B20 

3/40 COLL HCHAR(A,L,32) 

3730 J-l 

3760 CALL GCHAR (A+J.L- 1 . V) 

3770 IF V*41 THEN 3B20 

3780 CALL HCHAR(A*J.L-1,I33> 

3790 J-J+l 

3S00 CALL HCHAR(A->J~I,L-I.V) 

3B10 IF 0+J< 24 THEN 3760 

3820 CALL SGUND'-lu, -5,0,440,5) 

3B30 A-A*J-1 

3840 L-L-l 

3B50 CALL HCH0R(fl.L,133) 

3860 IF A>X THEN 2690 ELSE 3370 

3870 CALL HCH0Rfft,L,32> 

3880 J-l 

7890 CALL GCHAR (A*J,L+1 . V) 

3900 IF V-41 THEN 3950 

3910 CALL HCH0RIA+J.L+1.136I 

3920 J-J-M 

3930 CALL HCHOR (0* J- 1 , 1 + 1 , V) 

7940 IF 0*J< ^24 THEN 3B90 

3950 CALL SOUND!- 10. -5.0. 440.51 



4210 CALL HCHAR <] 

4220 COLL HCHAR(I.24. 134) 

4230 NEXT I 

4240 CALL SOUND! 1000.880,0. ' 



4250 C»="MERCI. . .SMOC" 
4260 FOR 1=1 TO LEN(C») 
4270 CALL HCHAR! 1 , 1 1 * I . ASC !SEG» !C». 1 . 1 1 



3960 



1+J-l 



"4il0 



i NExr I 
COLL CLEAR 
HATA 8. 131.527.6. 131.523.2. 1 11.5. 7. 
,523.6. 1 56. 62". 2.1 45. 585. 6. 145.505. 



■ CA1 L HCHAR i i 



3970 L-L+l 

79B0 COLL HCHARIA.L. 136) 

3990 IF X THEN 2690 ELBE : 

4000 IF L 24 THEN 3620 

4010 COLL HCHAR!2, 24, 134) 

4020 CALL HCHARI2.24.5B* 

4O30 CALL HCHARIl .24, 134) 

4040 COLL HCHARM.24,58) 

4050 COLL CLEAR 

4060 COLL HCHOR t 1,1, 41, 32) 

40'0 IF O'fc THEN 4120 

40B0 IF 0*1 R THEN 1990 

4090 COI.L C0L0RI9.2.1) 

4100 CALL COLORt 10.2,1) 

4110 GO TB 1990 

4120 CALL CLEAR 

4170 CALL SCPrEENiri 

4140 FOR 1-1 TO 16 

4150 CALL CDLDRU. 16.2) 

4160 NEXT I 

4170 CALL HCHARIl. 24, 13o) 

41B0 CALL VCHAR!2.24.5B.23> 



■i :■■-■. 


FOR 1-1 TO 1000 




4300 


NEXT I 




4310 


F'RINT :i::"BR0VO VOUS AVEZ 


6ABT 


4320 


PRINT "UNE OUTRE F'ARTIE 7* 


in 


R ""C□N■"' POUR CONTINUER..":i : : 




4330 


PRE At 




4340 


CALL CLEAR 




4350 


FOR 1=1 TO 16 




•i .-.. 


CALL COLOR (I, 2, 1) 






NEXT I 




4380 


CALL SCREEN 16) 
GO TO 1010 




,-.j.-.,. 


CALL CLEAR 




4410 






4420 


FOR 1-1 TO 14 




J 4 30 


CALL HCHARI22. 1NT(RND*26>* 




4440 


NEXT I 




4450 


GO TO 2250 






FDR 1-1 TO 11 




4470 


CALL HCHAR (22. INT(RND'20)» 




44B0 


COLL HCH0R(2, 1NT1RMD.20)*! 


41) 


4 490 


NEXT I 




450O 


BG»880 




4310 


GO TO 225" 




4520 


FOR 1=1 TO 12 






CALt HCH0R(22. INT(22»RND)- 


.41 


4540 


CALL HC.HAR!16,1NT(21*RND) + 


.41 


■I'J'.O 


NEXT 1 




4560 


COLL CH0Fi(95. , 'OClE3B77EEDC7a;" 


4570 


COLL CH0R'94."7O7BDCEE773B 


EOC 


4580 


B0«-5 




;-;:: 


GO TO 2250 
FOR 1-1 10 " 

COLL HCH0R12.INT!RND.6)-.14 


41) 


4620 


CALL HCHAR (8, INT!RND«5)-MO 




4630 


NEXT I 

GO TO 2250 




46^,0 


COLL CLEAR 




4660 


FDR 1=1 TO 16 
CALL COLOR* I. 3. 1) 




46BC 


NEXT I 




4690 


PRINT TAP! U)i"!EV-tONG": : 




4700 


RESTORE 4760 
FDR S-l TO 41 




472C 


READ O.P 






CALL S0UND*0.P,2, IP+1)«2. 1 










474< 


NEXT S 




4.".,. 


RETURN 





4760 DATA : 

5,250. 165,250. 175.250. 165,500. 147 

4770 DATA 250. 147, 250, I 75, 250, 1 73, 25< 

5.500, 175,500. 175,250, 175,250, 165,251 

7,250, 175,250.220,250, 173 

4780 DOTO 500.220.250,220.250,175,25! 

7,250.175,230,163,500, 110.230, 147,25' 

5,250. 175. 125. 165 

4790 DATA 125.147,250,175.250,147,501 

5,250, 173, 123, 163. 123, 147,250,175 

4800 DATA 250,165,2000,147 

4810 GO TO 4740 

4B20 FOR 1=1 TD 9 

4B30 COLL HCH0R!22. INT (RND-15) -M , 41 > 

4840 NEXT I 

4850 GO TO 2250 

4860 FOR I-I TD 10 

4870 COLL HCHAR!72, INT !RND*1B) * 1 . 41 ) 

4880 NEXT I 

4890 FOR 1-1 TO fa 

4900 COLL HCHARI17. INT (RND«9) +8, 41 ) 

4910 NEXT I 

4920 CALL CHAR (95. "09060E 1D786OC0C" ) 

4930 CALL CH0RI94, "906070B81C0EQ703" 

4940 SO— 3 

4950 60 TD 2230 

4960 CALL HCHARIA.L. 32) 

4970 J -2 

4 9 BO GO TO 3890 

4990 COLL HCH0R(A,L,32) 

5000 J =2 

5010 GO TO 3760 

502O FOR 1-1 TO 5 

3030 CALL HCHARI22. IMT (RND»9) * 1 , 41 ) 

5O40 NEXT I 

505'' COLL CHAfi<95 1 "000Q07O7FFO7O4") 

5060 COLL CHARI94, "0020E0FFEOEO") 

5070 50*110 

5080 GD TO 2250 

5090 IF L 31 THEN 512o 



51'." 

5110 COLL HCHAR<f 



' CALL HCHAR I* 



: L 2 THEN 519 



51 BO 


CALL HCH0R(A.L-1.32f 


5190 


IF PI 41 THEN 499>. 




COLL HCH0R!O.L.41) 




Gl) TD 5750 




CA1 L HCIIAR!A.L. 1361 




IF X THEN 269" ELSE 7-770 




CALL HCHOl-IO.L. 133) 


5250 


IF A: X THEN 2690 ELSE 3370 


326« 


COLL CHAR (95. "lB2442FFFF42'.4ia 




CALL CHAR (94. " 1B3C5099995A4C1S 


5280 


S0=-4 


■.,.-: 


00 id 2230 




COLL COLOR (2, 1.1) 


33H 


GO III 3260 






DERATISATION 
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1940 
1950 


KK-5 
X3-4 




RANDOMIZE 


1970 


V3-B-MINTIRND»20) ) 


! 980 


CALL HCH0RlX3.Y3.112) 


1990 


CALL C0LORI11.2.4) 




CALL HCHORIL.C, 12S> 


2010 


CALL KEVtO.K.S) 




IF K-68 THEN 2060 




IF *=83 THEN 2110 


2040 


IF K=32 THEN 2170 


2050 


GOTO 2010 


2040 


CALL HCHAR(L.C,32> 


2070 


CALL 50UND (10, 196,20,392.20 


2080 


C-C*l 


2090 


C=C-<C<=KK)-(C "321 


2100 


GOTO 2000 


2110 


CALL HCHARIL.C.32) 


2120 


CALL SOUNOIIO. 196.20,392.20 






2140 


IF C=3 THEN 30O0 ELSE 2150 


2150 


C-C-(C<"KK>+(C>»32) 


2160 


GOTO 2000 




RANDOM! ZE 


2190 


L-L-INTIRND*4> 


2190 


CALL HCHAR<L.C.12B> 


2200 


CALL S0UND15O. 196.0.-4,0) 


2210 






CALL HCHORIL.C, 72) 




5AU-5AU* 1 


2240 


IF BAU-tO THEN 2250 ELSE 23 


2250 


LIG-24 




COL-6 


2270 


A*="ET DN RECOMMENCE..." 


72B0 


GQSLIB 3570 


2290 


FOB 1-1 TO 100 


2300 


NEXT 1 


2310 


CALL HCHAR<24,6.32.27) 


2320 


L = 7 




CALL HCHAF(L.C.721 


:;sc 


CfiLL HCHflRaj 5 ¥j s 3H 








5AU-0 


2370 


GOTO 470 


2;bo 


IF C-V3 THEN 2390 ELSE 2500 


2390 


IF L»X3 THEN 2400 ELSE 2500 


24O0 


k:k=i 


2410 


F-110 




FOR I-l TO 10 


-S-;. 


CALL S0UNDI30.F.0) 




P-F+llO 


2450 


NEXT I 


2460 


CALL HCHARIL.C.32) 



2480 CALL HCHORIL.C, 129) 

2490 GOTO 2530 

2500 CALL HCH0R1X3.Y3.32) 

2510 CALL S0UNDI50. 1760.0) 

2320 GOTO 1920 

2530 GOTO 2010 

2540 GOTO 510 

2350 IF L-12 THEN 2360 ELSE 

2560 L=12 

2370 GOTO 2960 

25B0 IF L=17 THEN 2590 ELSE 2B9i 

2390 L-17 

2600 OO-RND 



:SBO 



I FOR Xl = 



TO 1 



2650 COLL HCHAR1L.C, 12B1 

2660 CALL HCHAR1X1.Y1. 120) 

2670 CALL S0UND<-lO. 230, 0.-1,0) 

26B0 CALL C0L0R1I2.15. 1) 

2690 CALL HCHAR<X1, VI . 32) 

2700 IF Xl-17 IHEN 2710 ELSE 2720 

2710 CALL HCHAR(X1.V1,32) 

2720 IF Yl-C THEN 2730 ELSE 2350 

2730 IF Xl-L-1 THEN 271u ELSE 2B5C 

2740 CALL HCHARIL.C.32) 

2750 LIG*24 

2760 C0L=6 

2770 A»>"FONJDUR LA BRIOUE ' '.' 

27B0 GOSUB 3S70 

2790 FOR I-l TO 100 

2B00 NEXT I 

2B10 CALL HCHAR124.6. 32.26) 

2B20~~GOSuB 3650 

2830 SAU*0 



i CALL SOUND C 



I THEN 2900 ELSE 2920 



2910 


GOTO 


K 











2920 


IF C 


7 


THEN 







ELSE 


2940 


C-C 












2950 


SOTO 


3 


50 









2960 C-C-l 

2970 CALL SOUNDUO. 196.20.392, 

2960 C-C-IC -1)»(C >22) 

2990 IF C=3 THEN 3000 ELSE 30' 

3000 IF L-22 THEN JO10 ELSE St 

3010 L-22 

3020 IF L-17 THEN 3070 

3030 IF L-7 THEN 3110 

J040 GDTD S10 

3050 GOSUB 3130 

3O60 GOTO S10 



> GOTO 510 

I GOSUB 3460 

1 GOTO 510 

' CALL HCHAR (1 

> FOR A=22 TO 
I CALL HCHAR 

I CALL SOUND 



3190 

3200 

' 2 1 '■■ 



CALL ^ 
L-17 



> CALL HCHAR 
) RETURN 

) CALL HCHAR 
) FOR 0=17 TO 

> CALL HCHAR. 
I CALL SOUND 



i CALL HCHAR 

COLL HCHAR 
RETURN 
CALL HCHAR 
FOR A" 12 T( 
CALL HCHAR 
CALL SOUND 



- • -■:■ 

3340 
775':' 
3360 
3370 
■ ISO 
1,0) 

3390 CALL HCHAR 
3400 CALL HCHAR 
3410 NEXT A 
3420 CALL HCHAR 



CALL HCHAR 
RETURN 
CALL HCHAR 



3450 
3460 



r4B0 CALL HCHAR 



510 COLL HCHOR 



3530 
3540 
3330 
3340 

IS '0 

35B0 
3590 t 
3600 F 
3610 C 



COLL HCHOR 

L-2 

CALL HCHAR 

RETURN 

FOR G-l TO 

CALL COLOR 



1319,0. 1760.1 



8B0.0, 1319. ( 



1319.0, I7fcO.<: 



;.COL+I,0SC(SEG«<AS, I, 



3620 CALL SOUND<50.200, 10 

3630 NEXT I 

3640 RETURN 

3650 

3460 

7 6 70 

3680 

3690 



■VIE-1 



VtE-0 THEN 
VIE-1 THEN 

) CC-CC-1 

> GOTO 3720 

• IF VIE=0 THEN 

) CC-CC+2 



ELSE 3700 



3730 
3740 
37S0 



3940 
3950 
3960 
3970 



RETURN 
CALL CLEAR 
COLL SCREEN 
CALL CHAR 
CALL CHAR 
CALL CHAR 
CALL CHOR 
CALL CHAR 
CALL CHAR 
COLL CHAR 
CALL CHAR 
COLL CHAR 
CALL CHAR 
COLL CHAR 
CALL CHAR 
COLL CHAR 
CALL CHAR 
CALL CHOR 
COLL CHAR 
CALL CHAR 
COLL CHOR 
CALL CHAR 
CALL CHOR 
CALL CHAR 
CALL CHOR 
CALL CHAR' 
CALL HCHAR 
COLL HCHAR 
CALL VCHAR 
COLL VCHOR 



3710 ELSE 3720 
CC, 32) 



C j'.hjOOOOO'.pumuFF 

0101010101010101 
eoaOBOSOBOBOBOSO 
!040B101'o40BO 
8J4020100B040201 

rroooouoocoooooo 

0001 020408 1O207E 
FC02010305091 121 
4lFF80B08<J8u413E 

C2848B90O0Cl>90ui.. 

oooioi7EBoaoaiieo 
0OB0B0FE0101O1OD 

DOlOoBOBOBOBOBOB' 
OBOGIOIOIOIOIOIO 

osoaoaoFoioioiot 

tOIOlOFOBOBOBOBO 

O1U2040B101O1 

604020 looaoBOBoa 

AA2AEA92E52DF2BD' 
1010D3BDBD40S040 
1010101010101010' 
2844104428041028 
I02B44444428100E 



I CALL HCHOR i! 
) V=V-1 
NfXT X 



'.'0 CALL HCHOR t: 



TI99IBASIC SIMPLE 



^fitKt •" 




4220 


NE ■ ^ 


X 


4230 


CALL 


VCHARd.S. 153, 16) 


4240 


CALL 


VCHARd.27. 154. 16) 


4250 


CALL 


HCHAR (1, 1, 157.5) 


4260 


CALL 


HCHARU.27. 157.5) 


4270 


CALL 


HCHAR (17, 1.157.5) 


4280 


CALL 


HCHARU7.27, 157,5) 


4 2*:' 


CALL 


VCHARI9, 15, 154,2) 




CALL 


UCHARI9, 16. 153.21 


4310 


CALL 


HCH0R1B, 15, 152,2) 


4320 


CALL 


HCHARI13.B, 144) 


4330 


CALL 


HCHAR(13,9, 145) 


4340 


CALL 


HCHAR(14,e. 146) 


4350 


CALL 


HCHAR<14,9, 147) 


4360 


CALL 


HCHAR(17,28, 142) 


4370 


CALL 


HCHAR(17,29, 143) 


43B0 


L7AL L 


HCH0Rtl6,2B.140) 


4390 


CALL 


HCHAR116.29.141) 




CALL 


HCH0R(!3,2B.13B) 


4410 


CM L 


HCHARI15.29. 139) 


4420 


CALL 


HCH0RI14,2B. 136) 


4430 


CALL 


HCHARI14.29.137) 


4440 


CALL 


HCH0R(1,27.120) 


4450 


CALL 


HCH0RI2.28.122) 


4460 


CALL 


HCHAR13.2B, 121) 


4470 


CALL 


C0L0RI12. 15. 1) 


44B0 


CALL 


COLOR 114, 15, 1) 


M9t 




COL0RU5. 14, 1) 


4300 


CALL 


C0L0RI16.5. 1) 


4510 




4520 


LIG- 




45 « 


COL- 





4540 




? TS: " 


4550 


CALL 


C0L0R17, 16. 1) 


■■.Si" 


CALL 


C0LORI4. 16. 1) 


4370 


GOSUB 5480 


4580 


PER- 





139 ■ 


SOR- 
LL-3 




4610 


CC-1 


I 


.!■,.-.-. 


IF V 


E-3 THEN 4630 ELSE 


4630 


CALL 


HCHARILL.CC. 12B.2) 


4640 


IF U 


E-2 THEN 4650 ELSE 




CALL 


HCHAR(LL,CC+I. 12B) 


4660 


IF V 


E=l THEN 4670 



4700 C-1B 

4710 LI = 16*UNT(RND*B) ) 

4720 CALL HCHARIL.C. 128) 

4730 COLL KEV(0,K,B) 

4740 LI-LI-1 

4750 IF LI-11 THEN 4760 ELSE 4910 

4760 CALL HCHAR(LI,C0,32> 

4770 RAT-RAT-I 

4780 IF RAT<0 THEN 5370 

4790 SOR-SOR*! 

4800 LIG-7 

4B10 C0L=14 

4820 A»-STR*(SOR) 

4B30 COLL COL0RI3, 16. 1) 

4840 GOSUB 54B0 

4B50 IF SOR-PER THEN 4860 ELSE 490< 

4860 VIE-VIE-1 

4B70 IF V1E-0 THEN 4890 

4880 PER-PER+10 

4890 GOTO 5150 

4900 LI-16-.(INT(RND*B)) 

4910 LI=L!-1LK = 11)»(LI>=24) 



4920 


RANDOMIZE 


4930 


C0-12+(INT(RND»8)+1 


4940 


COLL HCHARILI.CO. 10 


4950 


CALL COLOR! 10. 6,1) 


4960 


CALL SOUND f 10. 2000. 


4970 


CALL HCHARtLI ,CD,32 




IF I--6B THEN 5020 


4990 


IF K=S3 THEN 5060 


5000 


IF 1 =32 THEN 5100 


5010 


GOTO 4730 


■L020 


CALL HCHARIL.C.32) 


3030 


c-c+i 


3040 


C=C-(c-:-ii)*ic-=2n 


5O50 


GOTO 4720 


3060 


CALL HCHARIL.C. 32) 


5070 


C-C-l 



20 GOTO 3290 

30 CC-I2 

40 VIE'VIE-1 

50 IF VIE-2 THEN 5160 ELSE 520.. 

60 CALL HCHAR 

70 CALL HCHAR 

BO GOTO 4690 



RNDoB) ) 
THEN 3210 ELSE 5240 
LL.CC+1,32) 
L.C32) 
LI, CO, 32) 
IE-0 THEN 3250 ELSE 5270 
C.32) 



5410 


A*-STR*(PT5> 




CALL C0LORI3. 16. 1) 




CALL COL0R14. 16. 1) 


3440 


GOSUB 5480 


3450 


Lt=16+(INT(RND»B) ) 


3460 


GOTO 4730 


5470 


GOTO 4720 


3480 


FOR G-l TO B 




CALL COLOR IG. 11.1) 


5300 


NEXT G 


5510 


FOR I-l TO LENIA4) 


5520 


COLL HCH0R(LIG.COL»I.0SC(SEG*( 


5530 


CALL SOUNDUOO, 44733, 0.-1,10) 


5540 


NEXT I 


5330 


RETURN 


3360 


COLL HCHORil. 1.144.768) 


3570 


CALL SCREEN(2) 


3580 


FOR G-l TO B 


5590 


CALL COLOR (6. 16. 11 


3600 


NEXT G 


3610 


L1G=3 


5620 


COL-4 


5630 


A*-"L-EQUIPE DE DEROT 1SAT ION" 




GOSUB 54 BO 


5650 


Lia-a 


3660 


COL-4 


5670 


A«="0 ETE DETRUITE PAR LES RAT 


V..L>" 


GOSUB 54B0 


S690 


LIG-7 






5710 


A«="L0 VILLE EST ENVAHIE." 


5720 


GOSUB 54B0 


3730 


LIG-9 




C0L=4 


S '30 


04="LA PANIQUE S'EST IN5TALLEE 


5760 


GOSUB 3480 


5770 


LIG-U 


5780 


COL-4 


5790 


0»= "DANS LA CITE." 


SB 


60SUB 54 BO 


5810 


LIB-20 


5820 


COL-4 


5830 


A*-"VOULEZ VOUS FOIRE APPEL " 


S840 


GOSUB S4BO 


3B30 


L 10-22 


3860 


COL-4 


587'. 


0*-"A UNE OUTRE E0U1PE (0/N) " 


5BB. 


GOSUB 5480 


5890 


CALL KEYtO.K.S) 


5900 


IF K=79 THEN 110 


3910 


IF K-7B THEN 6360 


5920 


GOTO 5890 


5930 


CALL HCHARd.l, I32.76B) 


5940 


COLL SCREENI2) 


3930 


FOR G=l TO 8 


3960 


COLL COLORIG. 16. 1) 


3970 


NEXT G 


!j 9(11.1 


LIG-3 


5990 




6000 


0»="RATS SORTIS: "dSTRKSORl 


6010 


GOSUB 5480 


o020 


LIG-9 


6030 


COL-4 




A»-"RATS TUES: "(,5TR»iPTS) 


6030 


GOSUB 5480 




LIB-20 


6070 


COL-4 


60B0 


A«="UNE AUTRE PARTIE '0/N) " 


6090 


GOSUB 54B0 


6100 


CALL KEY(O.KiS) 


6110 


IF K-79 THEN 1 10 


6120 


IF K-78 THEN 6560 


6130 


GOTO 6100 


6140 


CALL HCHARtl. 1, 152,766) 


6150 


CALL SCREEN12) 


6160 


LIG-2 


6170 


COL-4 


61B0 


0»»"RATB TUES: "tSTRt (PIS) 


6190 


GOSUB 54 BO 


6200 


LIG-4 


6210 


COL-4 


6220 


0«-"RATS SORTISj "S.STR«(SOR) 



6230 GOSUB 3480 
6240 LIG-7 



90 LI-1 
5200 IF V 
3210 CALL HCHAR 
3220 CALL HCHAR 
5230 CALL HCHAR 
3240 

5250 CALL HCHAR (I 
3260 GOTO 5930 
5270 L1=16*<INT 
52B0 60T0 4690 

3290 CALL VCHAR<R1,C1,123,13) 
3300 CALL S0UNDI2OO.-5. 15) 
5310 CALL VCH0R(R1.C1,32.13I 
5320 IF Cl-CO THEN 5330 ELSE 3470 
3330 CALL HCHOR (L I . CO. 32) 
3340 PTS-PTS*! 
5350 ROT-RAT-1 

5360 IF RAT'.O THEN 5370 ELSE 5390 
5370 IF STR«!PTS) , STR« (SOR) THEN 6140 ELS 
E 53B0 
5380 IF STR-(SOR) STR« 1PTS) THEN 5930 ELS 



6270 


GOSUB 


54B0 










6280 


LIG-9 












6290 


COL-4 












6300 


A*- "PROLIFERATION 


i)FS 


RAT 5. 


6310 




54B0 










6320 


LI G-l 












6330 


COL-4 












6340 


A«-"LO V1LLE 










6330 


GOSUB 


54 BO 










6360 


LI G-l 












6370 


CDL-4 












6380 


0*="LA PESTE 


FT 


IX 


CHOLERA. 


6390 


GOSUB 


34B0 











6450 


CdL-4 


6460 


A«=" VOS SOINS. . . 


6470 


GOSUB 54B0 


6480 


LIG-22 


6490 


COL-2 


6500 


A*="VOUS SENTEZ VOUS D 


6310 


GOSUB 3460 


6S20 


CALL KEY (O.K. 81 




IF K-79 THEN 110 


6540 


IF F=7B THFN 6560 


6550 


GOTO 6570 



SPACE ATTACK 



Tl 99 BASIC SIMPLE 



^»*€wi 



Heureusement que I'espace est peuple d'ennemis, 
sans eux les voyages seraient d'un ennui... 



Mode d'emploi : 

-ler tableau : space -invaders des plus classique. 

-2eme tableau : vous devez, malgre la poursuite de 3 ennemls, at- 

teindre un systeme solaire et entrer dans son attraction. 

-3eme tableau : vous devez attelndre une frontiers en vous dirigeant 

horizontalement dans un tunnel sans en percuter les parois. 




1240 


REN 


BONNE CHANCE ' 


EN AUREZ 


6ES0IN 


1250 


C M. L 


SCREEN (5> 


1260 


CALL 


CLEAR 


1270 


FOR 


=1 TO 28 


1280 


READ 


DD.DD« 


1290 


CALL 


CHAR(DD.DD«I 


1300 


NEXT 




1310 


CALL 


C0L0RI12.8. 1) 


1320 


FOR 


=2 TO 7 


1330 


CALL 
NEXT 


COL OR 1 1.2.8) 
I 


13S0 


CAU 


COLOR110.B.8> 


1360 


FOR 


*1 TD 8 


1370 


PRIN 




?3R0 


; ;r ' ' 


jjjjjjjjjjijjj 
I 


1390 


PRIN 




1400 


FOR 


= 1 TO 2 


1410 


PRINT ■xtliiiiiJiJi 


1420 


NEXT 


1 


1430 


PRINT -xjjjjjjjjjjj 


1440 


PRINT "ijjjjjjjjjjj 






ijjjjjjjjjjjjj 


ft,CjEj.=. 


AjTTjAjCjKjj" 


1450 


PRIN 


"jjjjjjjjjjjj 


1460 


PRINT ■'jjjjjjjjjjjj 



1480 FOR I»l TO 2 

1490 F 

y[),i 

1300 NEXT I 

1510 REM REMAROUE 

ERE LIGNE 

1520 FOR J-0 TO 1 

1530 RESTORE 

1540 FOP [=1 TO 14 

1550 READ 00. N 

1560 CALL SOUNDfDD" 

4.5) 

1570 NEXT I 

1580 NEXT J 

1590 DATA 3.523,4.7 



2 ; ::■ . 

2130 
2140 
2150 



2180 
2190 
2200 



;mportante a l 



1600 DATfl 4. 7S4. 1 ,i.98, 1 .659, 1.698 
1610 DATA 8.587 
16:u FOR I«l TD SOO 
li'O NEXT I 
1640 CALL CLEAR 
1650 CALL COLOR 1 10, 1. 1) 
1660 PRINT '■ FEU POUR REJOUER 
MANNETTE POUR STOP"! 
TO 27, 



1680 F 



:IN1 



CALL SOUND (11,-?.. CD 

1700 NEXT I 

1710 REM INITIALISATION 

1720 OPTION BASE 1 

1730 A»=CHR»U27) 

1740 DIM C141 ,D(4),H(5).FH' 

I7SO RESTORE I860 



1830 VI -=3 



H BF 'LFDFBF7F 

1910 DATA 108.7RBFDFEFR7FBFDFE, 113.FEFDF 

BF7GFDFBF7F. 1 14. 7FBFDFEFF 7F&FDFE . 126. 18? 

C7EIB181B1BIB 

1920 REM COULEURSJ.AFFICHAGE 

1930 CALL C0L0R(B.7.ri 

1940 CALL COLOR (9. 14. I) 

1950 RESTORE 2010 

1960 CALL SCREEN (2) 

1970 CALL CLEAR 

1980 FOR 1=1 TO 7 

1990 CAt L COLOR*]. 16. 1 I 

2000 NEXT I 

2010 CALL COLOR! 10. 1.1 I 

2020 CALL COLOR! U. I. 11 

?'->ZO PRINT "j )lrp(jpppp[.pppBP;jpppppppql J i 

2040 FRINI "ppprl ij JJJ ' 1 I IIJJ J IJ i i ilqPPP 




PRINT ■ 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ■ 

PRINT ' 



")>>>>>>)>>>>>xv>>i>>m>*n 
'>> j) ) > >> j j >> j tu»» j j>> jjj 

3q: ,') Irpppppppppp 



iINT 
I PRINT 
) PRINT 
) PRINT 
) PRINT 
) PRINT 



pppppppppqkjjjjljl' 
jjjjjjjjkqppppppppi 
pppppppqkjjjjjjjjj. 
J J J J J j l> qPPPPPPPPPPPpr 1 J 
PPpppqhjjj] j jj j,jjjj,lrppppp 
J 1 jjFqppppppppppppppppr 1 j j 
pppqk jjjjjjjjjjjjjjijjjlrp 
j j F-qpppppppppppcppprppppr 1 

Rq^jJiJjjjjjjjjjjjjjjjjjji 



3020 

3030 
3040 

3050 
3060 



2260 

2270 
2290 

2290 



CB=B 

IF JEU THEN ! 
i JEU»1 
p B*="MANETTE " 



POUR COMMENCER" 



.59. 1.69B, 2340 F 



> GDSUB 4990 

1 FOR CIA"1 TO 2 

J CALL J0V5TIMA.K.S 

1 IF S-4 THEN 2410 

> NEXT MA 

■ GOTO 2760 



I R-2 



1.1 Ir-ppppppppppppppppppppql j j " 



2490 
2500 

25 1 
2520 
2530 

54 
2550 
2560 
2570 
25Bi 



840 SV«I5 
1950 JEU-0 

IBoO DHIA !54,0o00001BFF18.96,ooB19999WJ 
E7FFE7.91,C177?.r?>FrF7B73Zl,92.4i:214FBFE 
P 1 C804 . 1 20. 03OF3F 3F7F7FFFFF 
1B70 DATA 121.COF0FCFCFEFEFFFF. [22.FFFFF 

efefcrcf'.'c, 123.ffff7f7f3f3fof03, 124.00ou 

ooooob 

1SS0 DATA 125. ",98,0000001818, 99. 00183C 

1B18. 10O.O0247E66TC1B18, 101 . 24FFE77E3C3C 

1S1B, 104.FF9999BDBDFFFF24 

1B90 DATA 105, lB2442B1814224ia,l26,"".13 

6.S1C7773C3C77C3B1, 144. 0OFFFFFFBD99. 127. 

OOOOOOlBFFtB 

1900 DATA 102,24FFE77E3C3C1B1( 



GDSUB 4990 
CALL COLOR! 12 
CALL 5CREEN(2 
FOR 1-1 TO 12' 
CA»CA*2*<CA-B 
CBaCB*2*(CB=-B 
CALL COLOR (10 
CALL COLOR 
CALL SOUND 
NEXT I 
L-16 
CALL SOUND* 100,- 

sc»o 

P-0 

CALL HCHARI24.L, 
0-IN1 IRND»2S*3) 
GOTO 2B0O 



'.FEF 



CA-CA*2**CA=8)«4 




CB=CB*2*(CB=B>«4 




CALL COLOR(I0,CA,2) 




CALL COLORUl.CB.-l 




CALL JOVST (MA. 1.5) 




CALL FEYCMA.KF.S) 




IF K+B-Q THEN 2770 




IF S THEN 2B70 




DF-1 /4 








L=L*DF* IL*DF 271 - (L*DF 


Si 


CALL HCHARC4,L*DF- (DF 


"f ,96] 


IF P-.S THEN 2790 




If 10 L "(0 L MlTHEN 


3270 E 


REM DEFLACEMENT FNNEM 





2810 U=lNTlO*tiGN(L*.5-D)* 
2820 0=0*1(0 301- <0.?-) )»F 
2830 CALL GCHAR(H(F),0.G7 
2B40 CALL HCHARIH(F) ,0,97 
. IF P 5 THEN 2610 LL 
266'.. REM tir ue votre va 
2870 CALL COLOR (9. 14. 16) 
3880 CALL COLOR (9. 1-1. li 
2890 call BCHAFt(H(Pl,L,GI 
2900 CM L BCHAftIHH*l.L + l,i 
2TlO A! HTHAF:(H(F-3 .L.91 
2920 CALL HCHAR(H(P).L*-1. 
2930 CALL 50UNDI-120.-7.5 



i IF ' 

■ REM 



0)*(l 



GOTO 3010 
82*63 

CALL SOUND ( 
SC-SC+10 
CALL HCHARU 
CALL HCHARIF 
CALL COLOR (9. 7, 2 

IF intisc/i; 

ON SC/I20 GC 
i CALL HCHARIF 

> CALL HCHARIF 
I GOTO 2730 

I REM VAISSEAU EN 

> CALL HCHAR124.L,' 
I CALL HCHARI24.L+] 
I FOR 1-1 TO 15 

I CALL COLORt.8,^ 

i CALL S0UND(-50O,-7.i 

I CALL C0L0RI8.9. 12) 

I NEXT I 

I VI=VI-1 

I IF VI»0 THEN 4B20 

i GOSUB 5040 

I CALL HCHAR<24,L. 112 

I CALL HCHAR(24,L+1. 1 

I CALL HCHARI24.0+TT" 



4080 
4090 
4000 



3270 
3280 
3290 

3300 
3310 

-720 
3330 
3340 
3350 
3360 
3370 

3380 

3390 
3400 
3410 



TT-5GN<D-L) 

CALL GCHAR(24,0-TT.G4) 
CALL HCHAR(24,0.91-(TT-1 
CALL HCHAR(24.0-TT.92-(1 
CALL SOUND(-200,-7,0) 
IF lG4-96)«-(G3-961THEN ! 
CALL HCHAR(24,D.G3) 
CALL MCHAR124.0-TT.G4) 
GOTO 2760 
REM aurora 
CALL SCREEN(S) 

CALL C0L0R(i2.IO.II 

GOTO 2760 

REM j our 

CALL SCREEN (16) 

CALL CDL0RU2.9, 1) 

SOTO 2760 

REM passage etape auiu. 



i CALL SOUND1400.220. 



3660 
3670 



3710 
3720 
3730 

. '-in 
3750 

7760 

....... 

7 7 BO 



-220 
) GOSUB 4850 
) FOR 1=1 TD : 
I FOR J=l TO ' 
I CALL SOUND! I 
' GOSUB 4850 
) NEXT J 



CALL HCHARf I+2.L, 112,2) 

L-L*S6NU6-L)>2 

CALL HCHAR(I,L,96.2I 

NEXT I 

CALL HCHAR113, 1.32.76B) 

REM ETAPE #2# 

CALL SCREEN12) 



GUSU6 4990 
CALL CDLQRI12.7 
CALL C0L0RU0.6 



I.RND'31-1. 12. 



CALL HCFIAR'.l, 1.32,32) 
FOB 1-1 TO SV 
G-!NT»RND*23)-M 
G1-IHT(RND*31)*I 
ChLL HCHAR(G.G1. 120) 
CALL HCHAR'G.OIM. 121 
CALL HCHAR(G*1.G1*1, 1 

call hcharig+kbi. i:. p : 



I 
3B70 REM 4ii se I 



I CALL SCREEN (2 J 

) CALL COLOR! 12, 7, 1 ) 

' CALL COLOR* 10,6,1) 

) FOR 1-1 TO 4 

I C(II=INI [RND*24)h l 

.' DtIK INTlRMD#32) + l 

■ ■ M . ■ H '(«'. (C(l ).1)(I j. Ft 
> IF FHCI1 $2 THEN 392' ■ 

■ CAI L H(.H,lh H (11.0(1), l( 



■'"1" si;=sc-i 

■i ; ,... .. rsi itw.K.V) 

4"30 IF ..x = 0)-' ^*0)THEN ' 

M.l. ■■ i all HCHAH(C(»I.K(4l 



CALL GCHARICC 
CALL HCHARICC 
IF (OF, 119). (i 



1 C ( I ) =C 1 1 > *SGN 
I D(I)=D(I)*SGN 
) CALL GCHARIC1 

> CALL HCHARICI 

> IF FH!1) J105 
;■ FH (11=32 

! GOTO 4200 

•) IF FHID-104 



• REn inise ei 
i B»--PART!E I 



42B0 GDSUB 4990 
4290 SV=SY-1 



1 NEXT ! 



4400 
4410 


CALL C0L0R(14,7. I) 
CALL C0L0K(15.2,4) 




4420 


CALL SCREENI9) 
CALL C0LOR116.7.41 

REM jeulpjrcours) 




4450 


CALL HCHAft( 1 1, IS. 127) 




4460 


CALL HCHAR(Y.X. 144) 




4478 


CALL JOVeTfMfl.fi.Si 




4480 


E-X 






X-X+R/4 




4500 


CALL GCHAR(V*t.X.R) 




4510 


IF R 126 THEN 4650 




4520 


P-P-M 




4530 


IF P=100 THEN 4620 




4540 


l»=I + INTfftMD*3-|l 




4550 


I-I-(I+lK5) + tI+ll>28) 




■■' ■■ 


CALL HCHAR1V,E,126-1P=2)) 




.;;; ■,, 


F'RINT TABtlli ""■" 




4580 


CALL HCHARIV,X,1441 




4390 


CALL SOUNDI-l.BBO.OI 




fl&oi-i 


SC=SC+ 1 




4610 


GOTO 4470 




4620 


CALL HCHARIV.E.126) 




4630 


PRINT TflBdli 




4640 


GOTO 4580 




4650 
4660 


IF R-127 THEN 4520 
IF R 154 THEN 4700 




4670 


CALL HCHAR(V-1,E.126) 




468Q 


CALL HCHAR1V.X. 144! 




4690 


GDTO 4730 




4700 


CALL 5OUND'U00. -7,0,4400, 10 




■1 '10 


CALL HCHAR'.V'l. X. 136) 




4720 


GOTO 4760 




4730 


CALL HCHARI1.I.32.76B) 




4740 


CALL C0L0R(12.7, 1) 




4 750 


IF SV-0 THEN 48B0 ELSE 5660 




4760 








GCISUB' 5040 




4 780 






■1 T 70 


GF-32 
BYi IB 




491 u 


IF VI THEN 1970 




■i ■:.. 2< ■ 


CM L SlREENU.'' 




■1 H JO 


PRINT "SCORE: "S3C 




4B40 


F3OT0 4900 




4B5" 


'01 1 1 111 79 




.,■- ■■ 


HEX! 1 




48 v 


RETURN 




4EBC 


- r i [NT '...-. ,..*... 




•BRAVO' 'E 


REi 


' -7'.' 






4890 


LAI L BQUMXIOOG.BBO.OJ 






CALL l.EV(MA.F.S) 




491" 


CAU Jovsr 1HA.I ,£JS3 




•1 920 


U B*SS>0 (HEN 4900 




4920 


IF L/2*SS fHFN 5150 




4940 






.19!j..i 


scvo 




4'?6'l 


VI 7 




4^7- i 


EV=I5 

GO 10 1930 




«99fi 


FDF: 1-1 TO LEN*B») 






CALL HCHAR(D.R'l.ABCi5E6»'B 


.1. 


5010 


NEXT 1 




5-:o: 


RETURN 




5<i :•; 


F'RINT ""CTRLIIl " 




■t,o4C 


RESTORE 5100 






FOR 1-1 TO 11 




506' 


READ DC.Nl.N? 






LAI L 3QUND(0D*60.N1,0,N2,0) 




soiji: 


NEXT 1 




509< 


RETURN 




' 10 


DATA 8. i:i.52;, 6. 171,523 




51 K 






s i :■■ 


DA1A 6. 156.622,2, 145, '--35 






DATA e. 145, 5B5, 2, 171.523.6. 




514' 


I1AIA 1. 1. 1.492,9. 131.523 





CUBERT 

Dans la vie. il y a toujours quelqu'un qui vous empeche 
de changer la couleur des cubes... 

Guillaume TELLO 

Mode d'emploi: 

Votre but est de changer la couleur de loutes les cases, en prenant 
garde au serpent et malgre le monstre bleu qui s'acharne a de- 
faire" votre travail. Attention a la marche lorsque vous emprunlez les 
disques-ascenseurs... Vous vous dirigez a I aide du joystick et le 
nombre de tableaux est illimite. 




1O0 REM DEF CARArTERES'CaULPUfcf 

110 HAIL MAGNIFY [41 : : RANDOMIZE 

120 CALL CLEAR II CALL SCREEN(2li: FORM 

= 1 10 14 is. CALL COLORtI.E.lli: NEIT I 

130 CALL CHAR!136.RPT»("0".19)1."F;FFE3F0 

F "i.RPT« ("O" . 22) VF0FC7FFCF") 

140 CALL CHARI96. "007CFEC6COCOC0COCOC0C0 

O>C6FE7C0000C6L6C6C6C6C6C6C6C6C6C6C6FE7t: 



ill SPRITE (#1.124, 15.44, 149. H2. 1" 

.2051 

140 CALL SPFITE143. 136.3. 143. 93. # 



136.3 



190 CALL CHAR (116. 
aOei82442QlB74A2Cll 

200 CALL CHARI120. 



>BI02( 



0B0") 



1'.'1010101B2442B10B080 
I1B20AB9B94A2C1B") 
101010100B0402010B080 

S3L7EFFFF?E3CIB".41." 



210 CALL CHAR135. 
1B3C7EFFFF7E3C1B") 

220 CALL CHARU24."0'X>3050301O7OD0Bl?O30 
XIBO40S000CO60A0DOBOC0E") 
CALL COLOR!!!. 11.1. 12. 11,1.9.7,1,10. 



240 CALL CHAR (121 



"0003672F3D1F IDOE07030 



250 CALL CHARI!32."0"UOO'J02070F1F1F1F1FO 

f ot- ;.'".m:..;..>.;,0'.'i..O'MjC':>E'.i oFBFBFSFaFOEOC" ) 

26" GOSUB 1190 'PRESENTATION 
270 S.C.J.L-0 :: V=3 ;: T»l 
280 REM •*•••#••.« 

290 REM IMPRESSION DU TABLEAU 
300 REM • 



StO CALL DELSPRITE(ALL): 



CALL MAGNIF' 



4 SO REH *••.....** 

460 REM PROGRAMME PRINCIPAL 
470 REM ••••»••••. 

480 CALL JQV5T(2. X.YJn IF AB5!XI A65!Y 
1 THEN 4 BO 

: CALL GCHARcAl.Bl.il:: IF 1-32 THEN BiO 

1 SORTIE DE LA PYRAMIDS 
500 IF Z-35 THEN C-Cl It IF C-36 THEN C 
ALL HCHAR1A1.B1 ,41 ) i i GCTO 1100 -TABLEAU 

F1NI 
510 CALL HCHAR(Al.B1.41):i A=A1.B-15 II 
B-Bl*B-tl :: CALL LOCATE <•!. A. B) 'PETIT B 
OH HOMME -DE PLACE 
520 IF F-0 AND G-B THEN S-S'2500 :i GOTO 

770 'CONTACT MONSTRE BLEU 
530 IF M-A AND N-B THEN S-S-1500 I) GOTO 

B20 'CONTACT BOULE 
540 IF A=P AND B-D THEN GOSUB 1050 ! CONT 
i-Cr SEF FENT 
550 REM »•»•••••• 

560 REM DEPLACEMENT SERPENT 
570 REM •••••<»*• 

5B0 Y=4-SGN(P-A) | ■ X-4*SGNIB-0I 

590 IF V-0 THEN Y-4 

600 IF X«0 THEN X-4»SGN!RND-.3I 

610 Al = (P-4-Y*15l/B :: Bl- 10+2-X-l 1 J /B : 

: CALL GCHARIA1.B1.D.-I IF Z-32 THEN B60 

620 P-AL8-I3 :: D"B1*B-I1 ■; CALL LQCAT 

E(»2.P,D1:: IF P-A AND 0-B THEN GOSUB 10 

50 ' CONTACT SERPENT 

630 IF J-l THEN 740 ELSE IF L-l THEN BIO 

'DEPLACEMENT DU Zeme FERSONNAGE 
640 REM ...•••... 

650 REM APFARITION ALEATOIREDU 3eme PERS 
ONNAGE 



B=N THEN S«B+1300 : 
820 CALL DELSPRITEd 
B30 REM ......... 

840 REM 50RTIE DE LA PYRA 

MIDE 

930 REM ......... 

860 IF At: 22 THEN 520 'ARR1VEE EN BAS.PA 
S DE DEPLACEMENT 

870 A-AH9-15 tl B-Bl*S-ll :: CALL LQCAT 
E(#1.A.B)I: CALL COINC (*1 . #5.5. 01 1 1 CALL 

C0INC!»!.»6.3,01> 
880 IF Q»0 AND 01-0 THEN 1020 'PAS DE CO 
NTACT AVEC LES D1S0UES. CHUTE 
B90 REM ••••*•••• 

900 REM REMONTEE PAR LES DISO 

UES 



1200 CALL C0INC!*1.65,B1.6.C): 
HEN 1200 ELSE CALL MDTIONtm.i 

L0CATE(*i.65.Bl) 
1210 CALL SPRITE(*2. 100, 13.19: 

1220 CALL C0INC(#2.63.U3.6.C: 
THEN 1220 ELSE CALL M0TI0N(*2, 
L LOCATE 1*2. 63. 1131 
1230 CALL SPRITE(#3. 104, 13. 19: 



910 



' IF 0—1 



THEN X-5 : 



0-5 ELSE 1 



93D CALL MOTION<*1.-10, X.*0,-10.X> 

940 CALL C01NC(#1. 33, 149,6.01):: IF 01' 

THEN 940 
9B0 CALL MOTI0Nl*l.O,O.»0,O.O!:i A-49 i 

B"149 ti CALL L0CATE<#1,A.B> 
960 IF 0*6 THEN 980 
970 at = INT(RND»61-Ml :: Al-20.5-01 :: O 



S.Al.Dl):: GOTO 480 

980 Dl-INTiRND«6)»22 II Al=01-17.5 i 
■01*B-3 II Al«Al*16-7 :: CALL L0CATE(*6 
A 1 , 1 1 : : GOTO 4B0 



1240 CALL C0INC!#3. 65, 145.6, 

THEN 1240 ELSE CALL MOTION <«3. 0,01 ■ 1 CAL 

L L0CATE(«3.65. 1451 

1250 DISPLAY AT115.71:" C 1ELL0 MAI 84" 

:t DISPLAY AT14.4) tRPT«("*i 
1260 FOR 1-5 TO 15 STEP 2 :: DISPLAY AT ( 
1,4)SIZE!11: ■■)■' :: DISPLAY AH! . 25) SIZE ( 



1270 DISPLAY AT(I+1.4)SIZE(1 

Flay at(i*i.25)S1ZE(1)i")" i 

12B0 DISPLAY AT<17,41:RFT»!" 

1290 GOSUB 1460 

1300 CALL COLOR!!. 5, 1,2. 14. !):: RETURN 

1310 REM ............ 

1320 REM DATA MUSI DUE 
IZZO REM ...#......•• 

1340 DATA 392.196,0.196.294,147,0.147.; 
2, 196,0. 196,0. 196 

1350 DATA 587.196,323. 131, 494. 151, 440, 
1,392,131,392. 147,370.14 7,330.147,294. 



12.- 



1000 REM CHUTE. PERTE 
LINE VIE 
010 REM ......... 

020 CALL GCHAR(A1.B1-2.I>1 
ELSE X-5 
30 CALL MOTION!*!. 10, XI 



j REM ' 



320 CALL DELSPR 

21ERASE ALLl"'bl 

330 CALL HCHARI7.20,11 

34'.' FQR,I«1 TO 8 :: DISPLAY AT(2»I'i 

ll:-'q»"t-RPT»<"v#", I -I ) fc'V" j TAB ( 1B-1 

u"(.RPT»!"su", 1-1)11 NEXT I 

350 DISPLAY AT(24,ll)iRPr#("w.".B) I 

L HCHARI23. 12, 120) n CALL HCHARC;;, 

360 DISPLAY AT(7,2)51ZE(5)i"SC0RE" 

SPLAY AT I 13. 1) SIZE (7): "TABLEAU" 

370 DISF'LAY ATI9. 1IS1ZE(6):USING "****** 

":S :: DISPLAY AT ( 13.3) SIZE (2) I 

380 DISPLAY AT(18.1)SIZE17):"CHANGER" : : 

DISPLAY AT (20. 1JSIZE (51. " EN 1" 
390 D*«fiFT»!'T'tCHR»(l27>.3): t DISPLAY i 
T(22.I)SIZE(9):"!~:-":~" || DISPLAY AT<2: 
SIZE<9>iD« 



:=INT(RND»!0): : IF Z :6 THEN 480 !PAS 
DE PERS ONNAGE 
680 IF Z>6 THEN 700 

690 F=49 :: G-149 :: CALL SPRIT£(I(3. 128. 
8.49,149):: J-l II GOTO 4B0 'MONSTRE BLE 

700 M=49 :: N' 



) REM . 



>22 THEN 770 



760 CALL HCHAR<A1,BI,35I :> CALL LOCATE!* 
3,F,G):: IF A=F AND B-G THEN S-S+2500 :i 

GOTO 770 ELSE 4B0 
770 CALL DELSPRITE(#3)ti J-0 :: GOTO 480 



410 REM POSITIONS 
GE3 ET AFFICHAGE 
420 REM ......... 



IN1TIALES DES PERSONNA 



IF Z-32 THE 



040 I 

N 1040 ELSE CALL DEL5PRITE(#1> 

050 CALL SOUNDUOO.-i, 10) i i V-V-l n CA 

L HCHAR{22,2*V*3.32.2):: CALL HCHARI23. 

•V*3.32,2>:: CALL WAIT (200) 

060 IF V-0 THEN CALL DELSPRITE (ALL) : I B 

TO 1150 :: ELSE 430 

070 REM *••••••«•. 

080 REM FIN DE TABLEAU 
090 REM ••••»»••». 

100 FOR 1-400 TO 1000 STEP 50 It CALL 5 



10 0=3 :: T-T*l :: SC-SC+2500«T :: C-0 
: GOTO 320 ! NCUVEAU TABLEAU 
20 REM .......... 

30 REM FIN DU JEU 
40 REM ..#••••*•» 

30 DISPLAY AT(9.1)SIZEI6):USING "**#*i 

:C-50+S :: GOSUB 1460 :i CALL COLOR ( 1 . 

1,2,14.1)11 CALL CLEAR i: CALL DELSPRt 

(ALL):: GOTO 270 

60 REM 

70 REM PRESENTAT] 

BO REM 

90 CALL SPRITE! 



1360 DATA r-92. 196.0. 196,294,1 

2.196,0, 196.0.196 

1370 DATA 597,196,323,131 

1,392, 131.587, 14 7.0. 147,0 

1380 DATA 392.196,0.196.2 

2,196,0, 196,0,196 

1390 DATA 5B7. 196.523. 131 



47,- 



31, 



330, 1 



1400 DATA 392, I9Q.0. 196,4 

4, 196.0. 196.0.196 

1410 DATA 597.196.323.131 



494, 131. 440. 1 



1430 DATA 392,196,494.196,440.: 



6.494.196,' 



147,' 



1460 RESTORE 13 

1470 READ R,U :: IF U-O THEN RETURN ELSE 

IF ft.-O THEN 1490 ELSE CALL C0L0R(2,i 
,1,5,1):: CALL SOUND (200, R, 10, U, 20) : : 
LL C0LORI2, 5,1,1." 



JffiC^ 



CANADAIR 



"Volez" au secours d'une ile menacee par un incendie 
devastateur. 



Mickaei SCHMITZ 



•CANAOAlRl 




•FAR SCHMITZ MICKAEL* 
• TEL, (8G> 77.21.63" 
.....HEBDOGICIEL-»..» 



220 DISPLAY ( 



EU H 



230 DISPLAY AH22. 1 ) t "pour HEBD0G1CIEL" 

240 DISPLAY AT<24, 1) i "copyright 1985 M. 

SCHMITZ" 

230 ACCEPT ATU3.1>VALIDATE("12"):A# 

260 IF A»-"l" THEN CALL CLEAR :i GOTO 29 



270 IF A»""2" THEN 47CI 

2 BO GOTL 250 

290 REM .REGLE. 

300 PRINT TABI7JI-C A N A D A I R" 

310 PRINT "-A BORD DE VOTRE CANADAIR V 

QUS ETES CHARGE D'ETEINORE L'INCENDIE DE 

FCRET OUI SE FROFAGE DANS LA MONTAGNE 



ET POUSSE PAR LE" 

320 PRINT -MISTRAL SE D1R1GE VERS LE 

RESERVOIR D'ESSENCE AU DE BUTDU JEU VGT 

RE SCUTE A EAU ET VIDE VOUS DEVREZ AMERR 

IF: EN DOUCEUR SANS " 

330 PRINT "HEURTER LE BATEAU UNE FOIS A 

MERR1 LE REMPLISSA8E SE FAIT AUTOMATI 

UUEMENT MAI5 ATTENTION VOUS NE POURREZ 

DECOLLER OU'UNE" 
340 PRINT "FOIS LA SOUTE PLEINE AUSSI N 
■AMERRIS5EZ PAS TROP PRES DE LA COTE.DE 
5 OUE LA SOUTE EST PLEINE DECOLLEZ RAPID 
EM-ENT ET LARGUE?" 

330 PRINT "L-EAU AU-DESSUS DU FEU EN A 
PPUYANT SUR <TIR.Vl 
360 INPUT "FRESSER ENTER":"* 
370 CALL CLEAR 

3B0 PRINT "NE VOUS RAPPROCHEZ PAS TROP P 
RES DES FLAMMES ATTENTION A LA FORCE DU 

vent out Infl-uence la traject. oe l'ea 

790 PRINT iTAB(7) : "INSTRUCTIONS" 
400 PRINT i'LEVIER AV. POUR DESCENDRE 
LEVIER AR. POUR MONTER. " 
410 PRINT :TAB(7)1"SC0RE" 
420 PRINT :"1. NIVEAU 1O0 F'TS PAR FEU. 
ETEINT 2, NIVEAU 150 

PTS PAR FEU ETEINT. " 



. CLEAR i : GOTO 470 
460 Z«-"LA FRESSICN ET TROP FORTE" 
470 E4-"C0LLISI0N AVEC UN OBSTACLE" 
480 B»-"TROP PRES DES FLAMMES" 
490 C*-"MAUVAIS niw«>TC=n<-'" 

500 d*-"mission echouee" 
510 call clear 

520 DISPLAY AT!1.7)t" 



RINT : 



"PRESSER ENTER"! 



530 DISPLAY AT(23.1>: "CDpvnght 1983 

54u DISPLAY AT(9.1)i"l DEBUTANT": : ": 

EVRONNE" 

550 ACCEPT ATI13, l)VALIDATE("12")BEEf 

S60 IF A«-"l" THEN SD-100 :: FR-6 :: 

20 : : GOTO 600 

370 IF A«-"2" THEN SD-150 it FR-3 n 

10:: GOTO 600 

390 GOTO 550 

590 GOTO 590 

600 RANDOMIZE :: A-INT (RND.4) . 1 

610 CALL CLEAR 

620 CALL SCR£EN(6) 

630 CALL CHAR! 128. "0007 1 F7FFFFFFFFF ' 1 

640 CALL CHAR!129."00O00r>000OOlO3FF"l 

630 CALL CHAfif 130."0103070F1F3F7FFF"1 

660 CALL CHAR!i:i. "0 1 1 030303OF 7FFF " I 

670 CALL CHAR ( 132. "OOOiJOOOiiO'.-'i'.ii.ivFF' ! 

680 CALL CHARI136. "031F;F7FFF7FuF03-'1 



CALL 


CHAD | 


37 


";foi'07oouoouoo'X. 




CHAR! 


W 


"FFFFFFFF7FO0UO0O 


CALL 


CHAR! 


Vf 


"FFFFFFFFFF7F3BOO 


CAU 




40 


"FFFFFFFFFF3E0O0O 


CAU 


CHAR! 




"FFFFFFFF070OOOOO 


CALL 


CHAR! 


42 


"FFFFEOCOBOOOOOOO 


CALL 






"FFFFFFFFFFFFFFFF 


CALL 


CHAR! 


:'o 


"FFFFFFFFFFFFFFFF 


CALL 


CHAR! 


21 


■ ooooo ooooooooooo 


CALL 




10 


"BOB0B0BO90BOaoFF 


CALL 


CHAR! 




"01010101010101FF 


I .'.1 ; 


COLOR 


10 


B, 13) 


CALL 




09 


-OOOOLH.iOOOuO'i'OOFF 


FOR 


=3 TO 


' 


: CALL C0L0RII.7.E 


CALL 


COLOR 


17 


3,8) 


CALL 


CDLOR 


13 


4,6) 


CALL 


COLOR 


14 


4,3) 


CALL 






1. 120.32*B) 


CALL 






. 121,32.31 


DISPLAY AT 




)SIZE!3):"SC0RE" 


DISPLAY AT 


1, 


41SI7E(5l i-RESER* 


01SPLAY AT 


i.: 


4ISIZEI41 :"VENT'' 


CALL 


HO-F 


3.17, 110) 



920 CALL HCHARI3.IB.: 
930 CALL HCHAR13.19.I 



Suite page ' 7 




42.FFFFFF3F0FO1.43.FFFFFFFFFFFF3F1F 
90 DATA U0.0703O1.91.FFFFFF7F3F1F0F07.9 
2,O301Ol,93.FFFFFFFFFF7F3F3F,94. IF1F0F0F 
0FO7O707, 93, 0707030303030303 
10O DATA 96.FFFF.97,FFFFFEFBE0C08.9B.FEF 
EFCFCFBFBFBF8.99.0000FFFFFFFFFFFF. 100.00 
OOFOFOEOCOfl, 101.FEFCFBFBEBCCB6O3 
110 DATA I02.0i>X>00':i:"303':'303,103.FBFBFC 
FCFCFEFEFE.104.O000008OC0E0FOFB. I03.FCFE 
FFFFFFFFFFFF. 106. 000 1 O3070F 1F3F7F 
120 DATA 36.O10D1JF677E3B1B7O70IB3B7E670F 
ODO1BOBOFOE67E1C180E0E1B1C7EE6F08OBO. 60. 
0000000001 0707OFOF '171.1 ''.'IOOwOoOOOOOOOOOO 
BOEOEOFOFOEOE080 

130 DATA 44.071F3F7F7FFDFBFD7F7F3F1F0700 
00O0O0COEOFOFOFBFaF8FOF0E0C132. 0O0IQ3OF 
;E7a£' , ic<.iO0'.'ixi>x>'".itXK'uO':>': tff<jcobu'''OOOOOoo 
00 

140 DATA 32.3S7C7C7C7C3B0O000O00O0O0QO0O 
000000000000000 000 OOOO. 140.0O00OOO0307CF 
FEFF FFF 7F 1 F0700O00O0OO0O00000000O8OC0E0F 
OFBFCFC1C0O 

150 DATA 116.00OO0O071F7FFFEFFFFF7C30O00 
00O00001CFCFCF8FOE0C080. 120,000000000000 
Q0O1O3O7OF1F3F3F3BO0OO0O0O0OOC3EFFF7FFFF 
FEFBEO 

160 DATA 1 24, O O 3B 3F 3F 1 F OF 07O3O 100000 0000 
■L.FBFEFFF7FFFF3E0C0. 12B.071F7 
FFFFFFFFF7F1F07000000000000EOFBFEFFFFFFF 
FF6FSE0 

170 DATA IO9.O'juOO0Ooi.iOOOFFFF,64.0O, 136. 
SOB':. C 1 :i4i.>«iJ6i. 20203C I BOC06O3O100O00O0O00OO 
0O0O0OO0O0OQO00O0080C 06. 107.000000000020 
70FB. 1QB.FB7020 
180 RESTORE BO 

190 FDR I-l '■■-■' II READ N.Ai t: CALL f 
HARIN.A4IH NEXT I li DISPLAY ERASE ALL 
:; CALL VCHAfttl. 17, 136.360) 

200 DATA "(■ !•+((", "bfcco nit"," 

up!.. \3". "opbSMk 716k- " . "opoOoOoOaO 
o. ". "ORoOoOoOoOop". "g 1111 OB",-lh 

op" 
21" DATA "(i ft op"."<< 1 or"." 



310 BA-BA1 n DISPLAY AT ( 19, 19ISIZE 

USING "*":80 :: IF BA- 2 THEN CALL 

19,2B.64>ELSE CALL HCHAR ( 19, 28,83) 

320 Z-INT!RND»2>«3 :. IF Z-3 THEN CALL C 

OLORIN5.131 

330 IF BA-0 THEN 1S70 ELSE IF Z-4 THEN 3 

50 ELSE DISPLAY AT (22. 1BISIZE 19) : "RESSOR 

T 4" :i ACCEPT AT(22,26)SIZE<-1)8EEP VAL 

IDATEIDIGITJiX 

340 IF X<1 DR X>B THEN 330 ELSE x-x-5 

350 DISPLAY AT(22.IB)5IZE(9)i M T I R " 

:: CALL KEYCl.K.S) I : DISPLAY AT122. IB) S 
IZEI91!" " :i IF S-0 THEN 350 

360 FOR 1—59 TO -32 :; CALL MOTIONiNl.I 
.0):: NEXT I :i CALL LOCATE (Nl . 49, 104 >: , 

FOR I-l TO 23 ii CALL M0TI0N1*! , -26*1 . - 
111: NEXT I it RETURN 
370 ' VI 

3B0 CALL 5PRITEIH5. 132, 1.157. 84) t: Z — 7» 
(B-56)-B»!B-72>-9*!B-88)l! IF 
CALL LDCATE(*l,A+3,6) I I GOTO 
390 IF ABS!56-BK-AB5!72-B)THEN Z-7 ELSE 

IF AB5I72-B)- -ABSIB8-BITHEN Z-B ELSE Z- 



400 n»-56»!I-7!-72»(Z-8) 
410 CALL MOTI0N!#l,-3,3< 
PQSITION{»i,A,B)ii IF i 
E CALL L0CATEIK1.A.M1 

CALL MOTION t* 



,10 X-X-l II CALL f 
C01NC(*l.N2.lO.CO)i 
ELSE CALL MOTION!*] 



: NOT CO THEN 610 
>.-Y)n RETURN 



30 Sl-140 i: GOSUB 1730 i: NM=INT!RND*2 
'1 

CALL M0T10NINI.X, Y)i 



640 



. COINCU 
CO THEN 640 ELBE CALL LOCATE (I 
630 X-I ti IF NM-1 THEN Y-6 tl 
ELSE Z-INTIRND»2>-19 n F-15-1 
660 X-X+l :i CALL MOTION t*l . X. 



COIN! 



:,CO)i 



; CO THEN 6B0 ELSE 



i THEN 



670 X-X-M ii Y-V-.2 li I 

Yin CALL POSITION(*1.A. 

N 670 ELSE CALL LOCATE (I 

6 BO RETURN 

690 • C3 

700 Sl-120 ii GOSUB 1730 I 



Z-16 



RETURN 



X.O)i 



430 > V2 
440 Z-3 ii 
1,1.-12)11 

LL MOTION!*!, I. -10)11 NEXT I 

450 CALL SOUNDUOO. 3O0»X,Q.20O«>(. 2. 100*X 

.3,-3.4) 

460 FOR 1-0 TO X I! CALL MOT ION t*l , I -X, X 

♦1)ii NEXT I ii FOR 1-0 TO X ii CALL MOT 

IDN(«i.I.K*i-I):i NEXT 1 ii RETURN 

4B0 FOR 1-1 TO 14 :i CALL MOTION <*1 , o, -2 
2lil NEXT I ii FOR 1-0 TO 20 STEP 4 i: C 
ALL MOTIDNltl. I. 1-241:: NEXT 1 
490 F0R - I-1 TO 3 :; CALL MOTION <*]. 17. O) 
:i CALL SOUNDt-20. 110*1. 0>i: NEXT I II B 
QN=B0N*500 i: GOSUB 1750 n FOR I-l TO 7 

ii CALL HOTI0NIN1. 23-1. 1*41 ii NEXT I 
500 CALL MOTION t*l , 0, 0) II CALL L0CATE(*1 
,70,441(1 FOR 1—3 TO 3 ii CALL MOTION!* 
1.3*1. =•!>:: NEXT I :: CALL HOTIDN!*1.0, 
0):: CALL LOCATE <*1 , 68,4 1 I : i Z-6 n RETU 



720 5C-5C*500 i: BON-BDN-,200 II FOR I— 

TO -20 STEP 10 ii CALL M0TIDN<*1 . I .0) 

i NEXT I ii GOSUB 1730 

730 FOR X--12 TO i; CALL MOTION!*! , X. 

Ill CALL SQUNDI-l.lOOO.Oln NEXT X 

740 FOR X-2 TO 20 ■: CALL MOT I DN IN 1 . X . ! 

5C-SC300 ii B0N-80N*2OO i 
: CALL M0T10N(*l,0,0ln C< 

'0,40)ii Z-6 ii RETURN 



3C:_ i- i 



. LOCATE 1* 
730 ! R2 
760 FOR I- 
-IBIii NEI 
OTION 



TO 10 i 



CALL MOTION!! 



' I 



: CALL S0UND1-20.1 



M0TI0N1*!. 12,01 II FC=INT!RND*3) 
♦I II IF PO. 1 THEN CALL COLOR («5. 13) ELS 
E CALL C0L0R1»5. II 

B90 CALL MOTION!*!, 12.0) 1 : CALL POSH 
!#t,A.B)!i IF A:83 THEN B90 
900 X=ll i: FOR I-l TO 3 ii CALL MOTION! 
• l.X.Oln BC-BC+200 ii BON-BON- 
:: NEXT I 
J GOTO 930,920,920 
920 CALL POSITION!*!. A. Ei) : : IF 
N 920 ELSE CALL LOCATE (HI . 151, BB) i i 

MOTION!*! ,3.-6) i i Z-17 ti GDTO 10* 
730 B0N=BDN»5 :i GOSUB 1750 
940 CALL C0INC(*1, 172. SB, 3. COiii IF 
CO THEN 940 ELSE IF OV-1 THEN CALL I 
N(»l. K.Oli i QOTO 9B0 
950 CALL MOTI0Nl*l.B.-6) I : FOR I-l TO BO 

II NEXT I 
96m )ii IF CO THEN CALL MDT ION 1*1 . 1 ti, 
LSE 960 

970 FOR 1=1 TO 30 ii NEXT I it CALL I 
PRITE(*l):i Z-30 ii GOTO 990 
980 FOR I-l TO 20 it NEXT I ii CALL MOTI 
0Nl«1.8.6)ii FOR 1=1 TO 34 ti NEXT I i 
Z-l ii FOR 1 — 16 TO ii CALL MOTION!! 
0.-I/2)n NEXT I i: BA-BA'l 
990 FOR )- = l TO BON/1000 
1000 CALL COL0R!*2,3.*4.9.»6.1!.«B. Ill 

SC = SC+IO.jO i: 6ON=60N-10O0 :i GOSUB 1 
O ti CALL COLDR!*2,10,*4,2,N6,3.N8.5> 
1010 FOR J-l TO 6 li CALL S0UNDI40.32C 
0.-3.8)1! NEXT J 

1020 NEXT f ii IF E-ON-O THEN 1040 
1030 FOR J-l TO BON/100 ii SC-SC-100 i 
BON-BON-100 ii GOSUB 1750 II NEXT J 
1040 RETURN 
1050 ' FD 



1070 CALL PATTERN1N6. 140.#8,120)ii FO 
>S TO 16 i: CALL MOTION mi. 1/3, -SI 1 1 
L JOYST(l.K.S)! ■ IF K-4 THEN 1090 
10B0 NEXT I ii FOR X-6 TO 26 it CALL MOT 
lONim.X.O): i NEXT X n CALL DELSPMTE" 
lit! Z-30 ii GOTQ 1100 

1090 CALL PATTERNOB. 124) , ■ CALL SOUND i - 
30. -2,01 t I CALL PATTERN(*8. 120):: Z-INTI 



1 V4 



sro CALL MOTION!* 



: CALL P0S1 



1 TO o ! 1 CALL 1QT1QHH#I,X.8> 
II NEXT X II CALL L0CATE<»1.3.33)lI V-12 

II CALL MOT1QN(*1.0. Y>: ! P- I NT (RND»2B > ♦ 
40 I ■ BON-BON-500 I I GOSUB 1730 
7B0 V-Y=:?-i|-CALL-MOTION(*l.tT;Y)i t CALL 

F-OSIT10NI»1.A.B) t I IF P.'B THEN 7BO 
790 FOR X-I TO 6 it CALL MOTION!«1 . X/2. Y 
)i: NEXT X :: Z-3 i: RETURN 
800 ! R3 



B20 FOR 1=1 TO 30 t: NEXT I :i 
BJO ' R4 
B40 FOR x-6 
i NEXT X ii 
i B0N-BON»4C 



.100 RETURN 
■ FG 



1120 GOSUB 1B40 ii CALL C01NC (Nl . N6.C.C0 
It! IF NOT CO THEN 1120 ELSE CALL LOCATE 
(Nl. 160,41) 
1130 CALL PATTERNIN6. 140. #8. 120)1 : FOR I 
-B TO 17 it CALL MOTI0NIN1 . 1/3. 5) i i Ci 
JOYSTU.K.Sli i IF K"-4 THEN 1130 
1140 NEXT I it FOR 1-6 TO 29 n CALL MOT 
ICN(»1. I.OUi NEXT I ii CALL DELSPRITEIN 
1)11 Z=30 t i GOTO 1160 

1130 CALL PATTERNIN6. 116) i i CALL SOUND — 
30,-2,0):i CALL PATTERN (*6. 140) i : Z-INTI 
(1-61/41*27 



FOR I- 



irtTiCXP 



CANADAIR 



Suite de la page 16 




) CALL SPRITEIN2. 104. 13.105,226) 
) CALL SPRITE1N3, 104,13,117,213) 
) CALL SPRITE!*!, 100,13,90,240) 
I CALL SPRITE<*4, SB. 15,118,202) 
) CALL SPRITE(N2B,96,4, 120, 1,0.3 
) CALL SPRITEK27. 36, 11,84,238) 
) 0(11-88 ii WID-230 



I 



to : 



EXT I 

950 CALL HCHARU7. 27, 143,6) 

960 CALL HCHAR(16. 29. 143,4) 

970 CALL HCHARH5, 30. 143,3) 

9BO CALL HCHARM4. 31. 143,2) 

990 DATA 13.32,128.13.31,129,14.30.130.1 

3, 29,131,16,28. 130. 16. 27. 132 

1O0O DATA 17.26, 136, 18,27. 137. IB. 2B, 13S. 

18,29, 139, IB. 30, 140, IB, 31. 1*1, 19.32.142 

1010 FOR 1=1 TO 13 

1020 READ A.B.C 

1030 CALL HCHARIA.B.C) 

1040 NEXT 1 

1O50 FOR 1-7 TO 12 II CALL HCHAR ( I . 1 , 32. 

T2)ii NEXT I 

1060 CALL. CHAR! 104. "040E IF 1F0Eu4160Cu404 

2F7E7BFOEOAOOL0507fl756F.;FaEOC08000000000 



1240 0(41-105 i 
1250 0(31-109 i 



:i-224 



II-21C 
1151-203 



■'":■■■■"■: rTD4D742A3Al 



1260 CALL SPRITE!»24, 92, 12,50, B. 0,5) 

1270 REM BOUCLE 

12B0 CALL JOYSTd.X, Y) 

1290 CALL PATTERNIN27.36) 

1300 CALL M0TION(*24,Y<U.3.5l 

1310 CALL P0SITI0N(*24.X. Y) 

1320 CALL PATTERN!*27,40) 

1330 S-S*l 

1340 IF S>TE THEN Z=Z*1 It IF Z >3 THEN 2 

030 tl CALL LOCATE IN27. OiZ> . WIZ) ) ti S-0 

!i V-U+.3 i: CALL C0LOR(*V,2) 

1350 CALL P0SITI0N(W24,X,Y> 

1360 IF X>120 AND X127 THEN 1500 

1370 IF X'127 THEN M»-C» ii GOTO 1620 

1380 IF X<24 THEN M*-Z» !! SOTO 1620 

1390 CALL CQINCIN1.N24.10.T) 

1400 CALL COINCIN2.N24. 10. Y) 

1410 CALL C01NC1N3.N24, 10.U) 

1420 CALL C0INCIN4.N24, 13, 1) 

1430 CALL C0INCIW2B.N24. 12,0) 

1440 CALL C0INC1N27,N24, 13.F) 

1430 IF T— 1 OR Y--1 OR U— 1 OR I — 1 OR 

G— 1 THEN M*=E» :: GOTO 162u 

1460 IF P«-l THEN M*-B» ■! GDTO 1620 

1470 CALL >EY11,R,R) 

1480 IF R-18 THEN 1750 

1490 GOTO 1280 

1500 REM *ESSENCE« 

1510 IF ES-.2 THEN 1620 

1520 CALL M0TI0N1N24.0.2) 

1330 FOR l-l TO 30 

ie,40 CALL FATTERNiN27,:.6): t CALL COINCt* 

4,»24, 18. Tin CALL C0INC(*2B.*24, 16. V) 

1330 IF T— 1 OR Y— 1 THEN M«*E» ii GDTO 



(ITE1N24.N2B) 

DISPLAY AT1B, 
■" i i SOTO 2170 



I ES-2 

i CALL M0TI0N1N24.-5.5) 

) GOTO 12B0 

i REM "COLLISION* 

I CALL M0T10N(#2B.0.0.* 

> CALL SOUND (1000. -7.0) 
i FOR I-I TO 5 
i CALL C0L0RIN24.5) 
) CALL COL0R(*24.9) 

> CALL C0L0RIN24, 11) 
) CALL COLOR 1 #24, 7) 
i CALL COLOR 1*24, 2) 
I CALL C0L0R1O24.16) 
' CALL C0LORIN24. 13) 
) NEXT I li CALL DEL5PR 
) DISPLAY AT17, 1) iM» 
'VOU5 VOUS ETE5 DETRUIT 
) REM >LARGAGE* 
' IF ES-2 THEN 1790 ELSE 1770 

I CALL COLOR! 10.8. 12) it CALL SOUND! 10 
,,0)t: CALL C0LORI10.8.13) 
) CALL SOUNDUOO, -1.0)!i CALL COLOR 1 1 
12)11 CALL SOUNDUOO, -1.0):: CALL CD 
110.8, 13)n GOTO 12B0 
) REM »ACCEPTE» 

I CALL SOUNDUOO, -6, 14.40000, 14) 
) CALL P05ITI0NIN24.X. Y) 
I CALL SPRITE!«26. 116.16.X*9.Y+5.3.1+ 
S))i: CALL COL0R110.8, 13) 
) FOR I-X TO 116 
J CALL JOYSTIl.X.Y) 
) CALL MOTION!»24, Y.3) 

> CALL PATTERN1N27.36) 

> CALL C0INCK26.N27.FR.D) 
J IF D— I THEN 1960 

> S-S*l 

) CALL PATTERN1N27.401 

'J CALL POSITION(N26.X,Y) 

i IF Y>230 OR Mlt THEN 1940 

5 NEXT 



CALL SPRITE 1*2 



2020 S«-STR*(SC 

CALL HCHARI3, K-4.ASC1SEG41S' 

XT I ii ES-0 

2030 V-0 it 1-0 1 i S- 

7,36, It, 84,238) 

2040 GOTO 1280 

2050 REM *EXPLO» 

2060 CALL MOTION!*24.0,0) 

2070 CALL MOTI0N1N28.0.0I 

20B0 CALL DELSPRITEIN27) 

2090 CALL CQL0RrN4.7> 

2100 'CALL 5OUNDU0O0.-7.O) 

2110 CALL CHAR1BB. "060FOFOFO70707OFO3O70 

F0F07O707OFFaFBF8FaF0F0F0FOEOF0EOEOEOE0F 

OEO") 

2120 CALL C0LDR1*4,2I 

2130 CALL CHARI44. "000103010100000103000 

00301 oioooi FaFCFCFaE^-ooecFOEOoococoaoeo" 
oao-i 

2140 CALL 3PRITEIN9. 44. 2, 11B, 199,-4.2) 

2150 FOR I-l TO 440 ii NEXT I i: CALL DE 

LSPR1TE1N9) 

2160 DISPLAY AT!7. 

I DISPLAY AT18.I)] 

E" ii GOTO 2170 

2170 REM »FIN PARTIE* 

2180 DISPLAY AT<9.1)|"UNE AUTRE PART1E" 

2190 CALL KEY10.R.R) 

2200 IF R-79 OR R-lll THEN 2230 

2210 IF R-7B OR R-110 THEN END 

2220 GOTO 2190 

2230 REM »OUI» 

2240 FDR 1-7 TO 9- 

CALL HCHARI I, 1,32,33) 



2260 NE«' 



) CALL DELSPRITE(*26! 
) GOTO 1280 
) REM »FEU ETEINT* 
. CALL SDUND!500,-6.': 
i CALL DELSPRITEIN26, 
> CALL C0L0RIN1.13,*: 
I REM »SCORE» 
1 SC-SOSD 



££*: 



2270 CALL HCHARI3. 1. 121.6) 
2280 A-INT(RND»4)*1 
2290 A*-STR»(A.2) li FOR 1-1 1 
CALL HCHARI3, I-27.ASC!SEG*!( 



: fl ,_„ i ii T n Ef g FR=6 I 



TEXAS BOUTEILLE 

BM6 



TI99 BASIC ETENDU 



Avant de degommer des indiens. il serait prudent de 
vous faire la main sur quelques bouteilles... 



Gilbert STEVER 



ai tag 





O REM • 


• *STEUER«<"GILBERT<* 


REM 


•&*•GHS••D■ OCEANIE' 




»*«»TH10NVILLE««« 


REM 


•MMHH>S7100<HMMHH>*M 


REM 


««P0UR«TI~99/4A»i'" 


00 REM 


*.ET«S0N*«BA5IC" 


10 REM 




20 REM 




30 REM 


D.ns 1* programm* t 



140 CALL CLEAR :: CALL 5CREENI2) 

130 CALL LETTRES 

160 FOR 1-5 TO a :: CALL COLOR (I . 16. 1 > >l 
NEXT I :: DISPLAY AT (24. 3) : "APPUYEZ SUR 
UNE TOUCHE" :i CALL SOUND ( 100, 1000,0) 

170 CALL KEY(0,K,B)tl CALL MAGNIFY ( 1 ): I 

FOR I-! TO 50 :: NEXT I n CALL MAGNIFY! 

2)i: FDR 1=1 TD 50 i: NEXT I 1 i IF 8-0 T 

HEN 170 

1B0 IF JEU1:=1 THEN END 

190 JEU1-JEU1+1 

200 CALL DELSPRITE IALL) 

210 CALL TRAIN 

220 CALL CLEAR :; CALL SCREEN(2>n FOR I 

-0 TO 12 ii CALL COLORU, 16, 1! II NEXT I 

230 DISPLAY AT (24, 1): "VOULEZ-VOUS LES RE 

GLESIO/N)" 

240 ACCEPT AT(24.28)SIZE(-l>VALIDATEl"CN 

on")BEEP:RP» 

D" OR RP*-"o" THEN 260 ELSE 



420 

260 CALL CLEAR :t CALL SCREEN !2 



-0 TO 12 il CALL COLOR ( I 
270 DISPLAY AT(2,3: 
IREft" :i DISPLAY A' 
LLES(20)" j: DISPLAY AT 
NT DE FACDN" 
280 DISPLAY 
AN" : ! DISPI 



FOR ] 



SOO [ 



(22,311 



DISPLAY AT(24. 
OUCHE" 

310 CALL KEY(O.K.S) 
III IF S=0 THEN 310 
320 CALL CLEAR 



330 1 



ES" 



heme - 

[ SPLAY I 



I KTU 



350 DISPLAY I 

360 DISPLAY ( 

370 DISPLAY I 

TflNT" 

380 DISPLAY I 

390 DISPLAY f 

400 DISPLAY ATC 

UCHE" 

410 CALL KE1 

III IF S-0 THEN ' 

420 CALL CLEAR ii 

MATEUR (40)" It I 



FLIPP 



Suite de la page f 7 



(14, 15)STZEI- 



FIRME (30)" i: DI! 

ESS10NNEL (20)" 

430 DISPLAY AT112, 

440 FOR 1-0 TO 12 

i NEXT I 

450 ACCEPT AT 

3 , '1BEEPjCH0IXI 

460 IF CH0IX*="1" THEN 1 

470 IF CH0IX»-"2" THEN 1 

4B0 IF CH0IX*="3" THEN 1 

490 IF JEli: =1 THEN 750 

500 CALL DELSPRITE(ALL) 

510 CALL CLEAR 

520 CALL CARRACTERE 

550 CALL DESS1N 

540 CALL MAGNIFY!!) 

350 C-ALL SPRlTEItl, 32,5, 96.30,1 

12,3 



*3, 43,7.96,230,1 



6,l)w NEXT 

VQTRE ROLE EST DE T 

SUR DES BOUTEI 

3) :"OUI VIENNE 

ALEATOIRE SUR L'ECR 
3>I"IL ¥ A TROIS NI 
12.3):"DE DIFFICULT 
i)l"l - 40 CARTOUCHE 

"2 - 30 CARTOUCHES'' 
"3 - 20 CARTOUCHES'' 
"VOTRE CHOIX NE COR 



560 CALL SPRITES 
12,230) 

570 CALL M0TI0NI*l,0.8.*2.O,l 
TIDN(*3,0,~B, *4,0,-B) 
3B0 FOR A=l TO 17 
590 FOR 1-1 TO 17 II NEXT I : 
£RN!*1.40,»2,44>i i FDR 1 = 1 Tl 
I il CALL PATTERN (#3, 56, t4.( 
1 TO 17 It NEXT I 
600 CALL PATTERN!*!, 32. *2. 36: 



610 NEXT A 

620 CALL M0TI0N(m,0,0,*2,{ 

0,0) 

630 CALL PATTERN1*I.40,*2.< 



03, 4B, 04. 32 



: CALL S0UNDM0.-3.0 
3PLAV AT(2,3) t-'POUR 
"LES BOUTEILLES NE S 



ARR1VENT AU DESSU5" 
"DE LA MONTAGNE" 
"VOUS DISPOSE! D - AU 

"DL CARTOUCHES OUE" 
"VOUS LE V0ULE2" 
"APPUYEZ SUR UNE TO 

CALL B0UNDM0.-3.0 



640 CALL LOCATE <«1, 96, 30. *2. 112,: 

630 CALL L0CATE("3,96.230,M, 112, 

660 FOR 1=1 TO 500 

670 NEXT I 

680 CALL SPRITEIH6, 124, 16,96,4, 

50UNDM0O.-7,O> 

690 CALL SPRITEI-20, 116. 16. 106,38.0, 127 

:: FOR 1-1 TO 60 : : NEXT I 

700 CALL DELSPRITE(»6.*20> 

710 CALL DELSPRITE<*3.*4) 

720 CALL SPRITE(*3, 64, 7. 1 12, 214.H4.68, 7 

112,230) 

730 FOR 1=1 TO 1000 i: NEXT I 

740 CALL DELBPRITE!*3,44> 

750 CALL CARRACTERE 

760 CALL DESSIN 

770 CALL SPRITE(*1,40,3.96,30,*2.44,3.1 

2,30) 

7B0 CALL BOUTEILLE. 

790 ■-:-..-:■■ ,i IP CAS-21 THEN 1 1 SO 

BOO CALL J0YSTI1.X, 

Y.2.0-,*2.-Y-2,0)t t 

L C0INC(#20,*3,7,C) 

: IF B-0 THEN BOO 

BIO CALL CGINCt#20,»3,7 

N 990 ii TIR-TIR-! 



870 CALL COINC <*20,*3,: 



FOR ■ 



HBO CALL TOP 

1190 SC-SC+400 :: BON-BON+200 :i FOR I- 

30 TO -20 STEP 10 it CALL MOTION ("1 . 1 , C 

i NEXT I t I GOSUB 1730 
1200 FDR X— 20 TO -5 ii CALL M0T1QN<»1. 
,0)11 CALL SDUNDI-1, 1000. On : NEXT X 
1210 Y=INT(RND"4I*4 ii FOR X--Y TO Y n 
CALL MOTION(»l.X/2,Y/2) t I NEXT X ti !-• 
: i RETURN 
1220 ' B2 
1230 CALL TO* 
1240 X--4 

1230 X-X+.3 ii CALL MOTION <*1 . X. 9) t i C* 
L PDS1TI0N("1,A.B)II IF B 86 THEN 1230 E 
LSE CALL L0CATEI»1.A,BB>! i Z-16 II RETUR 



1270 CALL TOF 

1280 CALL M0TI0N(*1.-1B.-10I: t CALL COIN 
Ct*l,*4.B,C0)ii IF NOT CO THEN 1280 ELSE 
Z-6 il- CALL M0T1DN<*1, 0,0)11 CALL LOCAT 
E (It 1,68. 41)i i RETURN 
1290 ' 64 
1300 CALL TOF 

1310 CALL MOTI0NI*1.3,-9>i t Z-!NT(Rf 
• IS tl IF Z-13 THEN CALL COLOR!*!!.: 
E CALL COLOR (mi. 131 

1320 CALL M0T10Ntm.I.-9ll I CALL PO! 
Nim.A.B!:: IF B 29 THEN 1320 
1330 FOR 1»2 TO B it CALL MOTION!*! . 1 • I . 



TO -26 i 



TOF ; 



FOR I 



0TI0N1K 
1,0.0)11 Z-30 :i RETURN 
1420 ' FD3 

1430 CALL LOCATE (HI . 165.65) 
144i.' CALL M0T10Nim.-26.-7) t I CALL 
IQNim.A.BI:; IF B 56 THEN 1440 EL! 
L L0CATEim.A-2.55):i X — 22 i: Y- 1 : 
1430 X-X-l i: CALL MOT IGN(*I . X. Yl i : 
POSITION**! , A.B) i i IF B'.72 THEN [' 



1--17 



ELSE CALL C 



. MOTION!*!. *.*>:! CALL 
II IF NOT CO THEN 1440 
(•I. 0,0)11 CALL LOCATE! 
RETURN 



i I GOSIJB 1730 

1300 CALL FOSITIONim.A.BI: i IF A 1 

EN 150O 

1510 FOR Y.l TO 11 It CALL MOTION!* 

'V.VI:: NEXT Y ;: IF Z«21 THEN 1530 

1520 CALL MDTI0N(41.-3.91ii CALL ( 

1. D2.B.C0) i i IF NOT CO THEN 1320 ELSE 1! 

1530 CALL MOTION!*!. -6.91 i i CALL CDINCd 



• 20. #3. 7, On IF 



BBO CALL C01NC 

N 990 

B9u CALL COINC 

M 990 

900 CALL COINC 

910 CALL COINC 

920 CALL COINC 

N 990 

910 CALL COINC 

N 990 

940 CALL COINC 

N 990 

950 CALL COINC 

N 990 

960 CALL COINC 



970 CALL DELSPRITE 

9B0 GOTO BOO 

990 CALL DELSPRITE 

.10,0)11 ELLE=EI 
1000 CALL PATTERN(*3 
110 FOR 1-1 TO 100 
020 GOTO 7B0 

) CALL CLEAR :t CALL CHARSET 
=0 TO 12 ii CALL COL 
3 CALL DELSPRITE 
1030 DISPLAY "" 



CALL SOUND! 



I 



i DISPLAY 
: LE DE: 
i DISPLAY AT (21 



VOUS N'AVEZ PLUS 
MUNITIONS" 

,.3>l"0U OE BOUTEILLE P 
:EME TABLEAU" 

VOULEZ-VOUS REJOU 



1080 ACCEPT ATt23.13)VALIDATE("DNan"ISI* 
EI-DBEEPiREP* 

IF R£P«-"0" OR REP*-"d" THEN 1110 
1100 GOTO 1120 

JEU'JEU-M ii CAS.ELLE.ELLE2-0 It GO 
TO 1440 

1120 CAS,ELLE,ELLE2=0 
130 JEU-JEU+1 
. 140 GOTO 420 

1150 CALL DELSPRITE(ALL) t I FOR 1-110 TO 
1000 STEP 13 

3 CALL SOUND(-100.I,0,I*P1,0)I 
: FOR 1=1000 TO 1 
170 CALL SOUND(-10( 

.180 CALL CLEAR | i [ 

,190 FOR 1-0 TO 12 i 

; NEXT 1 

.200 FOR !■! TO 24 i 



1310 FOR BOUT-1 TO 7 

1320 CALL JOYSTIl.X.YH i CALL MOTION 1*1, 
-Y*2.0.»2,-Y*2.0>l: CALL KEY(1,A,B)t: IF 
A=1S THEN 1390 ii CALL PATTERN(*20.76> 
1330 CALL PATTERN(«20.BO>i: CALL JOYSTd 
,X.Y)ii CALL I10TI0N1»1,-Y*2,0,»2,-Y»2,0) 
ii CALL KEY(l,A,B)i! IF A=1B THEN 1390 
1340 CALL PATTERN I #20.08) t i CALL JDYSTI] 
.X,Y):i CALL M0T10N(m,-Y«2,O,l(2 1 -Y*2,0] 
|| CALL I'EYIl.A.BUl IF A-18 THEN 1390 I 
i CALL PATTERNI»20,921 

1350 NEXT BOUT n BILLE=BILLE*1 II IF B! 
LLE-20 THEN 1*70 
1360 GOTO 1280 

1370 CALL DELSPRITE <#20): i BILLE-0 II G( 
TO 1030 

1380 CALL MOTION l#20. 0.CDil CALL PATTERN 
[«20 r 120)n CALL DELSPRITE(»3,»6) It CALL 

S0UND!10O,-4,0):i ELLE2=ELLE2+1 II GOTO 

1280 
1390 CALL MOT10N(m,0,0.tl2.0.0lii CALL S 
OUND(100.-7.01:t CALL POSI TION tttl . SI . S2) 
II CALL SPR1TE(»6. 124. 16.S1.S2-16) 
1400 CALL SPRITE (»3. 1 16, 16, SI *B, S2*32,0, 



1430 CALL DELSFRITEIII3.tl6)i i GOTO 1320 
1440 CALL CLEAR :: CALL SCREEN(2)ii CALL 
CHARSET :l FOR I -O TO 12 tl CALL COLOR! 
I, 16.1):: NEXT 1 
1450 DISPLAY AT 13, 3) : "VOUS AVEZ CASSE AU 

PREMIER TABLEAU i 

DEUXIEME TABLEAU I 



1460 DISPLAY AT (7,3) t 

"iELLE 

1470 DISPLAY AT<9,3>: 

"IELLE2 
14Q0 ELLE3=ELLE-*ELLE2 



I TOTAL 



IELLE 



. -O THEN 103 



CALL SOUND i- 
5TEP ■ 



1220 DISPLAY AT112,; 
DU"i ii" F 

1230 FOR 1-1 TO 1000 i 
1240 CALL CARRACTERE 
1230 CALL DESSIN 
1260 CALL DELSPRITEIAL 

1270 CALL SPRITE! 
126,30) 

1280 RANDOMIZE 
1290 C0U2-INT(RND 
) CALL SPRITE! 



NEXT 



OI§p-Lti¥ fiTU.iOli 



7500 FOR 1=1 TO 1000 :t NEXT I 

1510 IF REP»""0" OR REP«-"o" THEN 420 

1520 DISPLAY ATU6.B>i"A U R E V I R" 

1330 FOR 1-1 TO 300 n NEXT I 

1340 8OT0 140 

1350 SUB CARRACTERE 

1360 FDR 1-0 TD 12 Ii CALL COLOR < I ,2. 2) t 

: NEXT I II CALL CLEAR 

1570 CALL CHAR(116,RPT«("0",:52>S."FFFF"*.R 

PT«("0",29>> 

1SB0 'DECORATION (96 A 108) 

ISM CAI I CHAR (96. "1O081O100B0B0B10") 



DISPLAY AT 



I CALL MAGN1F 



120, 72.C0U2, 120, 230, - 



1620 CALL CHAR II 
1630 CALL CHARC; 
1640 CALL CHARM 
1650 CALL CHARM 
1660 CALL CHARM 
1670 CALL CHARM 
1680 CALL CHARM 
1690 CALL CHARM 
1700 CALL CHARM 
1710 CALL CHARM 
1720 CALL CHARM 



"000O01 0600090810" ) 
"01O6CB300000O000") 
"B142241B1B2442Q1") 
i."B060100B040a0402"l 

;. ■M0102O2O102O40B0"; 
;."0101060C101060BO"J 
1, "000QO0OF10204OBO") 
I, "O00O00F0OB04O201") 
,, "B0BO48740BOCO607"! 
', " 000304 B8 4000000" 1 
I, "O10206CD3O1 06080") 



BON'S 
BorfS 







if not co ■ 



SUB 1750 

1340 X-X + l ti CALL M0TION(-t,X,0H t CALL 
FOSITION(m.A.B)! i IF Avl32 THEN 1340 E 
LSE IF Z=15 THEN 1360 ELSE Z-1B 
1350 CALL LOCATE (HI. 135. B) i : FOR I-B TO 
3 STEP -1 ii CALL M0T10N(m.I.ll-I)ii NE 
XT 1 :: CALL MOTION!*!. 7.6111 C-6 
1360 RETURN 
1370 ! FD1 

13S0 CALL LOCATE (•!, 160,72): 
TO 12 tl CALL MOT10NI«l,X.-l 
I Z=1B II C-12 ■) RETURN 



l'..l. 



FBI 



■ CALL L0CATE(*1. 158. 41HI FOR X--40 
TO -15 H CALL M0TI0N(m,X.0> 1 I NEXT X i 
: SC-SC+500 ti BQN-BONf200 i: G05UB 1730 
1570 X-X+.5 :i CALL MOTIONim.X.Oli: CAL 
L C0INCI*l,*4.a,CQ)ii IF NOT CO THEN 137 
O ELSE Z=6 ii CALL MOTION(*1,0,0) t t RETU 

13B0 ' FG2 

1590 CALL LOCATE!*!, 15B, 52)11 X — 23 ii V 



1730 FOR 1=1 TO S it CALL MOTION!*! , 3+1 
3.0):: B0N=B0N+40 :: SC-SC+S1 Jl GOSUB I 
750 :: NEXT I :: RETURN 
1740 i SC 

1730 DISPLAY AT!7.V9ISIZE!6) lUSINQ "HI 
«#"tSC tl CALL SOUND (10. 1320. 1. 1540.2. 
DISPLAY AT113. I9)SIZE(6)iUSING ' 



Ihmhj 


: BON i: RETURN 






1760 


! OUT 






















1780 


RESTORE 1770 ti 


FOR I- 


TO 11 i 


SUB 


830 it NEXT 1 : 


Z-l i 


RETURN 


1790 


• FIN 






1BO0 









L POSITION!*: 
LSE CALL mot: 
ON-BON+200 i i 



Z-5 l: 
1630 



RETURN 
FB3 



A.Bli i IF B.-B6 THEN 161 
IN(*l,X.O)n SC'SC+600 : 
GOSUB 1730 

CALL MOT10N!*1.X.O) 
A.B) t I IF A 9 THEN I 
CALL MOTION!*!.) 



X--22 



J CALL LOCATE!*!. 163.58): 
1630 X-X+.2 :: CALL MOTIONil 
LL P0SIT10N(»1.A,B) ii IF B.'72 1 
ELSE CALL LOCATEtm.A-3.74) 
1660 X-X + .3 i: CALL MOTIONim.X 
ALL POSITION!*!. A.B) : : IF B 64 THEN 166': 
1670 CALL TOP n FOR 1-1 TD 43 i i CALL f 
OTI0Ni*i.24.0):: NEXT I M CALL MOTIONII 
1.0,0)11 Z-3u ii RETURN 
1680 I CGB 

1690 X-X+.5 II CALL POSITION(*1.A.I 
F A 162 THEN CALL MOTIONKl.X.OllI 
1690 

17O0 CALL LOCATE!*!. 166,23)1 : FOR ' 
5 II CALL M0TlDNI*l,X*2.Y*2)i t NEI 
I FOR Y=-31 TO -2 t: CALL M0TI0NI*1, O. - Y 
/31tt NEXT Y 

1710 CALL M0TI0N<*1.6.6):: CALL C0INC!*1 
,•10. 3. CO) 1 1 IF NOT CO THEN 1710 EL5F TA 
LL MQT10N(*1,6.B! 
l'.-0 FOR 1 = 1 TO 30 Ii NEXT I :: CALL DEL 



1,-4. 1,494.3.523,1.494.-1.440.2.39:, 

0,2,370.4,294 

1810 DATA 2,-4,4.294,2.370.2.440.4,: 

.370,2.440.5,294 

1B20 RESTORE IBoO II FOR 1-1 TO 22 i 

SUB 1S30 :: NEXT I i: GOSUB 1770 :; 

1-1 TO 200 ii NEXT I it RETURN 

1030 READ O.F it IF F— 4 THEN CALL SOUND 

(D*100.F,3Q)ELSE CALL SOUNDIC 

3, 12.F/2.6) II RETURN 

1640 CALL JOYSTM.I .S) :: CALL PATTERNING 

. 120,*6. 140l!t IF K>-4 THEN CALL PATTERN 

i*6.U6>ELSE IF I. -4 THEN CALL F 

1830 RE ruRN 



RIN 



TABM 



: ' P E I 



ZE 



."LIRE LA NOTICE DANS L'HEBDO". 

870 GOSUB 1000 ii DISF'LAY AT (22, 1 7) SI ZE 
U):"FARI1E NO" :: ACCEPT AT (22, 27)1 

BEEP VALlDATE!"ONon")iR» 
BBO IF R»-"0" OR R»-"o" THEN DISPLAY I 
22. 17)SIZE(ll)t" " it GOTO ' 

890 CALL DELSPRITE !ALLI II FOR I"-20 T[ 
!0 it CALL SOUND! 100. 165. ABS ( I ) . 660, ABE 
l)ii CALL SDUND!-1O<:.,466.AB5M).307.AE 
Il):i NEXT I ii CALL CLEAR i: END 

910 CALL PATTERN(*2, 60)ii CALL SOUND! -2 
>.-!,0)tt CALL PATTERN!! 
920 SUKEND 



— , ft fie <*<* 

•JAW'S" 




Tl 99 BASIC ETENDU 



TEXAS 
BOUTEILLE 



ooi433E0800oooo'.iO'-.''Xi0 3C-:E£i;ciFFFFaoooouo 

000" 1 

1920 '60nh. douche haut 

1930 call char<6B,"oooooio30604063Fbi8if 

f0c1b30204i0o00bo00ooooob34c522dco0o03c4 

2C3") 

1940 'BONH. MARCHE HAUT •'-■ 

1950 CALL CHAR<32,"00OOO102O701OlO10O0iXi 

i0204o50Aoci:iciooEoiB20!iTc>-iOAo9090ieoaici 

613") 

I960 'BONH. ttARCHE BAS -. 

L970 CALL CHARI36,"lC326242O3O303O60ElCl 

nBDi5'->u'.>2uo:>D.c&t. 'o;b38icodo7o 



2110 DATA 4.30.96.3,5,103,5,8,106,5,1 
1 033H53H2&3H ! O63H33H303H I 023H63H 
43HIO33H63H93HIO63H63M1O3H104 Dang ll 



instt*: "P7H103H565GY 



6.29, 103,7,3. 103,7.10,106, ; 



'BONK. ARRET BAS '■- 
1850 CALL CHARlBS) '070B07070301010I01010 
. O 1 0307404OEOF0E0COC0C0COC0COCOCOC0C 

■BONH. rlARCHE HAUT <- 
1S70 CALL CHAf)(56."000OQ71B040BO4O20309O 
9 1 6 1 03B6BC80000B040E08080S00000804020A05 
030"! 

■BONH. nARCHE BAS t- 
1B90 CALL CHAR 160. "8BOA0AO4O:5O303O6OElCl 
C38BME0E0603B4C4642C0C0CO6O7078181COEO70 

P 'BONH. COUCHE BAS 

) CALL CHARI64, "000000000000020402030 
1740 CALL CHARI114."FFFEF£FCFCFSE080") 
'000000 IB JC7E7EFF-) 
FF7F7F3F3F1F0701") 
IPT«("F". 16) I 
HAUT 
000001020701010100000 
1 820 1 02040 AOAOAO 1 O908BB 



) 'BOUT. 

) CALL CHAR(72,"I 

("O". 18)S."BOCO404O404OC"&RPT#i' 



2130 DATA 



9.5.112.19,7 



112 



1730 CALL 

1760 CALL CHAR' 

1770 CALL CHARtll! 

17B0 'BONH. ARRET 

1790 CALL CHARI40 

10202C 



1800 'BONH. ARRET BAS 

1B10 CALL CHAR<44."O2O307OFO703030SO3O30 

303030 30303 7 1 OE OE C oa O 80 B OB 08 O 8 08OB O BOC 

OE0-) 

1B20 'BONH. ARRET HAUT -,- 

1830 CALL CHAR<4B."000O071B04OBO4020S050 

■■.■is-:r: : :::: ■■:■. ao-i r:oe j;<-wy ao-io-i ■• ■; 



000") 

2020 CALL CHARIB4, "070404040404060301000 

ooooo ooooooc o 4 ' : 'i o 4 ■: ' a : ■ h o c m e ckd oooooooooooo 

000") 

2O30 CALL CHAR<BB."O001O2O408O4O2O10OO0O 
0OO000OO0OOB04020IO0B04Oa04AB34OO00OOO00 
000") 



000") 

2OS0 CALL CHAR(12O.'000'i0OO2IO0B070C092A 

O4014A0C0BOF0O00': .'">oor::'Oooo20B09iiB08':> 

BOBO") 

2060 CALL CHAR{124."OO0OOO00OO0O0OO0e3FF 

'lOoooooooooT'Ooooooac^oFccoaooooooo 



26. 1L5 
2170 D* 
0,3. 113,20, 



0000" ) 

2070 SUBEND 

20B0 SUB DE5S1N 

2090 DATA 1,32. 103.2,1 

9, 107.2.20, 107,2.21, 1< 



2200 DATA 
21,28, 107 
2 1 . 32, 1 07 

2210 DATA 



2220 DATA : 
lO, 103,23. 
2230 CALL COLOR (' 
1 CALL ECREENI2) 
2240 RESTORE 2091 



1.11, 101,12. 12.106, 13,7.112, 1 



15. 16. 25. LIS, 1 



113, 17.23. 115,17,31,103,1 
12. IB, 25. 113, 18, 27,112,18 



2250 CALL HCHARtA.B.O: : NEItT 1 

2260 SUBEND 

2270 SUB BOUTEILLE 

Z2B0 RANDQ.ni IE 

2290 LI = INT1RND»100>*-1 II CO- INT IRND»15< 

)+l :: CGU=INT(RND#13>*3 

2300 CALL SPRITES. 72.C0U,40*LI.B0*C0] 

2310 CALL SOUND! 100, 1233.0) 

2320 SUBEND 

2330 SUB TRAIN 

2340 CALL CHAR!96."001L08083F4040FF1408C 

0000000000000 3 E 4 40DF 1 1 F 



2330 CALL CHARI100."O00O04OBlO2OE03F14OB 

000000000000006 9 4 9 9 9 OF F 9 502000000 000 

OOOO") 

2360 CALL CHAR(104."0O0OO0FFC9C9FFFF2Bl" 

0000000 00000 00 OOOOf F 2727FFFF 1 46800000000 

2370 CALL MAGN1FVI4) 

2380 CALL SFRlTEf»l. 96. B. 96. 130.0.-10,(12 

. 1O0.8.96, 162,0. -tO, #3. 104,8.96, 194,0.-1 



13, 19,23,115, 19, 
,19,28, L07. 19.29.98. 2 



. 113,20,9, 113. 20, 21. 103.20.2 

,5,115.21,7,115,21,9,115,21, 

, 107.21,14,107,21,15. 107,21. 



239.. CALL SFRITE(#4. 104.8,96.226,0.-10) 
2400 SUBEND 
2410 SUB LETTRES 
2420 CALL nAGNIF¥(2> 

2430 FOR 1-5 TO 19 [1 RANDOMIZE :: RE-1N 
T(RND»- 301-20 II RA— INT1RND«50)»40 n C 
= !NTLRND. 131+3 :; CALL SPRITEi#I.42.C96 
■125.RE.RA): : NEXT I 

2440 FOR 1-1 TO 300 il NEXT 1 i: FOR 1-3 
TO 19 i: CALL nOT I0NI«1 . 0,0) : ; NEXT I ; 
: CALL LOCATEl#5.30,30.#6,56,66,«7,30, II 
0,#B,36. 166, #9. 30,2201 

2450 CALL LOCATE<#10.90,30.#1I. IIO.50.dl 
.130, 70, #13, 130,90,4 14. ISO, 110, • 13, 130. 



EAD I 



.B,C 



1301 

2460 CALL L0CATE(»16.1Sii.l5< 

,#18.110, 190. #19,90,210) 

2470 CALL PATTERN <#5.84 . »6.< 

5, 49, 8T. "10, 66, #11.79,1112,8: 

691 

248o CALL PATTERN I 111 S, 73. •!< 

18.69, #19, B3) 



#17, 130, 170 



rFROG 



Aidez un gentil batracien imprudent, a eviter les dan- 
gers du monde moderne. 

Gilles GAMBIN 

Mode d'emploi : 

Noire grenouille doit regagner son nid. represents par une des 
cases blanches en haul de lecran. Pour cela. elle doit prendre 
garde a la circulation et traverser la riviere en evitant le contact avec 
la pollution liguree par divers objets. Le deplacement s'etfectue a 
i aide des touches Nechees. mais vous oouvez utihser le joystick, en 
changean! STICK(O) par STICK(1) en ligne 500. Vous disposez de 5 
vies, obtenez 1000 points arrive dans un nid et '000 points plus un 
bonus une fois les 3 nids occupes (tableau]. La vitesse de la circu- 
lation augmente a chague tableau, ainsi que le courant. 



2 REM- AUTEUR ! 

3 REM* GAMBIN Gil les 

4 PEM- REALISE SUR : ' 
3 REM- SANYO °HC 28 S ' 
6 REM — — -" — — - — - — ' 
12 OFEN"9fp: -FOROUTPUTI 



13 Dlf 

13 COLOR, 1, 1:SLREEN2,2,0:DEFINTA-Y 

16 HSC-0 

is pp-o:sc-o:bs-200o:ui-5: vt-o:g«o 

:GoSUB2Q0OQ:GOSUBB01O: RESTORE 
20 F0R1X-1T015 
23 ASH !>■>"" 
30 FORN«1T08 

33 READXS 

10 AS(I%J-AS(I%>*CHRS<vALt~-|.B' , *XS) 

50 NEXTNINEXTIX 

52 REM= = ====- = = ======= = "=== — -- 

34 REM- DEFINITION DES SPRITES • 

39 X-126: V-160: A-50:B"200:C"143:D- 

2oo;E=2o:g=o:h=o:I-2S 
60 sprites! 1)=a*(2i : sprite* i 2) -as i 
4) : sprites (3) "as (21 : spri tes (4 1 =a* i 
61 :sprites(51-as(7> 

63 sprites (6) -as i 7) : sprites ( 7) =as{ 

4 1 :SPRITES(8l=ASt31 : SPRITES (9) =A*< 
21 :SPRITES1101-AS(6I : SPRITES! 1 1 1 -A 
SI7> : SPRITES! 12) -AS (51 r SPRITES (13) 
-ASI21 :SPRITES(14I-AS(2) 

64 SPRITES I 15I-ASI4) ;SPRITES.O)=AS 
1 1 :FORI-23T031STEP2:SPRITE*U)»AS 
81* AS (91 + AS HOI *AS(11I : NEXT: FORI- 

24T030STEP2:SPRITES(IJ-ASU2>+ASll 



43 REM- DEPLACEMENT DES SPRITES - 

30 PUTSPRITE1, (A, 1411 ,4:PUTSPRITE 
, IA-90, 141) ,e:PUTSPRITE3, (A- 180, 1 
11 , 131PUTSPRITE4, IB, 1311 ,2:PUTSPR 
TE5, IB*70, 131 1 , 9JPUTSPRITE6, (BH7 



,131! 



.11 



60 PUTSPRITE7, 1C, 1211 , 61PUTSPRITE 

, I C -90, 121) , 14:PUTSPRITE9, (C-160, 

21) ,13:PUTSPRITE10, ID, 111) ,3: PUTS 

PRITE11, ID. BO, 1111 ,9:PUTSPRITE12, ( 

D+ieo, un , 12:putspritei3, ie, ion , 

7:PUTSPR!TE14, IE -90, 101) , 13 

170 PUTSPRITE1S, IE- 170, 101 )\, 13: PUT 

SPRITE23, (G, 731 , 8: PUTSPRITE24, (6*9 

0,731 , l:PUTS"RITE2S, 1G* 180, 73) , 13: 

PUTSPRITE26, IH.56) , 9: PUTSPRITE27, I 

H*90,36> , 1:PUTSPR1TE28, <H*180,56! , 

13:PUTSPRITE29, (1,40) , l:PUTSPRITE3 

0, 11*90,401 , 12:PUTSPRIT£31, 11*170, 

40) , 13 

485 REM-< 

487 REM- 

489 REM-' 

500 Z=ST1CK(01 

310 IFZ-1THENY-Y-10:BEEP 

320 IFZ-5THENY=Y*10;BEEP 

330 IP2-=-^THENX=.X.10:SEEP 

340 IFZ-7THENX=X-10:BEEP 

550 IFX«7THENX»7ELSEIFX>247THEN 

560 IFY>161THENY=161 
590 PUTSPRITEO, IX, Yl , 12 

684 REM- BOUCLE PRINCIPALE - 
686 REM = = = = = — = "»- .—== = = 

700 a=a-9-vt:b-b+9*vt:c-c-9-ut: 



LACEMENT DE FROGGIE =• 



10 + WT: E=-E-9-VT:G = G-7-V 



14-VT 



710 ONSPRITEGOSUB9000:SPRITEON 
720 IFY<90ANDY>40THENX"X-(S*B1 
740 IFPOINT IX, Y) -3ANDY<41THENY=41 
750 IFPOINT IX, Y1-15ANDY<80THENG0SU 

88000 

900 BS-BS-2'. LINE 1210, 121-1250,22) , 

1,BF 

910 PRESETI210, 151 :PRINT*1,BS 

920 IFBS-OTHENGOSUB9000:BS-2000 

999 GOT0150 

1990 REM""""— •■■" 

1992 REM- D A T A S - 

1994 REM-"""""" 

1996 REM -> SENS DE CIRCULATION 

1997 REM <- SENS DE CIRCULATION 
1999 REM FROGGIE 



sooo 


DATA100 


1001 


2010 


DATA101 


1101 


2020 


DATA 100 


1001 


2030 


DATA011 


1110 


2040 


DATA011 


1110 


2050 


DATA101 


1101 


?060 


DATA101 


1101 


2070 


DATA100 


1001 



I7UEU 




2080 REM 1 

2090 DATAO 

2100 DATA1 

2110 DATAO 

2120 DATAO 

2130 DATA1 

40 DATA1 



2150 1 



TAO. 



0000000 


1111111 


1101101 


1101101 

1111111 


1111111 

1100110 


1100110 



2200 DATA00110110 

2210 DATA00110110 

2220 DATA1111I111 

2230 DATA11100111 



2241 



DATI 



110 



1000 



2250 DATA111 11111 

2260 DATA10110110 

2270 DATA00110110 

2290 REM CAMION <- 

2300 DATAOOOOOOOO 

2310 DATA11111000 

2320 DAT* 

2330 DATI 

2340 DATI 

2350 DAT* 

2360 DATA011001H 

2370 DATA011001H 

2390 REM : 

2500 DATAOOOOOOOO 

2510 DATA11 

2520 DATA101101K 

2530 DATA101101; 

2540 DATA111111 

2545 DATA111111 

2550 DATA011001 

2390 REM 2 
n» VOITURE -> 

2600 DATA011O11OO 

2610 DATA01101101 

2620 DATA1111U11 

2630 DATAU100111 

2640 DATA11100111 

2650 DATA11111111 

2660 DATA01101101 

2670 DATA01101100 

2690 REM CAMION -> 

2700 DATAOOOOOOOO 

2710 DATA00011111 

2720 DATA00011010 

2730 DATA00011010 

2740 DATAllllim 

2730 DATA11111111 

2760 DATA01 100110 

2770 DATA01100110 

2780 REM CHAUSSURE 

2B00 DATAOOOOOOOO 

2B10 DATAOOOOOOOO 

2820 DATAOOOOOOOO 

2830 DATA00011000 

2S40 DATA00100100 

2950 DATA00010010 

2B60 DATA00001101 

2870 DATA00000010 

2890 REM CHAUSSl 

2900 DATA00011 

2910 DATA001 ; 

2920 DATA011 

2930 DAT* 



SSURE 



All 



2950 DATA11 

2960 DATA01 

2970 DATAOO 

2990 REM CHAUSSURE 

3000 DATAOOO 

3010 DATAOOO 

3020 DATAOOO 

3030 DATAOO 

3040 DATA01 

3030 DA' 

3060 DATA1. 

3070 DATI 

3090 REM CI 

3100 DATA1. 

31 10 DATA 

3120 DATA 

3130 DATA 

3140 DATA 

3130 DATA 

3160 DATAOO). 

3170 DATA001. 

3190 REM 

3200 DATA000001 

3210 DATAOOOOi: 

3220 DATAOOl: 

3230 DATA! 

3240 DATA01. 

3230 DAT* 

3260 DATI 

3270 DATI 




MSX 




3£TETreH9,T^MeTi'eiM5 

?m Lfi ep£9<cnerT^ te 

O PWMB pL£>) U ^ULft/ 





-I Of. 



3290 REM POLLUT: 

3300 DATA11111. 

3310 DATA11111 

3320 DATAllill 

3330 DATA01111 

3340 DATA01111 

3350 DATA00111 

3360 DATA000011 

3370 DATI 

3390 REM POLLU - 

3400 DATA1 1100000 

3410 DATA11110000 

3420 DATA1111 

3430 DATA1111 

3440 DATAllill 

3450 DATA1111 

3460 DATA1111 

3470 DATA1111 

3490 REM POLLl 

3500 DATA11. 

3510 DATAllill 

3520 DATA11. 

3530 DATAllill 

3540 DATA! 

3550 DATA11111100 

3560 DATA11111000 

3570 DATAI11O0O00 

1990 REM-"- — "«=« — — "■ 

4992 REM- FROGGIE DAMS UN r 



5040 IFX>40ANDX<?OTHENLINEI45,30>- 

(65,40) ,3,BF 

3030 IFX>110ANDX< 140THENLINE ( 1 15, 3 

3060 IFX>1 70THENL I NE< 185,30) -I203, 
40),3,BF 

3070 ifpp-3thensc-sc+bs:gosub6000: 
pp-o:bs-200o:gosub850o: vt-ut+2:q-q 



TEO, (X, Y) , 
12 

3400 RETURN 

5991 REM" — =-"="=-« — = 

5993 REM- AFFICHAGE SCORE ■ 

5995 REM— — "— — — = - — 

6000 LINEI63, 131-1150, 21) , 1 , BF 

6010 PRESETI63, 13) :PRINT*1,SC 

6020 RETURN 

8001 REM—""""" — 

8003 REM" DECOR- 

8005 REM— — ■— — - 

8010 LINE(0,30>-(255,40) ,3,BF:LINE 



(0,90 



-1253, 1001 ,3, BF: LINE! 0, 130) 

9ii ,3,bf:gosubs30o: 

INEI0.41 1-1235,89) ,' 



F0RI-0T0255STI 



15! LINE ( 



1301 



I, 140) -(1*3, 140) , 
8050 C0L0R21PRESE 
■SCORE: "tSClPRESE 

, -bonus: -ibs:prese 
■hscore: -:preseti 
:preset(174,31 :pr 
seti210.51 iprinth 

6100 RETURN 
8500 LINE(45,30>- 
35,40 
301-1205,40 
9000 REM — "' 
9002 REM- COLLISION 
9004 REI 
9010 X- 
02IPLAY 

next: i 



164,4) iPRINTi 
5,41 IPRINTHl 

thi, -yiES: ■ ;i 



65,40) , 15, BF1I 

, 15,bf:line(H 

: RETURN 



6o:spriteoff:forI"1T 
253l6403aaeeddccddgc8f 
t0300: next: putspriteo 



,12:i 



'15,51 ■ 



9020 LI 

SET1215.51 : 

INEXT 
9030 
9040 RETURN 

10000 REM- 

.0002 REM. 

.0004 REM' 

6 FORI-0TO3 



NGDT010000 



: SPRITES! I) 



103,931 IPRIN 



10010 C0L0R4: PRESET 
■GAME OVERVSPRITI 
10013 IFSC JHSTHENHS-SC 
10020 C0L0R2M 

,BF: PRESET! 115,4) :PRINTH1,HS 
10040 FORI - 1T01 0000 : NEXT :CLS! GOTO 1 

a 

20000 REM- — = — = = — — "" 
20002 REM- PRESENTATION ■ 
20004 REM- — " = - = = -- = = = = = 




ITV, 




20030 LINE130.4 
! 30, 4) -161, 
PSET(79,5J , 
3,BF:LINE(1 
20040 LINE! 



,bf:line(125, : 

EI136, 14) -(143 
20060 LINE127, 



0) ,3:PSETI104 
139,201 ,3,BF 
20070 LINE(26,241 



41,51 , 13,BF:LINE 



ME (38, 24 



53,251 , 

) , h,bf:l: 

:LINE!102, 
106,24) , 



Llril 



32,23) | 

, 11, BF 

20080 LINE 123, 29) 

EI39.291 

1107,301 ,9,BF:PSET 
120,291-1128,301 
-1149,301 ,9,BF 
20090 LINE124.34 
E(40, 341-131, 3! 

1103,35) ,8,BF:l 



32,30) ,9, BF: LIN 
BF:LINE(59 p 2 
108,29) ,91 LI 



.INE11 



1,29) 



35) ,8,bf:i 

, 8, BF! LINE (60,34 1- 
:NE(104, 341 -1105,34 
, 8, BF: LINE (116, 34) -(123,35) ,B,BF: 
LI.NE(144 | 34)-(152,35) / §,BF 
20093 PLAY-TlOOO5SlM6S333LePEFE05E 
906C303AGAGB3G9O2C305FEFEG5E906C30 
3EDEDM40000CI- 

20100 LINE (171,9) -1172,36) , 13,BF:l 
INE I 175,9)- 1189,11) , 13, BF: LINE! IB 1 
,10)- (190,20) , 13,BF!I 
189,22) , 13,BF:LINE(1( 

173,341-11 



.INEI175.21 J 

-1190,34 
189,36) , 1 



LINE(195,21)-1204,22> ,7,B 
IE ( 194, 22) -(195, 33 I ,7, BF! LINE I 

13) -1204,351 ,7,BF:LINE!207,20) 
1 , 33 ) , 7 , BF 
1120 LINE! 216,21) -1226,22) ,3,BF:P 
(213,21) ,3: LINE (212,22) -1213,27 
) ,3, BF: LINE (213,271- (225,28) ,3,BF: 
LINE (225, 29) - 1226, 341 , 3,BF:PSET (22 
5,331 ,3! LINE 1212, 34) -(222,33) , 3 , BF 
.INE 1230, 21 1-1231,23) ,9, BF;1 
INE 1230, 27) -1231,35) ,9, BF 

LINE I 239, 21 I -(249,22) ,B,BF:P 
(236,211 ,8: 1. INE I 233, 221- (236,34 
,8,BF:PSETI236,35i , 8: LINE ( 239, 34 1 
1249,35) ,8,BF 

LINE 160, 65) -161, 89 I , 13,BF:LI 

631-173,661 ,13, BF:LINE!73, 66 

77) , 13, BF: LINE (73, 77) -164,78 

13, BF 

'0150 LINE(79,64I - (B0.7B1 ,4,BF: 

: (84,65)- 193,661 ,4,BF:PSET183,6 



20160 PSET (99,65) 



.INEI98.661 



',BF:LINE(. 
IE I 102, 72)' 



INE1102.771 



104,361 ,7,BF 



- 1108,551 . 
H90 PSET 
16,71) ,3 

3,bf:lini 

.ETI130,7S: 
, 3 , BF 1 L 1 1 
20200 PSET 



37,651 ,11 



.INEU40.77I 



20210 L INE i 135,651 ■ 



INE I 173, 61 



SET (176,78 
1 ,9,BF:LINI 
20230 PSET 



NEI179.771- 1 

192,63) ,e:i 



20240 LINE (0, 100) 



.INE1204.66J 
-(204,7 
1203,78) ,8,BF 
iS, 160) ,4,BF 



COMPOSITEUR MUSICAL 



Ringards ou musiciens, eprouvez et perfection nez vos 
talents de melodistes. 



Joseph PAUMIER 



Mode d'emploi : 

Perme! la composition musicale sur trois voies. Un commentaire en 
lin de programme, explique commenl recuperer voire musique dans 
un programme BASIC. Lisle des (onctions : 

- A, B, C ; permel de basculer sur les voies A, B ou C du genera- 
leur sonore. 

- T : increments le tempo. SHIFT + T increments de 10 en 10. 



L : modilie la longueur des notes. SHIFT - L increment* de 10 en 

), 

P : changement de page (1 a 9). 

J : interpretation de Voeuvre creee (page courante' ou toutes les 
pages). 

V : incremente le volume de la voie en cours. 

RETOUR : perme! de placer ou denlever la nole situee sur le 
curseur. 

TOUCHES FLECHEES : permettent par deplacement du curseur, 
le choix dune note (horizontal) et determined sa hauteur (vertical). 

Chaque page autorise 30 notes par voie. soil 90 notes (total 90 ' 
9= 810 notes). L'absence d'une note produit un silence. Chaque 
voie a sa couleur et lecran permet d'acceder a 3 octaves et demie- 







1 REM --i......................... 

2 REM * 

3 REM * MONITEUR DE COMPOSITION 

4 REM * MUSTCALE 1,2 OU 3 UOIES 

5 REM * 

6 REM < 



8 REM J.F 


UMIER 




MAI 1985 




9 REM 












10 CLEARSSOOI 


■EF 


NTA 


Z:COLOR4, 


3,1 


3ISCREEN2 


S , v 


KEYOFF 


XX»12:YY» 


oo: 


DIMN0*<12 


,cn 


31 


F i* 


,v«ti;i , 5*131 


, M> I 31 , vm 


3) , J*C 


.9) 






20 A*« ■ ■ : 


OR] 


lTi 


r:h 


ADA! -M -A* 


'CHS 


*(A1 :NEXT 


SPR 


te*ioj-as:coi1)= 


:co 


(2>-6:Coi 


1-12 








30 FORI-1 


03:v*t 


i="P-;next:t* 


.-12 


O'iv-iiff 


6:l 


-1 


p-1 






■10 FORI=lT03n 


JS 


i,i 


= J* (1,11* 


■R 


■:next;fori«i 


09 


j*( 


, 1)«J*<1, 


>:j 


*<2,I)-J* 


1,1 


:J*<3, 


I'Jtll, 1> 


NEX 


50 FOR 1-1 TO 12 


Pj' 


DNO*II ) 'NEXT 




90 r,OSUB200G0 






















101 REM 


bsu 











103 REM 

103 ONSTICKIO1G0TO210, 100,230, 100, 

250, 100,270:A*=INKEY«: IF A*- " "THEN! 

00 

110 IFA*=CHR*( 13ITHEN2000 

120 A-INSTRI" LlTtVvAaBbCcPpJj ",A* 

) \2: 0NAG0SUB6OO3, 7005, B005, 9005,90 

03, 9005,30005, -10003: G0T0100 

200 REM 

201 REM gestion du curseur 

202 REM 

210 IFYY>61THENYY-^ 

T0100ELSE100 

230 IFXX<244THENXX' 

0TO1O0ELSE1O0 

230 IFYY<190THENYY«YY+3IGOSUB300;G 

0T0100ELSE1OO 

270 IFXX>12THENXX=XX-P:GOSUB300IGO 

T0100ELSE100 

300 CnL0R6, 13, 13: LINE 116, 161-139,2 

31 , 15,BFIPRFSET( Is, 16) : PR I NT HI , NO* 

(12-1 IYY-61) / 3) MODI 2) IPUTSPRITEQ, ( 

XX- I , YY-2) , C01V) : BEEP: COLORE , 15, 13 



-3IGOSUB300IGO 
X*S;GDSUB30O:G 



— y&^> 



FROG 



Suite de la page 20 



20250 LINEI5, 111) -19 


127) , l ,bf:lin 


E 15, 129) -tit, 1491 , 1,BF: LINE 16, 149) 


- (tl, 149) , i,bf:linei 


3. 1281-123, 13 


l) , i,bf:line(24, 129) 


(24, 1301 , 1,BF 


ILINE16, 1101-133, 113 


, 1,BF:LINE(34 


, 1111-134, 112) , l.BF 




20260 LINE 140, 1111-1 


3, 128) , i,bf:l 


INE (40, 128) -147, 149) 


1,BF: LINE 141, 


1491-146, 149) , 1,BF:L 


NEI41, 110)- 16 


4,113) , l.BF! LINE (63, 


10) - 165, 127) , 


l.BF: LINE 147, 1281 -168, 1311 , 1 , BF : L I 


NE166, 129) -(69, 1481 , 


,BF:LINE(67,1 


491 -(68, 1491 , 1,8F 




20270 LINE173, 1111-1 


'8, 129) , l.BFJL 


INEI73, 130>-<81,14B> 


1 ,bf:line<82, 


1311-182, 1491 , l.BFIL 


NEI83, 1461-11 


00, 149) , 1.BFILINE176 


1491-1103,149 


) , i,bf: line 176, i ioi - 


103, 113) , l.BF 


ILINEUOl, 11D-1 104, 


4B> , 1,BF 


20280 LINE(110,111)- 


113, 129) , l.BF 


:LINE<110, 1301-1116, 


48) , i,bf:line 


(117,1311-1117,148) , 


, BF : L I NE 1 1 1 8 , 


1461-1133, 149) ,1,BF! 


.INE< 111, 1491 - 


t 138, i49i , i,bf:linei 


11, 110)-(13B, 


113) , 1,BF 




20290 LINEI136, 1301- 


139, 1481 , l.BF 



OINT(VX,YY)< >C0(U1THENF0R1=1T09:8E 

EPIMEXTIGOTOIOO 

2010 P 1 -PEEK ( PEEK { VARPTR (J« IV, P) I * 

1) *PEEK(VARPTRIJ*IV,P) > *2>*256* (XX 

-121 / 8*3*1) 

2015 P2 = PEEK(PEEK(VAPPTR(J*H/,P> 1 * 

1 I *PEEK(YARPTR IJ*IU,P> I •21*256* I XX 

-121 '8*3*21 

2020 IFVAL(CHR*IP1)*CHR*(P2> I =OTHE 

N2200 

2030 IFUAL (CHRSIP1 ) *CHR*(P2J )< >63- 

CYV-61) /3THEN2100 

2040 FORI=0T02:PSETIXX*I,YY) ,is:ne 

XTlPOKEPEEK IUARPTRIJ*(U,P) )*1)*PEE 

K(VARPTRIJ*IU,P> I *21*256*(XX-12>/8 

#3,B2 

2045 POKEPEEKIVARPTR(J*(V,P) )*1)*P 

EEK(\MRPTRIJ*IU,P) 1*21*256* (XX- 12) 

/e»3*l,32 

?r>50 POKEPEEKIVARPTRi J*(V,P) )*1)*P 

EEKIVARPTR(J*IV,P> 1*21*256* (XX- 12) 

/8*3*2,32:GnT0100 

2100 J=61- (VAL(CHR*(P1> )*10*VALICH 

R*(P2) 1 -63)*3:FORI-OT02:PSETtXX+I, 

Jl , 15:NEXT 

2200 FORI-0TO2!PSET(XX+I,YY) ,C01V) 

:next: >'Y*=sTR*(63-iYY-6i) /3) :play" 

VRT1Z0LBN'+YY* 

2210 P0KEPEEKIVARPTR1J*W,P) l*l)*P 

EEK(VARPTR(J*(V,P) )*2)*256» IXX-12) 

/8*3,78 

2220 PDKEPEEKIVARPTRIJ*1V,P) )*1)*P 

EEKIUARPTRl J*IV,P) 1*21*256* IXX-12] 

/ A*3+ 1, ASCI MID* 1YY*, 2,1) I 

2230 POKEPEEK(VARPTR(J*lV,P) )+l)*P 

EEK(VARPTRIJ*IV,P1 1 *2)*236* IXX-12) 

/ 8*3*2, ASCI RIGHT* I YY*. 1) ) 1 GOTO 100 

6001 REM modifier longeur notes 

6002 REM 

6005 A-VALIL*) *1IG05UB7020: IFA>64T 
HENA-1 

6010 l»-mid«(str»(a) ,2) :line(22b,2 
4) -1244, 31) , 15, bf: preset 1228,24) :p 
rint»i,l»:return 

7000 REM 

7001 REM modifier 1* tempo 

7002 REM 

7003 A-UALITS1 ♦ 1 : GOSUB7020: IFA/233 
THENA-32 

7010 T»-MID«(STR*IA) ,2) I LINE 1196,0 

1 -1220,7) , 15, BF: PRESET 1196,0) :PRIN 

TNI ,T*:RETURN 

7020 IFPEEK(I<HFBEB)=254TMENA«A*9:R 

ETURNELSERETURN 

8000 REM 

8001 REM modifier le volume 

8002 REM 

8005 A-VAL{U*(U) ) *l: IFA> 13THENA-0 
8010 V*I 



B,B*V>-( 124,8*V*7) , 15,BF;PRESET110 

B,B#V) :PRINT«1, v»(V) ; RETURN 

9O00 REM changer de voie 

9005 LINE 160, B*V>- I6B,8*U*7) .15.BF 

:V=A-3: PRESET (60, 0*U > :PRINTttl, "*"i 

: beep :t50SUB30o: return 

10000 REM 

10001 REM sprite curseur, notes 

10002 REM 

10010 DATA96, 144,96, ,,, , 

10055 DATOLA,Slb,SI,DO,D0M,RE,MIb, 

Ml, FA, FA«, SOL, LAD 

10100 DATARE,MIb,MI,FA,FAM,SOL,LAb 

, LA, Sib, SI, DO, DOM 

20000 REM 

20001 REM ecran initial 

20002 REM 

20003 CLS!FORI«lT02:OPEN"grp: -FORO 
UTPUTAS1 

20010 PRESET I 18,0) :PRINT#1, "P'RIGH 
T*(STR*(P) , 1 ) 

20020 preset 144,01 :print*1, "voie v 
olume tempo: t-:fori-ito3:preseti52 
,8*11 :print«1,chr«(64.i) : preset i 10 
o,8*ti : pr i nth i, -v-v«ii) :next 

20030 PRESET 160, 8*V I : PRINTHl , ■*" : P 

RESET (196,01 : PRINT ttl.T*: PRESET 1140 

,16) JPRINTKl , "LONGUEUR" : PRESET 1140 

,24) :PR1NTH1 , -DES NOTES : L " : PRESET ( 

228,24) :PRINT«1,LS 

20040 PRFSETI 15,341 : PR1NTH1 , "Menu : 

ABC , V, T , L, P-page, J»jou«r" 

20050 PRFSETI 15,421 : PR I NTH 1 , "RETOU 

R:plac*/en]eve la note" : G0SUB20200 

20060 Il=6l:LINE(0,II-l) -1253, 11-1 

) : LINE 10, 11*43*3*11 -(233, 11*43*3*1 

20100 GOSUB300: RETURN 

20200 L1NE(0,50I-I?33,57) , 15, BF 

20210 PRESET I 15,501 : PR I NT M 1 , "T /LI * 



30000 REM 

30001 REM cnanger de page 

30002 REM 

30003 LINE10, 50) - 1233,571 , 15, 
ESET113,30) :PRINT»1, -Sur quel 
9*11-91 vt-t-dn 7" 
30010 A»-INKEY«: IFA*< "1"0RA»> 
EN30010ELSEIFP-VALIAOTHEN30200EL 



1 1*10*VAL(CHR*IP2I )-63)*3:F0RK=0T0 

2;PSETII+K,AI ,COU) INEXT 

30060 NEXT! NEXT 

30100 LINE (26,0)- (34,7) , 15, BF!PRI 

ET (26,01 : PR I NTH 1, RIGHT* ISTR« IP) , 

30200 BEEP:GOSUB20200:GOT0100 

40000 REM 

40001 REM iDinf la muslqu* 

40002 REM 

40003 LINE (0,30) - (253,371 , 15,BF:I 
ESET 113,90) IPRINltll, -Jouer ( 1 1 La 

40010 A*=INKEY«: IFA*="9"THEN40030E 

LSEIFA*( >"1-THEN400IO 

40020 PP=P: GOSUB4OlO0:GOTO4OO60 

40050 PP«l:GOSUB4O2O0:E0RfP-2TO9: 

OSUB40300 i NEXT : G0SUB40 1 20 

40060 GOSUB20200:GOT0100 

40100 GOSUB40200 

40120 IFPLAY(0)THEN40120ELSEPErURN 

40200 1FPIPP)=0THENRETURNELSEF0RI= 



IT03I' 



II) 



*:NEXT:PLAYVU*I 11 , VU*(2i , W*I3I 
40210 IFPLAYIOITHEN40210ELSEPLAY. 

11.PP1 , J*I2,PP) , J*I3,PPI : RETURN 
40300 IFPIPPlTHENPLATJSd.PP) , J* I 2 

,PP) , J*(3,PPI IREJURNELSERETURN 
60000 REM 

61000 REM 

61001 REM RECUPERATION DE LA MUSIlil 
UE 

61002 REM 



61003 REM 

61004 REM llFaire CTRL*STO* 

61005 REM 2IFaire -CLS- 
61C06 REM 3)Soit P le numer 



olOCJ REM ■ 
61010 REM 




L PA('(ee& & <;HAt/?7Vf?f5; ,v 




t? 




7^ 


^ 


:LINEtl30, 129) -1 138 


1321 


l.BF 


LINE 


(129, 1301-1129, 1311 


1,BF 


LINE 


139, 


1111-1139, 112), l.BF 








20300 LINEI145.1111 


1148 


129) 


t,BF 


:LINE(145, 1301-1131 


1481 


l.BF 


LINE 


(152, 132I-I152, 148) 


l.BF 


LINE 


193, 


1461-1170,1491 ,1,BF 


LINE 


146, 


491- 


(173, 149) , l.BFILINE 


146, 


10)- 


173, 


113) ,1,BF 








20310 LINEI171, 130) 


1174 


148) 


l.BF 


! LINE 1145, 128)- 1173 


131) 


1,BF 


LINE 


1174,130) -(174, 131) 


1,BF 


LINE 


164, 


1291-1164, 130) , l.BF 


LINE 


174, 


11)- 


(174, 112) , 1,BF 








20320 LINEI1B0, 111) 


(183 


128) 


1,BF 


:LINEI1B0, 128)-(1B7 


144) 


1,BF 


LINE 


(IB4, 1281 -(198, 1311 


l.BF 


LINE 


199, 


1291-1199, 130) ,1,BF 


LINE 


181, 


491- 


(208, 149) , 1 .BFILINE 


ISO, 


49)- 


208, 


148) , 1 ,BFiLINEI209, 


4*)- 


209, 


48), 


i,Bf:lineiibi, iio>- 


208, 


13), 


.BE 


20330 LINEI209, 111) 


(209 


112) 


l.BF 


:PSET(152, 131) , l:PSET(17 


,129 


,1 


20340 LINEI215, 111) 


(2i9 


128) 


1,BF 


■.LINE (213, 128) -1222 


148) 


1,BF 


LINE 


1216, 1491 - 1221, 149) 


1,BF 


LINE 


216, 


1101-1239, 114) , 1,BF 


LINE 


238, 


10)- 


(240, 128) , 1, BFILINE 


222, 


2BI- 


243, 


131) , 1,BF:LINE 1241, 


29)- 


244, 


48) , 


1 ,BF:LINE(242, 1491- 


243, 


49), 


, bf: 


PSETI240, 1101,4 








20330 PSETI65, 110) , 








20360 LINE(29, 1751- 


30, 1901 , 1 


i,BF! 


LINE 1 30, 1 74 1 - 132, 1 73) , 13 


■Ftl 


;ne(3 


0, 1901-132, 191) , 13, 


3F:PSET(36 


176) 



20370 LINE151, 1 
LINE153, 1731-13 
1-133, 191) 



(85, 189) ,4,BF:L 
,4,BF:lINE<84, 

20390 PSETI91, 17 



NE ( 113, 1 



20410 LINE' 
LINEI132, 
(141, 1771 
, 1821-1 1' 



.INE I 184 
NEI 190, 1881-I203 
03, 177) -(204, 18B 



7) , 10,BF:LINE(190, 17: 
1191, 183) , 10, BFILINE (191, 1831 -(203 
,184) , 10, BF 
20490 LI NEI 209, 1771-1210, 1 80) , 10, 1 
F:LINE (210, 176 1-1219, 1771, 10, BE: LI 
NE 1210, 1811- (219, 182) , 10, BF: LINE 12 
09,183)- 1210, IBB) , 10, BF: LINE 1210, l" 
881-1219, 1891 , 10,BF:PSET<220, 1761 , 
101 LINE (220, 177) -(221, 1881 , 10, BF IP 
SET (220, 189) , 10: LINE (221, 181) -(221 
,182) ,1 

20300 LINE (226, 176) -(240, 177) , 10, B 
F: LINE (226, 17B) -1227, 182) ,10,BF:L 
NEI 228, 181 I - 1240, 1B2 I , 10, BF: L INE I 2 
26, 1881 -(240, 189) , 10, BF: PSET (239 , 1 
82) , 10 : LINE (239, 1B3) -(240, 188) , 10, 
BF: PSET (239, 189) , 10: LINE 1243, 188) - 
(246, 1B9I , 10, BF 

20380 LINE I 180, 176)-(1B3, 177) ,10,B 
F: LINE 1184, 176) -1183, 189) , 10, BF : LI 
NEI 190, 188) -1203, 1891 , 10, BF : LINE I 2 
03,1771-1204, 1SB) , 10, BF : LINE ( 19 
761-1203, 1771 , 10, BF: LINE I 190, 17 
(191, 1831 , 10, BF". LINE 1 191, 183)- 1 
, 184) , 10, BF 
20390 LI NEI 209, 1 77 1 - (210, 180) , 10, B 
FILINE 1210, 1761 -1219, 1771, 10, BFILI 
NE (210, 1811-1219, 182) ,10, BFILINE (2 
09, 1831-1210, 188) , 10, BFILINE (210, 1 
88) -1219, 1991 , 10, BF I PSET (220, 1761 , 
10: LINE (220, 1771-1221, 188) , 10.BFIP 
SET (220, 189) , 10: LINE (221, 181) -1221 
,182) ,1 

20900 F0RI"1T015000:NEXT 
40000 CLSJRETURN • 



D.A.O 



JK, , FAJT 

^£3«ursi« 



Faites honneur ou injure aux qualites graphiques de 
voire MSX, par quelques etonnantes realisations pictu- 
rales. 

Stephane PIEL 

Mode d'emploi : 

Necessite 32 Ko pour la sauvegarde de dessins sur cassette [trans- 
fert de la VIDEO RAM vers la RAM et inversement), ainsi quune 
manette a deux boutons de tir. Si vous ne possedez pas ce type de 
manette. les modifications necessaires son! mdiquees en REM (em- 
ploi de la louche F1). Si vous ne disposez que de 16 Ko RAM. vous 
n'aurez pas la possibility de sauvegarder ou de charger vos oeuvres 
(bien (ait..). Apres lancement, 14 symboies s'affichent en bas de 
I'ecran et un curseur indique la (onclion en cours. Celui du milieu de 
I'ecran pointe la place du crayon a deplacer avec la manette. Vous 
changez de fonction par appui sur le second .bouton du joystick ou 
la touche F1. Dans ce cas. vous deplacez un nouveau curseur de- 
vant la tonction desiree, el validez en appuyant sur le bouton de tir. 
Certaines fonctions font apparaitre une palette de couleurs, effec- 
tuez cholx et validation. Voici de gauche a drone, les differentes 
fonctions : 

1-Dessine un rectangle plein. en delimitant les extremites de sa dia- 
gonal par appui sur le bouton de tir. 



2-Dessine un rectangle vide de la meme maniere. 
3-Dessine un cercle plein en determinant son centre et un point 
quelconque de sa penpnene. 
4-Dessine un cercle vtde de la meme maniere. 
5-Dessine une ligne bnsee en reliant chaque nouveau point au point 
precedent. 

6-Dessine une droite entre deux points determines. 
7-Mode crayon, permet de dessiner point par point en appuyant sur 
le bouton de tir. 

8-Permet de changer la couleur du contour de I'ecran, 
9-Permet de changer la couleur de fond. A determiner avant I'exe- 
cution du dessin. effectil avec EFF 

10-Colore une zone decran en plapant le curseur a I'interieur de 
celle-ci. 

11-EFF: effacemenl total du dessin apres confirmation par appui 
sur le bouton de tir. L'appui sur le second bouton ou ESC, annule la 
commande. 

12-A-Z : Permet d'ecrire sur I'ecran apres entree du message, posi- 
tionnement du curseur a lendroil voulu et appui sur le bouton de tir. 
13-Mode gomme : efface ce qui se Irouve sur le passage du cur- 
seur, en coloriant en couleur de fond. Si cette derniere a ete chan- 
g6e, ce mode est assimile a un mode "pinceau". 
14-Sauvegarde ou chargement de dessins sur cassette, suivre les 
indications. 




10 rem 

20 rem- d.a.o. pour m.s.x. 

30 REM- 5. PIEL 1/4/85 

10 REM 

50 REM 

60 REM ATTENTION 

70 REM 

BO REM Ce logic.*! necesslte um 

90 REM rran»l.t«> a dtux boutons Ua 

100 REM de tir. SI vout IVM un* 

mtntttt a un iiu) bouton de tir 
110 REM vous deve* riinpluer 
120 REM "ONSTRIGGOSUB, , 1420* par 
130 REM un "ONKEYGOSUB1420* , lei 
140 REM*STRIG(3)0N* par "KEY (DON* 
150 REM *t l*s -STRIGil^ OFF- par- 
160 REM d»s 'KEY ID OFF" 
170 REM Ce programme recess lte 
32Koct#ts da RAM. Pour las varsions 

16K RAM, las lignes • Supprimer 
son t i nil i quaes. Vous n'tiirn pas la 

posslbilita d ' enreglstrer sur K7 

las umim raallsas 
1B0 CLEAR20O,bNC5CA 
190 ON STOP GOSUB I580:ST0P ON 
200 GOSUB 1630 ' a >upprimar pour 
las varsions 16K RAM 

210 PItt"ATN!D*4:0PEN 'GRP:* AS 1 
2ZO DEFINTA-Y:DEFFNR-6SR( (Y-YD"2* 
( (X-Xl )*1.23)"Z> 

230 dimcuzdfor 1-0 to 12:readc(i 
) :next:datai5, 15,13,15,15,15,15,1, 

4, 15, 13,4,4 

240 GOSUB 330 

250 ON STRI6 GOSUB ,,,1420'a rampl 

acer par ON KEY OOSUB1420 pour las 

i»»n*ttn a un saul bouton da tir 
260 M-6:CB-l:CF-4 

270 DEFFNZ— l-ATN( ( Z3/FNR) /SBR ( - I Z 
3/FNR)*(Z3/FNR)+D ) +PIH/2I +Z*PIH 
280 M-6:X-128! Y-96IPUT SPRITE2,(-1 
6,-16) , 15, 1 

290 PUT SPRITE 1, (X-3, Y-4I ,C(M> ,2:P 
UT SPRITES, (M#16*Z1, 169) ,13,3 
300 STRIG13) ON' a remplacer par 
KEY(l) ON pour las manettea a un 

310 GOTO 600 

320 REM 

330 REM- PREPARATION ECRAN 

340 REM 

350 COLOR 15,4, 1 : SCREEN2: LINE I 0, 17 
61 -1255, 191 ) ,7,BF:LINE(0, 168)- (255 

, 173) , 1 ,BF 

360 FOR 1-1 TO 3:A«"**:F0R J-l TO 

8IREADA: AC-A*+CHR*(A) : next: SPRITE* 

(Ii-a*:next 

370 DATA 128,64,32,20,12,28,0,0,16 

,16, 16,238, 16, 16, 16,0,4,4,4,31, 14, 

4,0,0 

380 D1»="BMB1 , 186E5D1F1D1FID1F1E3* 

: D2«-"BM96, 177F9* 

390 D3«-*BMD2, 183E7R5D1L5D3NR4D3N 

R4D3NR4D3NR4D1NH7R5U14" 

400 D4«-"BM166, 1 79R2D2R2D1R1D3G5L1 

U1L1U2L3U3E5' 

410 D5S--BM177, 180R2F 1 D3ND2L4ND2U3 

BM*S, -IR4D1G4D1R4BM-S, -3L1* 

420 B6«-"BM193, 1 B0NR2D3NR1D3R2BM*2 

, -6NR2D3NR1D3BM+4, -6NR2D3NR1D3 " 

430 D7«-"BM216, 1 76F4NG7D4G6L2UINE 1 

L1H3U1E1U1NF3E7- 

440 D8«-"BM225, 1 B0R1OD8L1H2L4G2NR7 

LlU8BM.2,f3DlRlUlLlBRSDlRlUlLl* 

450 GOSUB 500 

460 RETURN 

470 REM 

480 REM- AFFICHAGE DES S1GNES - 

490 REM 

500 LINE (0, 176) -(233, 191) ,7, BF ! LIN 

EI17, 178) -STEP 110, ID , 1,BF 

310 LINE (33, 17B) -STEP 1 10, ID , 1 , B1C 

IRCLE(34,1B3),6, 1, , , 1 . 25: PAINT8TEP 

(0,0) , 1 

320 CIRCLE (70, 183) , 6, 1 , , , 1 . 23: LINE 

(12B,177)-STEP(12,13),1,BF:LINESTE 

P(-9, -10) -STEP (6, 7) ,7,BF 

330 LINE (144, 177) -STEP (12, 13) , 1,B: 



LINESTEPI-9, -10) -STEP (6, 7) , 1 , BF 
540 DRAU"XDl*IXD2t.|XD3«lXD4«(XD5«| 
XD6«lXD7»IXDBfJ| ":PAINT<166, 180) , 1 
330 PUT SPRITES, (M»16*21, 169), 15, 3 
560 RETURN 

370 REM 

380 REM- DEPLACEMENT CURSEUR 

590 REM 

600 A-STICKID 

610 IF (A-B OR A-l OR A-2) AND Y>0 

THEN Y-Y-l 
620 IF <A-4 OR A-5 OR A-6) AND Y<1 
67 THEN Y-Y + l 

630 IF (A-2 OR A-3 OR A-4) AND X<2 
55 THEN X-X + l 
640 IF (A-6 OR A-7 OR A-B) AND X>0 

THEN X-X-l 
650 IF Y>167 THEN Y-167 ELSE IF Y< 
O THEN Y-0 
660 PUT SPRITE1, (X-3, Y-4) ,C (M) :PUT 

SPRITES, (M*16+21, 169) 
670 IF STRIG(l) THEN GOSUB 6B0:G0T 
600 ELSE 600 

680 ON (M+l) GOTO 800,850,900,950, 
1030, 1080,720,720, 720, 1210, 1320, ,7 



700 REM MODE CRAYON 

710 REM 

720 PSETIX, Y) ,C (6) : RETURN 

730 REM 

740 REM MODE GOMME 

750 REM 

760 LINE (X-3, Y-4)- ( X*3, Y*3 ) , CF , BF: 

RETURN 

770 REM 

7S0 REM MODE CARRE PLEIN 

790 REM 

600 IF D-0 THEN IF X-Xl AND Y-Yl T 

hen return else x1-x:y1-y else if 
x-xl and y-yl then return else lin 
E(x1,yd-(x,Y),C(0),bf:x1"X:yi-y 

bio d-(d*dm0d2:return 

820 REM 

830 REM MODE CARRE VIDE 

B40 REM 

850 IF D-0 THEN If X-Xl AND Y-Yl T 

hen return else x1-x:y1-y else if 
x-xl and y-yl then return else lin 
E(xi,yd-(x,y),c(d,b:xi-x:yi-y 
b60 d-(d*1 imodzireturn 

B70 REM 

B80 REM MODE CERCLE PLEIN 
S90 REM 

900 IF D-0 THEN X1-X:Y1-Y ELSE IF 
X-Xl AND Y-Yl THEN RETURN ELSE GOS 
UB 980! CIRCLE 1X1, YD ,FNR,CI2) ,Z1,2 
2,1. 2S:PAINTSTEP(0, -1),C(2):LINEI0 
, 168)-(253, 175) , 1 , BF 
910 D-1D+1 )M0D2!RETURN 
920 REM 

930 REM MODE CERCLE VIDE 
940 REM 

930 IF D-0 THEN X1-XIY1-Y ELSE IF 
X-Xl AND Y-Yl THEN RETURN ELSE GOS 
UB 980: CIRCLE (XI ,Y1) ,FNR,C(3),Z1,Z 
2, 1 .23! LINE to, 168 1- (233, 173) , 1,BF 
960 D=(D*1 )M0D2:RETURN 
970 REM CERCLES DEBORDANT ECRAN 
980 IF Y1*FNR<16B THEN Z1-1E-62IZ2 
-2*PI«:RETURN 

990 Z3-S8R(FNR"2- (168-YD~2> :Z1-FN 
Z:Z3=-Z3!Z2«FNZ: IF M=2 THEN LINEIX 
1+ (Z3/1. 23) , 167) - (XI- IZ3/1 ,23) , 167 
) ,C (Ml 
1000 REM 

1010 REM MODE DROITE BRISEE 
1O20 REM 

1030 IF D-l THEN IF X-Xl AND Y-Yl 
HEN RETURN ELSE 1040 ELSE IF D-2 
THEN IF X-Xl AND Y-Yl THEN RETURN 

else 1040 else x1-x:y1-y 
1040 line 1x1, yd -ix.y) ,c(4) :x1-x:y 
:d=d+i:if d>2 then d-z:return e 
lse return 

1050 REM 

I REM MODE DRDITE 
107O REM 



1080 IF D-0 THEN IF X-Xl AND Y=Y1 
THEN RETURN ELSE xi-x:yi=y ELSE IF 
X-Xl AND Y-Yl THEN RETURN ELSE LI 

NE(X1,YD-(X,Y) ,C13) :xi-x:yi-y 

1090 D=(D*1)M0D2:RETURN 
1100 REM 

1110 REM CHANGEMENT COULEUR CONTOU 
R 

1120 REM 

1130 COLOR , ,CI7) :M=0:RETURN 
1140 REM 

1150 REM CHANGEMENT COULEUR FOND 
1160 REM 

1170 color ,ci8> :cF=ctai :m=h:retur 

N 

1180 REM 

1190 REM MODE C0L0R1AGE 

1200 REM 

1210 LINEIO, 167) -(235, 167) ,C(9) : PA 

INT1X.Y) ,C(9) IRETURN 

12Z0 REM 

1230 REM MODE ECRITURE 

1240 REM 

1250 LINE (0, 1761 - (253, 191) , 7,BF:C0 



LOR 1 

1260 DRAWBM16, 184-:PRINT« 



'I 



RN 

12B0 IF A«-CHR*(8) OR A*-CHR*(127) 

THEN 1290 ELSE 1310 
1290 B*=LEFT*(BS,LEN(B«) -D : LINE (2 
55, 191) - (40, 184 1 ,7,BF:PRINTW1,B«1 
1300 GOTO 1270 

1310 PRINTttl.ASJ :B**B**A*:GOT0 127 


1320 COLOR C (10) :DRAW"BM-X) ,=Yl u :p 
RINTS1 ,B*:M-6: RETURN 
1330 REM 

1340 REM RETOUR 

1350 REM 

1360 GOSUB 500:PUT SPRITE1 , (X-3, Y- 
4>,CIM)!PUT SPRITE2, (-16, -16) 
1370 STRIGI3) ON'a remplacer par 
KEY(l) ON pour las tnanettes a un 
seul bouton da tir 
1380 GOTO 600 

1390 REM 

1400 REM- CHOIX OPTION 

1410 REM 

1420 STRIGI3) OFF ' a remplacer par 
KEYID OFF pour las manattas a un 

saul bouton ds tir 

1423 f0ri-(,hf53e to ".hf660 ! poke 1 , 

:next i 

1430 d=0:put sprite1, 1-16,-16) !n-m 

:b-M:xi--i:yi--i 

1440 put sprite3, (m*16*21, 169) ; got 

1460 

1450 N=(N-( (STICK ID -3 1*1 ) - t (STICK 

ll>*7)*131 1M0D14: A*=INKEY* 

1460 PUT SPRITE2, IMH6+17, 169) : IF 

STRIGID THEN 1470 ELSE FOR 1-0 TO 

400: NEXT: GOTO 1430 
1470 M=N:IF N=12 THEN C ( 1 2) =C (Q ) : R 
ETURN 1360 

1480 IF N-ll THEN L INE ( 0, 176) - (255 
, 191 ) ,7,BF:C0LOR 1 :DRAW"BM118, ISO* 
IPRINTWl , "Ok ■'-IFOR I- O TO 500:NE 
XT ELSE GOTO 15O0 

1490 IF STRIGI3) OR INKEY*-CHR« ( 27 
) THEN GOSUB 500:G0T0 1440 ELSE IF 

STRIGID THEN LINE (0 , ) - 1 235, 1 67) 
,CF,BF:GOSUB 500:RETURN 280 ELSE 1 

1500 IF N-13 THEN GOSUB 1750'dans 

la cas d'una version 16 KRAM , 
ramplacar catta ligna par 'IF N-13 

THEN 1450 ■ 
1510 LINE 10, 176) - (233, 1919) ,7,BF:N 
-C(M) -DGOSUB 1370 

1520 PUT SPRITES, ( (C (Ml -D*16*13, 1 
69>:GDT0 1540 

1530 N-IN-I (STICK(1)-3)*D -I (STICK 
II )-7)*14) 1M0D1S 
1540 PUT SPRITE2, 
TRIGI1 ) THEN C1M) 



to 4oo:next:goto 1530 

1350 IF M-7 THEN GOSUB 1130 ELSE I 

F M=8 THEN G0SUB1170 ELSE IF M-10 

THEN GOSUB 1250 

1560 RETURN 1360 

1570 FOR 1-1 TO LSI LINE I 16*1-6, 177 

) -STEPI11 , 14) , I, BF: NEXT: RE TURN 

15S0 COLOR 1S,4,4:END 

1590 REM 

16O0 REM- ROUTINES L.M. 

1610 REM 

1620 "debut des lignss a supprimer 

pour las versions 1 6K RAM 
1630 CK-O: RESTORE 1700: FOR I-R.HC3CA 

TO LHC5FF 
1640 READ A«: DD-VAL ( "I.H" +A«) 
1650 POKEI ,DO:CK=CK+DO 
1660 NEXT 1 

1670 DEFUSR=fcHC5CA: DEFUSRl»t«HC5E5 
1680 IF CKO4701 THEN SCREEN01PRIN 
T"ERREUR DE DATAS . VERIF IEZ LES' I": 
PRINTlLIST 1700-1710 
1690 RESTORE! RETURN 

1700 DATA F3.CD, IF , 32, FS , 21 , 00, 00, 
11 ,00,C6,01 ,00, 15,F1,A7,20,03,CD,5 
9,00, IS, 03, CD, 45,07,09 
1710 DATA F3, CD, IF, 52, F5, 21 ,00,20, 

Ui9OiB£ ( 91ie0|lS|Fl|A?i2Q|S9|£8|3 

9,0O, 18,03,CD,43,O7,C9 

1720 REM 

1730 REM- MODE CASSETTE 
1740 REM 

1750 L=USR(0) IL-USR1 (0) 
1760 PUTSPRITE3, (M*16*21, 169) 
1770 LINEIO, O) -1255, 167) ,4, BF 
1780 COLOR 15 

1 ■'90 DRAW-8M30.30" JPRINTKl, "1-SAUV 
EGARDE DU DESSIN" 
1300 DRAW-BM30.46" IPRINTKl, "2-CHAR 
GEMENT D'UN DESSIN' 

1310 DRAM"BM30,62- : PR I NTH 1 , "3-RETO 

UP AU DESSIN' 

1B20 DRAWBM60.96- :PRINT#1 , "VOTRE 

CHOIX 7" 

1830 A*=INPUT*I1) : IF A*<"1* OR A*> 

"3"THEN 1830 ELSE ON VALIA*) GOTO 

1S50, 1910, 1840 

1840 L-USR11 ) :L=USR1 (1) :M-6: RETURN 

1360 

1850 GOSUB 2010 

I860 MOTORON: GOSUB 2000 

1S70 MOTOROFF: GOSUB I960 

1880 BSAVE'CAS: ■ + B«, S.HC600, 8.HEFFF 

1890 GOSUB 1990 

1900 GOTO 1840 

1910 GOSUB 2010 

1920 MOTORON: GOSUB 2000 

1930 MOTOROFF: GOSUB 1970 

1940 BLOAD"CAS: "+BS 

1950 GOSUB 1990 

1960 GOTO 1B40 

1970 DRAWBM10, 1 16 ■ : PR I NT It 1 , "MAGNE 

TO SUR PLAY PUIS < ENTER> ■ : A*-INPUT 

* ■ I i : RETURN 

1980 DRAWBM10, 1 16- : PRINT ttl , "MAGNE 

TO SUR ENREG. PUIS < ENTER) * 1 A»=: 

UTlll ) :RETURN 

1990 DRAWBMIO, 1 32" : PRINTM 1 , "MAGNE 

TO SUR STOP PUIS <enter>-:a*=input 

SID : RETURN 

2000 DRAW -BMIO, 84": PR I NT ttl, 'POSITI 

ONNEZ LA K7 PUIS <ENTER >": A»- INPUT 

*(D : RETURN 

2010 LINE 10, 01- (253, 167), 4, BF : DRAW 

"BM30,60" 

2020 PRINTH1, "NOM DE L'IMAGE :"j: 

I'" * 

203O A*=INPUT*(D : IF A«»CHR*(13> 

HE_N 2060 ELSE IF A»<-"9* AND A*>- 

O" OR A»<-"Z- AND A«>-"A- OR A«<= 

I" AND A»>-"a" THEN B*-B»»A» 

2040 PRINTtll,A«: 

2050 IF LEN(B*)<6 THEN 2030 

2060 RETURN 

2070 • fin des liones a suoprimer 



ENTREE HEXADECIMALE 



APPLE 



Princes de I'hexadecimal, traitez vos codes avec me- 
thode et elegance. 



Remy et Regis RINGENBACH 



Mode demploi : 

Cet utilitaire permet la Saisie des codes hexadecimaux d'un listing. 

avec !e maximum de rapidite et le minimum d'erreurs. Voici les 

moyens utilises : 

i -Pour la rapidite i 

•Saisie des codes a la volee sans utiliser SPACE pour les separer. 

-Mise a jour et affichage automatique de ladresse de saisie. 

-Corrections rapides. 

2-Pour la securite : 

•Validation des entrees par groupe de huit avec controle HEX- 



CHECK simultane. 

-Inhibition des touches inuliles a la saisie. 

-Controle des zones memoire pour ne pas ecraser le Basic ou le 

DOS. 

Guide operatoire : 

Suivre les indications du programme en utiiisant les touches propo- 

sees par le menu. Seule la touche ESC merite une explication : 

elle est la touche de correction et peut servir pour annuler la (ou 

les) derniere(s) frappe(S), ou bien pour revenir sur la derniere s6rie 

de huit codes, lorsque la valeur HEX-CHECK est incorrecte. Dans le 

second cas, les fleches Droite et Gauche permettent de passer ou 

de revenir sur chacun des huit codes En corrigeant le dernier code, 

ou en utiiisant la fleche a Droite au-deia de ce code, on provoque 

un nouveau controls HEX-CHECK. L'utilisation du programme est 

Ires simple, 1' accent ayant ete mis sur la convivialite. Les (ausses 

manoeuvres son! evitees et de nombreux controles sont geres par 

le programme. ATTENTION, la responsabilite de la sauvegarde est 

laissee a lutilisateur. 







10 IF PEEK (115) + PEEK (116) 

* 254 ( ) 36000 THEN TEXT 
: HOME i VTAB 8:A* = "t FOR 

I * 1 TO 20 :A* = A* + "I": NEXT 
: PRINT A*: PRINT "Sun APPLE 
lie, passez en clavier QUER 
TY pour une saisie plus aise 
e des chiffrif "1 PRINT A*: HTA8 
20: GET A3 
15 OP = PEEK (103) + PEEK (104 
) * 254i HIHEM: DP * 6142:FP 
= PEEK (115) * PEEK (114) 

* 254: GOTO 100 

20 GET A*:A = ASC (A*): RETURN 

25 A = 0: FOR I = TO LEN (A*) 

- llJ ■ ASC ( HIM (A*, LEN 
<A«) - I,1)):J = J - 48 - 7 » 

(J > 64):A = A + J » 16 " I: 
NEXT : RETURN 
30 A(l) = INT (A / 14):A(2) = A 

- Ad) » 16:A* ■ "■: FOR J = 
1 TO 2:A* = A* + CHR* (40 ♦ 
A(J> ♦ 7 * (A(J) > ?)>: NEXT 

: RETURN 
35 A* - ": FOR I - 3 TO STEP 

- I:B = INT (A / 14 * I):A 
=A-8#14' I:A* = A* ♦ 
CHR* (48 * B ♦ 7 # (B > 9)) 

: NEXT : RETURN 

40 POKE 7, INT ((AD - I) / 254) 
: POKE 4, (AD - I - 256 » PEEK 
(7»i POKE SR * 4,1: CALL SR 
:A = PEEK (B): GOSUB 30: KTAB 
35: PRINT '(VAV>" CHR« (7) 
i CHR* (7): RETURN 

45 IF A < 748 OR (A > DP - 8 AND 
AD < FP) OR (A ) 973 AND AD < 
2048) OR A > 3B399 THEN POP 
: GOTO 800 

30 RETURN 

100 TEXT : HOME : INVERSE : HTAB 
10: PRINT "ENTREE HEXADECIrW 
LE": NORMAL : HTAB 10:A = DP 
: GOSUB 35:AD* = A*:A = FP: GOSUB 
35: PRINT "(Basic "AD*" a "A 
*■>' 

105 PRINT " Saisie par group 

e de huit RETURN Com 

ec t i ons 

_ESC Groupes de codes ide 

ntiques = Acces au 



,." : POKE 34,8: VTAB 



10 
110 SR = 750: FOR I = TO 16: READ 
J: POKE SR + I, J: NEXT : DATA 

140,0,177,4,200,192,7,24 
0,5,81,4,24,144,244,133,8,96 

115 PRINT : PRINT "Adresse de d 
ebut (hexa) ? " ; :AO* = "" 

120 GOSUB 20: ON (A = 27) ♦ 2 * 
(A = 13) + 3 « ((A < > 27 AND 
A < ) !3 AND A ( 48) OR (A > 
57 AND A ( 65) OR (A ) 70)) GOTO 
125,135,120: PRINT A*;:AD* = 
AD» ♦ A*: GOTO 120 

125 ON AM = ■" GOTO 120: PRINT 

CHR* (8)" " CHR* (8);: IF LEN 
(AD*) = 1 THEN AD* = "": GOTO 
120 

130 AD* = LEFT* (AD*, LEN (AM) 
- 1)1 GOTO 120 

135 IF AD* = '■ THEN 120 

140 PRINT : PRINT : PRINT :A* = 
ADS: GOSUB 25:AD ■ A: GOSUB 
45:A = 40000: GOTO 200 

200 I = FRE (0):HT = PEEK (34) 
rVT « PEEK <37> 

205 VTAB 9: HTAB 1: PRINT SPC( 
80): VTAB 9: HTAB 30: FLASH 
: PRINT "OPTION ?" ; : NORMAL 
: GET A*: VTAB 9: HTAB 30: PRINT 
SPC( 8): HTAB HT : VTAB VT 

210 ON 1 + (A* = CHR* (13)) ♦ 
'£ I (A* * UHR* (27) AND A ( 
40000) + 3 « (A* ■ "»■) + 4 * 
(A* - "-') * 5 « (A* - ".") GOTO 
205,300,400,500,400,700 

300 PRINT : PRINT :A = AO ♦ 8: GOSUB 
45 iA s AD: GOSUB 35: AD* = A* 

305 .PRINT AD*"-" ; :H = 7:fl = 0:J 
■ 8 * (AD / 8 - INT (AD / 
B>>: FOR I ■ TO 7 - J 

310 HTAB H ♦ 3 » I:B = 0: GOSUB 
20: IF A = 27 THEN AD = AD - 
(I > 0):I ■ I - (I > 0): GOTO 
310 

315 IF A ( 48 OR (A ) 37 AND A < 
45) OR A ) 70 THEN 310 

320 PRINT A*|i8 = A: GOSUB 20: ON 
A ( 48 OR (A ) 57 AND A < 43 
) OR A ) 70 GOTO 3.10: PRINT 
A* 1 ■ CHR* (7)f :P = (B - 48 - 
7 * (B ) 44)) * 14 ♦ A - 48 - 
7 » (A > 44): POKE AD,P:AD = 
AD + 1 : NEXT : GOSUB 40: GOTO 



400 H » 7 

405 HTAB H: GOSUB 20: IF A =» 8 THEN 
H = H - 3 » (H ) 9): GOTO 40 
5 

410 IF A » 21 THEN H ■--- H • 3 : ON 
H (H1713KI - I)) GOTO 
405,425 

415 IF A ( 48 OR (A ) 37 AND A ( 
45) OR A ) 70 THEN 405 

420 PRINT A*;:B = A: GOSUB 20: ON 
A < 48 OR (A ) 57 AND A ( 45 
) OR A > 70 GOTO 405: PRINT 
A*" ■ CHR* (7);':P = (B - 48 - 
7 * (B ) 44)) » 16 + A - 48 - 
7 * (A ) 64) : POKE AD - I ♦ 
(H - 7) / 3,P: IF H < 7 ♦ 3 * 
(I - 1) THEN H * H * 3: GOTO 
405 

425 GOSUB 40: GOTO 200 

500 PRINT : PRINT : PRINT 'Voul 
rz-uous sortir du programme 
et passer en moniteur ( 

0/N) ?"; 

505 GET A*: ON 1 + (A* = "0") ♦ 
2 I <A* = "N") GOTO 505,530, 
515 

510 PRINT : PRINT "Pour revenir 

, frappez 3O0G (RETURN) 

et GOTO 

115 (RETURN)" CHR* (7): CALL 

- 151 

515 PRINT : GOTO 200 

400 PRINT : PRINT :A = AO: GOSUB 
35:AD* = A*: PRINT "Code un i 
que de "AD*' a " ; :AF* = " 

405 GOSUB 20: ON (A - 27) ♦ 2 t 
(A = 13) ♦ 3 * (<A ( > 27 AND 
A ( ) 13 AND A < 48) OR (A > 
57 AND A ( 43) OR (A ) 70>) GOTO 
410,420,605: PRINT A*;:AF* = 
AF* + A*: GOTO 405 

410 ON AF* = " GOTO 405: PRINT 

CHR* (8)" " CHR* (8);: IF LEN 
(AF*) = 1 THEN AF* = *": GOTO 
605 

615 AF* = LEFT* (AF*, LEN (AF*) 

- 1): GOTO 605 

620 IF AF* = ■■ THEN 605 

425 HTAB 23:A* = AF*: GOSUB 25: 

AF m A: IF A ( AD THEN PRINT 
SPC( 10)| CHR* (7); CHR* (7 

);: HTAB 23:AF* = *": GOTO 4 

05 
630 GOSUB 45: GOSUB 35:AF* = A* 

: PRINT AF*: PRINT "Valeur d 

u code (ESC pour annuler) ; ";: 



635 GOSUB 20: IF A = 27 THEN PRINT 
: PRINT "Code abandonne" :A* •= 
CHR* (13): GOTO 655 

440 IF A ( 46 OR (A ) 57 AND A ( 
45) OR A ) 70 THEN 635 

645 PRINT A*;:B = A: GOSUB 20: IF 
A ( 48 OR (A > 57 AND A ( 45 
) OR A ) 70 THEN PRINT CHR* 
(6)" " CHR* (8);: GOTO 435 

430 PRINT A*; CHR* (7):P = (B - 
48 - 7 * (B ) 44)) » 16 + A - 
48 - 7 « (A ) 64) : FOR I = A 
D TO AF: POKE I, Pi NEXT :AD = 
AF ♦ 1: PRINT ■ Code introdu 
it i *;:A ' Pi GOSUB 30: PRINT 
A*" " 

635 A = 40000: GOTO 200 

700 PRINT : PRINT "Avez-vous *i 
ni (O/N) ?' ; 

703 GET A*: ON 1 + (A* ^ "U") t 
2 x (A* = "N") GOTO 705,710, 
115 

710 PRINT : PRINT : PRINT : HTAB 
7: INVERSE : PRINT "N'OUBLIE 
2 PAS DE SAUVEGARDER" : NORMAL 
: TEXT : END 

300 : PRINT : PRINT : IrWERSE : PRINT 
"ENTREE IMPOSSIBLE SANS DETR 
UIRE LE BASIC"f SPC( 15);'0U 
LE DOS"; SPC< 16): NORMAL 

905 PRINT "Voulez-uous deplacer 
le prooranme Basic de 1* pi 
age "|1 IF PEEK (104) - B THEN 
PRINT "B0O-1FFF a 2000-37FF 
(0/N)?'i: GOTO 815 

810 PRINT "2000-37FF a BO0-1FFF 
(Q/N)?*i 

815 GET A*: ON 1 + (A* = "O") * 
2 » (A* = "N") GOTO 815,830, 
820 

820 PRINT : PRINT : PRINT 'Voul 
ez-wou* repartir de "AD*" (0 
/N) ?"|:A = 40000 

B23 GET A*: ON 1 + (A* = "0") ♦ 
2 * (A* = "N") GOTO 825,200, 
115 

630 HIMEM: 38000: POKE 103, ( PEEK 

(103) = 1): POKE 104,8 + 24 » 

( PEEK (104).= 8): POKE ( PEEK 

(104) « 256 + PEEK (103) - 
1),0: PRINT CHR* (13); CHR* 
(4)"RUNENTREE HEXADECIMALE" < 



RUN MAN 



Joueurs masochistes, souffrez a recuperer les dollars 
dissemines par vos soins, aans des tableaux de votre 
choix farcis de pieges de votre cru. 

Alain GODON 

Mode demploi: Tapez et sauvegardez ces trois listings sous les 
noms "SCORE". "RUN-MAN", et "CREATE". Lancez "SCORE" avant 
de tancer "RUN-MAN" et n'oubliez pas de creer vos tableaux quand 
le programme vous le propose (les tableaux crees seront sauvegar- 
des). 



o HEM 

3 POKE - 14348,0; 

10 ONERR GOTO 

50 OP = 1 

53 » » " 

37 G0SU6 30000 

3" POKE - 1 4340. ( 

40 GOSUB 1000 




STM <OP>:TS 



12 ONERB GOTO 

13 GOTO 600 

20 POKE - 1434B.Q 

30 2 • PEEK I - 14384) 



35 S = 


PEEK 




4334) :SA - PEEK 


180 


IF Z 


= 21 THEN 1140 






SA t 




200 


IF Z 


= 18 THEN 1080 




SAj * 


SA « 


SA * SA - SA - 


210 


ON K 


GOTO 230.2B0.330 


SA 








213 


QOTO 


130 


38 FOi 


1,1 • 


1 TO 


Wi NEXT IJ 








40 IF 


' = | 


THEN 


K ■ 1: GOTO 2 


230 






30 








240 


IF X 


1 1043 AND 1 ( 1 


30 IF 


I - H 


THEN 


K - 2: GOTO 2 


230 


IF X 


• 854: GOTO 400 
> 1103 AND X < 1 


40 IP 


• - 1 


THEN 


K " 3: GOTO 3 






• 834: GOTO 400 


30 








240 




- 128 


70 IF 


I ■ G 


THEN 


K ■ A: GOTO 3 


270 


SOTO 


400 



- 8341 GOTO 

I 1959 AND X 

- 854: GOTO 



1 1940 THEN 

10 

t 2000 THEN 



330 GOTO 400 



PAINT 



(jpJeuz fat&otefej) 



Programmers agoraphobes, comblez par ce pro- 
gramme le vide qui vous angoisse. 

Jean HOTTERBEEX 

Mode d'emploi : 

Ce programme vous permel de remplir une lorme fermee. simple- 



men! avec la commande suivante ; P x.y. ou x et y represented les 
coofdonnees dun point dans la surface a remplir, Le remplissage 
s'effectue dans la couleur courante (ne pas utiliser le noir): assurez 
vous que la surface a remplir esl bien fermee. 
Le lisling 1 a ete redige sous "apple writer" el assemble par 'Tool 
kit" Une fois tape et assemble, faire BRUN PAINT OBJ pour initiali- 
ser tes " ". Si vous ne possedez pas d'assembleur. rentrez le listing 
2 par CALL-151 et verifiez vos entrees par HEX-CHECK. 




•REMPL1SSAGE 0-UNE 


SURFACE* 


■ SYNTAXE: *P X,Y 




■X.YiCQORDONNES 


UN POINT' 


• DANS LA SURFACE 


: 



52. 3 JSR MUIN 



ETAT EOU *09 



XM. 



E'W I 






EOU *4B 
EOU *4C 
EOU 14D 
CHRGET EOU 1B1 
ADR EOU «0 100 
HPOSN EOU *F4J1 
HPLOT EOU *F437 
GET1NT EOU »E105 
GTBYTC EOU *E4F5 
ERROR EOU *DEC9 

LOO M4C 



lHISE EN PLACE DE t 



ST A CMPT 
MBJT LM CMPT | TESTE LE CGMPTEUR POUR SAUOIR 
BNE SO |S1 LA SURFACE EST REMPL1E 
R1S ;SI CMPT VAUT D.CN A TERMINE (OUF'i 



iCHARGE LE POINT DE DEPART 



I INC CY |TESTE LE POINT EN-DESSOUS 



OE5SUS DEC CT ;TESTE LE POINT AU-DESSUS 



JSR TEST [TESTE LE POINT 

LOA ETAT 

BNE S4 |S-H N'EST PAS ALLUME 

JNP DESSOU ;0N REPART EN 'DESSOU" 

LOA D1RX jS'll EST ALLUME 

SPL S5 :0N CrtANGE DE DIRECTION 

JHP DEBUT 

LOA MFF 

STO D1RX 

LOA XRL 

STA CXL 

LOA XRH 

STA CXH 

JNP DESSOU 

INC CMPT [CONSERVE UN POINT DE RETOUR 

LDA CMPT 



MO INS LOA CXL 



SCAN LOA CY i 



STT *3F4 
STY #73 [ET OE N 
LDY «(PR0C 
STY *3F7 



DC CMP 4*30 jEST-CE f ? 






GEO PLOT 


BED PAINT 






JSR STOCK 


JHP ERROR 1NON: 1MPRIME "SYN 


AX ERROR' 




LDA »tn 


INT JSR CHRGET 






STA YM 


JSR GET INT 




PLOT 


INC CY iOESSINE LE POINT 


LDA *A0 ;LIT LES COORDONNEES 


OU POINT 




LOA CY 


STA CXH 






LDY CXH 


ST A ADR'S 






LDX CXL 


LDA «AI ;FT LES STDCKE EN CX 


,CXH ET CY 




JSR HPLOT 
LDA 01 Nx 








BMI S2.S | INCREMENT! OU DECBEHENIE 








JSR PLUS |SU1VANT DUE D1RX EST 








JNP S3 IPOSITIF OU NE0AT1F 



iA LA FIN DE CETTE ROUTINE 
iN jETAT VAUT 1 SI LE POINT CX.CY 
[EST ALLUME, S'lL EST ETEINT 



* ETAT 

S 

R SCRN |TE5TE UN POINT 

* ETAT 

E* |LE POINT EST CONSIOERE ALLUME 

S |S'!L EST EFFECTIVENENT ALLUME, 

R PLUS |MA1S AUSSI SI LES POINTS DE PART 

R SCRN (ET D'AUTRE SONT ALLUMES 

R MOINS |CECI PERMET DE TRAITER LES 

4 ETAT lAUTRES COULEURS QUE LE BLANC 
E S7 | OU LES POINTS SONT SEULENENT 

5 jALLUIES UNE CDLONNE SUR DEUX 



RUN MAN 



Suite de la page 23 



w X ■ v 

370 X » X - 1 

380 GOTO 400 
390 REM FIN 
400 CE ■ PEEK <X) 
410 IF CE - 140 THEN POKE U,14 
0:V - Xi POKE V.1B9: GOTO 13 



111 



' SC * 



430 IF 



171 THEN POKE U,14 
CALL - 1 78 1 OOTO 470 
440 IF CE - 255 THEN POKE V,I4 

0: CALL - IPS: GOTO 500 
450 IF CE - 170 THEN 530 
440 POKE X,189|V « X; OOTO 130 
470 SC " SC - 20 
480 POKE V.I89 
490 GOTO 400 
500 SC - SC - 5 
510 POKE V.189 
320 GOTO 400 

530 SC - SC * 23iWC* ■ 'OK' 
335 POKE V,fc40: POKE X,42i GQSUE 

aooo 

540 GOTO 400 
400 REM 

405 VTAB 23: HTAB I3i PRINT "SC 
ORE- ■)( PRINT SCj" VITESSE" 
■ |VI | ' 



1070 RETURN 

1060 FLASH i VTAB 12: HTAB 14: SPEE 
it- SO 
1090 PRINT -(SAME OVER'! NORMAL 

i SPEED- 235i FOR X - 1 TO 2 

OODi NEXT X 
1095 HOME 
1100 GOTO 220 
1130 GOTO 70 
1140 FOR 1 - 1 TO 50. HG ■ PEEK 

( - 143B4): IF HG ( ) 213 THEN 
NEXT 1 t GOTO 400 
1142 SC ■ SC 4 50 
1150 GOTO 400 
1300 FDR I - 1024 TO 2039 
1510 U * PEEK (I) 
1520 ]F U ■ 169 THEN 1350 
1530 NEXT 1 
1540 PRINT 'TABLEAU IMPOSSIBLE' 

lOP ■ OP • I i GOTO 70 
1330 V - li RETURN 
2000 DATA MONIES .0E5CENDRE , *AL 

LER A DROITE'.'ALLER A GAUCH 



INC CXL 
BNE ES 

INC CXH 



10125 PRINT i INPUT 'Vout»i-ve u 
I voir It HIGHT SCORE (0/N) 
'lRE»t IF RE* ■ '0" THEN 200 
02 

10124 HOME I PRINT i PRINT t PRINT 

10130 PRINT NO*)* VOUS ETES RES 
SORTIS AVEC '! INVERSE i HTAB 
3l PRINT ' "iSCi" ■]! NORMAL 
I PRINT " DOLLARS' 
10140 VTAB 9; HTAB 3i INPUT 'Un 
t itttrt ptrtlt (0/N) -) ' ;■"■ 
E* 
10130 IF REt - '0' THEN 59 
10140 IF RE* ■ *N' THEN 
10170 CALL - I98t GOTO 10140 
20000 HOME I PRINT 'VOUS ETES R 
ESORTtS AVEC ";SC(" DOLLARS' 
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10 D* - CHR* (is 

20 PRINT D4-OPEN SCORE* 

30 PRINT D*'URITE SCORE' 

40 PRINT 10 

3D PRINT Di'CLOSE SCORE 1 



POKE - 14348, OlV - 2tH ■ 2 

VTAB Vi HTAB H 
GET CA*!l - PEEK (49132) 
IF Z > 2B THEN 470 
IF 2 ■ 21 THEN H > H • II IF 
H ■ 40 THEN H ■ 39i GOTO 310 



20001 FOR I > 



I TO 4 



i NEXT 1 



7000 ( 



70 



■ OP • 1 lUC* ■ 



: c-o:o 



IF SC i 



200 THEN 10B0 
420 IF NCO " "OK" THEN 7000 
430 GOTO 130 
1000 HOME 

1003 VTAB 2: HTAB II: 1NUERSE : 
PRINT ' CHOIX DES TOUCHES * 
: NORMAL 
1010 FDR I - I TO 4 
1020 READ MVf 
1030 VTAB 7; HTAB S 
1D40 PRINT 'TOUCHE POUR '|HVt|' 
)(!> » PEEK 



149152) 
1030 NEXT t 



= 0(2) :0 = 0(3>! 



1043 HOME : VTAB 2: HTAB 3: PRINT 
■VITESSE INITIALS (2 rjpifl*/ 
200 lent) ': VTAB 5; HTAB 4: 

INPUT 'IJCTRE CHD1X -) ' ;UX 
i FOR 1 - 1 TO 20 i NEXT I 

1044 IF VX ( 2 OR UX > 200 THEN 
CALL - 198: GOTO 1043 

1048 VI ■ VX 



6000 GOSUP 8040: GOTO 8030 

8010 IF JK > THEN FDR X » I TO 
JKi NEXT ;JK ■ 01 RETURN 

B020 POKE 0,253 - PL: POKE I, LI 
: CALL 771: RETURN 

B030 PL - 41 :L] * 38: GOSUB BOIO 
iPL • 109: GOSUB B010:PL ■ I 
39: GOSUB B0I0:PL ■= I57iLI - 
48: GOSUB BOIOiJX ■ 096: GOSUB 
SOlOiPL ■ 1 3? : L 1 ■ 58: GOSUB 
B0I0:PL • I57:LI - 253i G0SU8 
8010: RETURN 

B040 POKE 771,173: POKE 772,48: 
POKE 773,192: POKE 774,134: 
POKE 773,208: POKE 774,4: POKE 
777,198: POKE 778, li POKE 779,240 

BOSO POKE 7B0,8i POKE 781,202: POKE 
782,208: POKE 783,244: POKE 784, 
144: POKE 783,0: POKE 784,74 
i POKE 787,3: POKE 788,3: POKE 
789,94: RETURN 
10000 HOME 
10005 PRINT 

10010 PRINT D»|'OPEN SCORE" 
10020 PRINT Mi'READ SCORE' 
10D30 INPUT KS 
10040 IF KS ) 5C THEN 20000 
10050 PRINT D*:-CLOSE SCORE' 
10040 POKE - 14348,0: HOME : VTA8 
3: HTAB 2: INPUT 'VEUILL.E2 ENTRER 
VOTRE NOM -> "INO* 
10070 PRINT D»i'OPEN SCORE' 
1OO80 PRINT C*;'URITE SCORE' 
10090 KS - SC: PRINT KS 
10100 PRINT NO* 
10110 PRINT » I 'CLOSE SCDRE- 
10120 HOME : VTA8 3: HTAG 3 



20003 PRINT : PRINT Mi'OPEN SC 
ORE'] PRINT Mi'READ SCORE': 

INPUT SC: INPUT NO*: PRINT 
Mj-CLOSE SCORE' 

20004 VTAB 4: HTAB 3: PRINT NM 
,SC 

20005 FOR 1 ■ 1 TO 5000: NEXT 1 

20010 PRINT : PRINT Mi* RUN RU 



■ CREATE, PAR A.G • 



VTAB 1: HTAB 13l INVERSE 
1 ': HTAB 

1 INSTRUCTIONS ': HTAB 



INVERSE 
PRINT ' 



30020 VTAB 2: HTAB 

THE RUN MAN ' 
30030 VTAB 3: HTAB 14: PRINT 



30120 PRINT ' VOTRE CHOIX: • ; : 1W 
RSE 
30130 GET RE*: PRINT RE*: FOR 1 

* I TO 300: NEXT I 
30135 NORMAL 
30140 IF RE* * '!' THEN RETURN 

30150 IF RE* = '2' THEN PRINT 

: PRINT D*i' RUN CREATE ' 
3014D IF RE* < i '3' THEN CALL 

- I9B1 GOTO 30110 
30170 GOTO 220 



NORMAL 

VTAB 8: HTAB 1 

INVERSE : PRIr. 

; PRINT ' Uou. 



PRINT : HTAB 4: INVERSE : PRINT 
|l NORMAL : PRINT ' Voui infer 
ivn Itt lignoi («,'|: PRINT 
CHR* (255)|i PRINT ",*,•) 
•n lis tipint M cl»vi*r 

PRINT : HTAB 4; INVERSE I PRINT 
H NORMAL : PRINT * L|> (ignt ' 
';: PRINT CHR* (2S3)|i PRINT 

•DEL' ' 

PRINT ! HTAB 4: INVERSE : PRINT 

|| NORMAL : PRINT - Uout t+fie 

»r I'tCftll tvtc CTRL-E *t 



HOME 

VTAB 3: HTAB 3: INPUT ■ 

lablnu — > '|TA* 

FOR I - I TO 70 i NEXT I 

HOME 



388 


IF 2 


8 THEN H ■ H - li IF 




1 ■ 1 


HEN H - 2: GOTO 310 


J70 


IF 1 


11 THEN V ■ V - li IF 




t - 1 


HEN V • 2: GOTO 310 


380 


IF 2 


19 THEN 413 


390 
410 


IF 7 

2P3 
GOTO 


" 3 THEN HOME : GOTO 
310 


413 


3NERR 


GOTO 2000 


420 


PRINT 


:T« ■ 'T-iTS* • T* • 




A»i PRINT Mj'BSAVE "TS*',A 




024, L 


024' 


423 


PR INI 


Mi' LOCK 'TS* 


430 


HONE 


VTAB 3: HTAB 2 


440 


PRINT 


i PRINT i HTAB 3: PRINT 
ultiu ';TS*i' n( (tuv 


430 


FOR J 


- 1 TO 2000: NEXT J 


440 


PHien 
HAN' 


: PRINT M|* RUN RUN- 


470 


REM 


AFFICHAGE DES SIONES 


480 


IF 7 


127 OR 2 ■ 42 OR 2 ■ 




34 OR 


■ 43 OR ? - 41 OR 2 - 




32 THEN 500 


490 


GOTO 


10 


SBO 


PRINT 


CHR* ai 


SOS 




ll IF H ■ 41 THEN H - 


MO 


:gtq 


IB 


:oc>c 


HOME 




ieii 


FOR 


- 1 TO 40 


1070 


VTAB 
235) 


1: HTAB 1: PRINT CHR* 


183C 


NEXT 




1041 


roft 


- 1 TO 40 


II8JS 


VTAB 
233) 


22: HTAB || PRINT CHR* 


1040 




I 


1043 


VTAB 


1: HTAB 1 


1070 


FOR 


■ 1 TO 21 


I0B8 


PRIN 


CHR* 1755) 


1090 


NGX1 


I 


HOC 


FOR 


- 1 TO 21 


; 1 10 


VTAB 


1: HTAB 40i PRINT CHR* 


1120 


NEXT 


j 


1130 


RETURN 


2000 


REM 


TABLEAU OEJA EX1STANT 


2010 


TA = 


VAL (TA*):TA - TA • 1 




TA4 » 


STR* (TA) 


2020 


OOTO 


415 < 



BANQUISE 



Remuez-vous le joystick, notre pingouin d'aujourd'hui a 
bien besoin d'etre rechauffe. 

Patrick ANGLADE 

Mode d'emplot : 

Une extension 3 Ko et un joystick son! necessaires pour ce jeu gla- 
cial Les regies son! incloses. 




1 P0KE36B79.23B P0KE3666S, 24^ PPIN 
T":i"SPC(222)"g_flITES '»l IT tUR" 

2 PRINT" B_E NflONETO" UHIT37151 
,255,62 PRINT":T'SPC<27 >"■"!.* -.I - -! 
*- _ "SPC<31> 

3 PRINT "COPVRIOHT( 1983) "SPC(.76rSTI 
~-<t-/\- "SPC<50) 

4 FORR"0TO3000 NEXT 

3 PRINT" -13NC0CTE . "ENSE .* -E 
flUSE - IESTE T*-"SPC<31>"~I.*NGLR 
DE.." 

6 FORP-9TO3990 NEXT 

7 PRINTSPC(74)"lxTN->.. " 
IB CLR: RESTORE 

28 P0KE52.28 PDKE3Z.26 

23 fl-7168 FORI-HTOH+511 -POKE I. PEEK 

M*25600) NEXT 

30 FOPI*BT031 

33 PEADF P0KEI*A,F NEXT 

36 RESTORE 

37 FORI*0TO31 REftEF NEXT EIMP(1B> 
3B F0RI*BT08 RERBF PdJ-F NEXT FOR 
I-9TQ14 PU>-P'I-9> NEXT FORI* 13T0 
10 PCD-23INEXT 

40 BAT«0. 0.0. 0,0- 0,0,0, 127, 193,253 

,233,253. 189, 1B9. 255 

50 BRTR6e,66, 126, 24, 126. 133, 36,36, 

127,193.233.233,233,189.137,233 

60 DRTR223. 231,236,239.239.236.239 

,239. 239 

60 P0KE36878.13 SO-36876 

90 N"B PPINT"rJTt" P0KE36879.111 POK 

£36869,240 

leB print" w ^ w ■"« n wm W 



1 I PRUVRE PENGO I - I EGRR 

E,VOUS DEVE2 I" 

170 PRINT" I POUSSER DES BLOCS I I 
DE GLACECOU LES I I CRSSEF 'P'j.jS 



19 PRINT" 



120 PRINT" I W S ■+ Si * ■ S ■ 

■ an 

130 PRINT" 9 1 97 I WW III 

X I m 

14B ■--:•■■ a ■ > ■ w- a ■ » ■ s 

I ■ ■ 
130 PRINT" W ^1 w r r n w ia 



200 RESTORE FORC*0TO40 RERDD NEXT 
210 FORZZ-0TO96 RERDF . ■ POKESO ■ F F 
DRR=8TDi>*6 ME'T NEXT POKESO, 
220 DRTR170,23.,,l70,25,167,23,19e 
60,187,20, 196,75., .198,23, .,198.2 
3-213.23.221,60 

230 DP.TP.21?.^ Zi\. ?-_,. 227, 50, ,.227 
,25,230,23,227,23,223,23.221.23,21 
7.23,221,50,, 

240 DRTR221 , 25, 223,23, 221 , 23, 217,2 
3,213.25.210,25.213,58,204,50,213, 
50. 204, 25, 213. 25 

238 DAT«221,73,217.50,221,23.223.2 
3. 225, 25. 227, 50.,. 227, 25, 230, 25. 22 
7,23.223,23 

260 DATA221.23.217,25,221,30,,,221 
.25.223,23,221,25.217,23,213,25,21 
0,23,204.25 

270 ERTR2i0,23,.,210,23,204,25,227 
■30, 223, 50. 221. 30, 217, 30, 213, 100,2 
17,30. .,217.23.221 
280 DRTfl25,213.23,221,23,217,58,,. 
217,23.227,25.223.23,221,23,217,25 
,221.30 

290 DRTfl213,23,221.23.213,23,221,2 
3,217,73,221,23,223.23,223.23,227, 
100 

300 DRTR230, 30, 213,30,210,50,230.5 
0,227,30.210,38,213.100 
400 PRINT":]" P0KE36879.216 P0KE368 
69,233 P0KE36879.15 
410 F0RA-8T0131 POKE7660*R,0 POKE3 
3408*A,0 NEXT 

420 FORP.-0TO153 PQKE8183-A.0 P0KE3 
9903-fi.O NEXT 
438 ■■ = :•<- wjicwnvmis- r rraa 



r •:■ 1 !■}.:« ?■"■ r r rrrrr r dan", 

440 PPINT"M(II1» RRfl KIR |Q 
!.'!']'- RPR R ■--■■■ R '■■.".» '.• I 



460 ppiHT-aenaajFiflH ca r rrrr rrio 
aaoaaaR r r ??«■■ . 

470 F0RR«7168T07175 POKER, 253 NEXT 

490 R-7933 C-30720 B*R SO-36976 Ml 

-7871 M2-7959 M3-7996 IFSTHENG0T09 

00 

493 TI*-"9990BB" 

300 P0KE«.32 P0KEB.2 PQKEB*C0 fl-B 

IFVRL<TI»>>400THEN1300 
310 GOSUB700 E"J0+22*J W2-22* J3 B 
*R+E IFJ4THEN2000 
511 IFE*0THEN510 
320 1FPE£K(BJ"0THENB*R G0T059B 
330 lFPEEK^B>;>?2THEN6 g8 

SCORE ";S PRINT"ttmPs 'iia 

L<TI«) 

390 GOTO300 

600 IFPEEK(8*EX>32flNDPEEK<BJ*lTHE 
NPQKEB.32 F0RR"13BT014BSTEP-1 POKE 
S0,P NEXT 

601 IFPEEKCB+E)C>32THENP0KES0.B B* 
R S-S*10 GOTO300 

603 !FPEEKCB*E>032P,NDPEEK<:B.>«3THE 

NB-fl GOTO300 

610 lFPEEK(B>-3THEH645 

615 D"0 

620 POKEB*D#E,32 POKESO, 242*B POKE 

B*B*E+E ■ 1 : POKE8+D-E+E+C. 6 

630 IFP£EK(B*D*E*2*E>O32THENP0KES 

0,8 GOTO500 

-;•!•) D-Ii'i OurofiO 

645 0*0 

630 P0KEB*B«E,32 POKESO, 242*D POKE 

B+B*E*E,3 POKEB*D*E*E*-C.l 

652 IFB*D«E-M1THENMI*B«-D*E'-E 

653 IFB*D*E=M2THENM2=B*fl*E*E 
634 IFB*D"E«rT3THENM3*B*B»E+E 

660 IFPEEK(B+D*E+2"t ■■■;:- -^'he-.- > L- 
0.0 G0T068B 



670 E=D*1 W.TOUZZ 
680 Q=(M1+M2+M3V3 

690 lFQ*MlTHENGI*RBSfM2-Ml.. IF0l = l 
OPQJ-22TNEN80O 

691 IFl>r12THENQi-fiBS'H2-f1!> IFQ1-1 
GRO1-22THEN80B 

692 IF0«n3THENt>l=RB«.'.l13-Ml,' IFQ1=1 
OPQ1*22THEN900 

695 GOTO300 

780 Pl-37151 P2-37152 ED-37154 

71B P0KEDD;i27 

720 P=PEEK'P2;RND128 

738 JO=-<P*0> 

740 P0KEDD.253 

73B P-PEEK(Pl) 

760 Jl*-' .'.PRNH8W1, 

770 12— (CPRNE16)-0. 

780 J3— <<PRND4;=0, 

785 M"-<(PRMi3;; ■-" 

790 RETURN 

B00 RRf-TIf 

801 FQPP.-0TO18 P0KE36879. 152 FORT- 

0TO75 NEXT P0KE36879.216 FO»T»0TO7 

5 NEXT 

805 POKESO, PfR.' NEXT POKESO. 

810 FORR"0TO14 1FPEEK'7B16+R)"3THE 

NB50 

820 IFPEEK(8014*R)«3THEN830 

B3B NEXT 

833 F0RR-BT09 IFPEEK/7816*Rt22 '-3T 

HEN830 

838 IFPEEKC7830*R«2)-3THEN830 

840 NEXT T=5000 G0T0869 



870 PRINT"»imMM8C0RE i"iB 

■> "■ UN I";PIGHT»'Rfl»,2»,"l S" 

880 FORR-0TO4000-NEKT 

890 FOPP=7168T07175 POKER-0 NEXT G 

OTO400 

90O FORR-0TO2 X"INT'PND<0)»12)»1 V 

■ INT?PND<0>*7>'-1 M'P,' = 7B39+X*22»Y 

-.J? IFM'P, = 7?-::THEII900 

909 NEXT 

911 IFrK8)«fKl)0W1< 1 )-n<2)ORN(0)afl 



•2'THEN900 

?13 P0KEni*C6 P0KEH2+C.6 P0KEI13*C 

,6 P0KEML.1 P0KEH2.1 P0K.EM3. 1 

915 nl»PI'0l M2-M']> I13-M<2< 

■^■:- f-ukeni -■■ P>>tn;..i pjk ehl- . 3 POK 

EM+CM : POKEM2+r.] i="jf E"i-C . I Til 

Rflf G0TO5B8 

1090 POKE36?69.240 P0KE36B79.8 Pf 

n r ■■ nBimmaiHii«»»iMr fiF -; ecoulE" 

pint'iecore final ".s 

100^ forr-0to2000 next 

1010 ifhksthenhi-s 

uj:u ^pint"t pokevc^"-::^ poi-e>:- 

869.255 

1030 FORR"BT02I POfE7680*R-3 POKES 

164+R.3 F0KErCS8*P*;2.? POKEr701+P 
•22,3 NEXT 
1040 PRINT"! 

rium 

RflflfiRRR" 

1030 PRINT"«BMl(MiaHIOHT SCOPE": 
PPlNT"mSDEPNIEP SCORE". S 
1055 FPlHT"««M*»iMMiMG-BB"-PPIM 
T-BSPIPKIIPE PO-JP .tOUtP" 
1060 GOSUB70O I FJ4THENP0KE 36875.6 
GOTO 1070 

1365 P0KE3f975.P'MM» MI1-lin-l IFm . 
0THENni1=18 
1067 FOPF=OTO10 FIE: T GOTO 1060 

1O70 PRINT "H" P0KE36W9.24* FORI-7 
168T07175 POKEI 6 ItEXT S=B G0TO8B 
^000 RRt-Tlr 
joie S';=itiT<s.'io.' s=s-ss 

2020 PRINT'T" 

PRINT"!^ 

2030 PRINT" «WMP»IJB?':OFE S" . S 
2040 FPIIIT"M1W»EN3 "MID^flfU.4. 
1 ■■"■ tlN X'RIGHTf flfl»-2.-"i S" 
^(,'0 m-F-P^oiu-tMOM 'it:-: 

,_:>;.% F0fF^rif-:31ij7ir= POiEP.O NEXT 

QOTO400 • 



PANIC CITY 



II serait facile d'abattre les insectes qui menacent votre 
fluide, s'il n'y avait ces foutues alertesa la bombe ( ?). 

Pascal SUBTIL 

Mode d'emploi : 

Necessile de I'exlension 16 Ko. Le premier programme doil etre 
execute, avant ta frappe et le chargemenl du programme principal. 
Les regies son; incluses. 




10 P0KE642.32 

;:0 P0KE36869 . 240 P0KE36866, PEEKf 38 

866)0P128 

30 POKE648.30 

31 POKE36866.130 

40 P0KE198.6 P0KE63176 POKE632,20 

7-P0KE633.13 

50 P0KE634,82 P0KE635 . 213 P0KE636, 



REM ».*»..•......*. 

1 REM * PRNIC CITV W 

2 REM • • 

3 REM »Pftfl SUBTIL P.*. 

4 REM * a CRPELLE R.« 

5 REM • * 

6 PEM » 1985 * 

7 REM • * 
9 REM • VIC-20*16KO < 

9 REM **«-••***•-*•*• 

10 P0KE32,23CLR 

11 rjIMHIC3.4),HI»(3.4),SH91J,TE(9 
1) 

12 OOSUB60BB GOSUB61BB : GOSUB6206 G 

D8US 18000 

13 POKE36876.0 F0RT=1T03 FQRP=1T04 
HI$(T.R>-"INCONNU" NEXTR.T 

15 DRTH129, 129, 129, 153,255, 153, 129 

,129,195,102,24,60.60,60.24,24 

17 OflTR0,9. 124, 124,68.68. 124, 124,1 

24 . 1 24 . 68 . 68 . 1 24 . 1 24 . 1 24 . 40 

19 DHTR48.80. 144.24,60. 126. 126-60. 

36.56.16.56.56.36.56.56 

21 DRTR24,60, 126. 219. 235.24. 36,66, 
0,8,0.233.136.235.36.255 

22 BRTR235. 136. 233, 36, 233. 0,8,0,24 
8, 136, 136,246, 24B. 136,136.248 

25 DRTftl26.66.66, 126.24,24. 126,66. 
B.23B. 136.232,40,238,9,0 

27 fjRTRe,23B, 178. 174,172,234,0,9,0 
,224,132,224,132.224,0,0 

28 ERTR6B,36,60.36.60.0,6036.60.3 
6 ■ 36, 0, 36, 52 , 44 . 36 . 36 , 8, 36 , 40 , 48 . 4 
0,36.8 

29 DRTR0. 175. 168.239. 163, 175.0.0 

30 ERTR0.0. 151,210.210. 178,178, 13! 
f, r.r_iii. ( pe.l25 OvS'.'B6380 

40 Fi=7956 C-7833 B=B KD-7752 I f 2 

)-7733 

SB K3>=775ei'4j*7761 1(31*7764 Z 

-0 SC*0 

60 F0RI*1T05 I(I>»I(IrNEXT H»9 

70 POKE690.12B 

108 FOPT-l*BTO:'*STEP-l P0KE36865T 
NEXT 
118 POKER, 



280 P-PEEK<197) 

210 lFP*29RNDPEEK<fl-l)O10FINDPEEKt 

fi-1 i«9TMENB*-l G0SUB7998 

220 IFP=37RNDPEEK(R+1)O10TMENB-1 

GOSUB7090 

230 I FP* 1 7HNDPEEK < fi-22 > <> 1 0RNDFOCT 

MENB=-22 GOSUB7000 

240 IFP*33RNDR<:e076THENB=22 G0SUB7 

250 F0RI-1TO3 

255 IFRND(l>':PPTHeN280 

256 I<I)*IOH22 

260 IFPEEKT !.)O32THEN9000 

265 IFK1O8164THEN9020 

270 POKEI'l'l POKEKD-22.32 

280 NEXT! 

320 IFZ-ORNBPND'l '■:.02THENGOSUB100 



330 IFPEEK' 788D-4THENZ-Z+.2 PffINT 

*HMnilir INT(Z> IFZ>20THEN 

G0SUB1299 GOTO8000 

340 IFR=7681RNDZ>8THENZ"0 SC"SC*5 

POK E 36876. 248 P0KE36876, PPINT"W 

350 PRINT"HIHI".SC 

36B GOTO20B 

1000 F0RT-7796T08936STEP22 : POKET , 2 

1005 P0KE36878.3 

1019 POKET*22,3 

1020 P0KE36B77, 160 

1039 IFT-7382THENPOKE7881-4 P0KE36 

878,15 P0KE36877, 235 

106B F0PF-1T099 NEXT 

1970 POKET, 32 

1075 PCXE36B78.15 

1088 NEXT 

1090 P0KE36877,9 

1109 Z*l P0KET.32 POKET*22,32 POKE 

R,0 



1205 FORT-1TO50 P0KE36865,37 POKES 

6865,39 P0KE36877, 149*T NEXT 

1219 P0KE36863.38 P0KE36977.9 RETU 

RN 

690B P0KE36879.8 PRINT"M" 

6010 PRINTSPC(6/. "PRNIC CITV" 

6020 PPINT"BWW 

6030 F0RT*1T03 PPINT'lliiilUS i>»p| 

" NEXT 
6040 PRINT"IH»Mia III III "PRINT 
"lllllllll " PRINT"IIIINII3I 

6030 F0PT-IT02 PPINT"IIIIIIIIJ IIPII 

" NEXT 
6060 PRINT"IDOWrjUEL0UES SECONDED S 



6090 RETURN 

6109 fi"7169F0RI-RT0R*511 POKEI-PE 

EK( 1*25690) NEXT 

6112 FORL-0TO151 : RERDF -POKER*L-F N 

EXT 

6120 F0RT-1T091 ■ PERDS REHDTE SKT I 

■S:TE<T)*TE NEXTT 

6123 F0RT»38T0188POKE36865,T NEXT 

6190 RETURN 

6209 PRINT":]" 

621B PRINT"HTTRRPPEZ LES INSECTES" 

6220 PR!NT"l»DESRMORCEZ LR BOMBEB 

623B PP1NT"10)I'R' POUR MONTER" 

6240 PPINT'WZ- POUR DESCENDRE " 

6250 PRINT"**!- - ,' POUR Lfl GRUCHE" 

626B PRINT" W,' POUR Lfl DROITE" 

6270 PRINT"O0eyS«4CTI0NNE2 H'kSHIF 

T * Fl"' 

6280 FORT=1B0TO38STEP-1 P0KE36665. 

T NEXT 

6298 GETfl* P0KE36878. 15 

6390 POKE36876,209 P0KE36877. 130 F 

OPT- 1T03B- NEXT ■ P0KE36^7f PO>EJ.. : : 

77,0 

6310 IFfl*<:>"II"THEN6290 

6320 RETURN 

6500 PRINT"^»WLM D 0" -HI 

(1,N1) 

6510 PPINT":i 

6320 PRINT" 

6530 PRINT"P"N 

6540 PRINT" 

6550 PRINT'HHI 

6555 PRINT" I 

6557 PRINT'N 1 

6560 PRINT"0 I 

6564 PRINT'T I 

6563 PRINT" I 

6566 PRINT" 1 

6370 PRINT" I" 

6580 PPINT"GGI" 

6590 PRINT") 



6719 DRTR291, 200. 201. 200, 193.200.1 
87.209, 195,600, 187, 109, 195, 100 

6720 DftTft201,290,209,200,209,200,2 
13.200 

6725 BRTA209, 200, 201. 200. 187, 200.1 



97, 100, 195, 100,201 . 200. 201 . 2BB, 195 



^.m K.I-T-. .■;'..: .-- '■.:>.:: ;•■': ■ lit r 
PC*-E V-SS9,255 
9100 GOSUB65O0 GOTO40 
:-i»:' IFl':l.' = RTHENPOKEP.n,0 pokek 
D-22. 32 K I )-Jf 1 1 SC*SC + 1 G0TO9O3 



JF 



.■ol.m;.i..iv:-,v:^oooooo 

PRINT"rll E E E E E" 

6605 P0KE36869.255 P0KE36S78. 15 

6606 F0PT-7701T0B185?TEP^2 POtET.l 
9 NEXT 

6610 RETURN 

6650 PEM »*•*♦**♦♦♦*♦ 

6660 PEM * * 

6670 PEM •O'SUSfiNNHH* 

6660 REM • I 

6690 PEM •**•«->•**** 

6700 DRTR187, 100,195,100.261.200.1 

09.200,299.200,215.200 

6705 ERTR209, 280 . 201 , 20S . 1 87 . 200 . 1 

97,188,193, 100 



1.193,: 
6730 DRTR187.60B, 1B7, 100, 195, 109,2 

01 .200. 203. 200. 299. 280.213.208 
6735 DRTR209. 200, 201. 200. 187.280, 1 
97.200,195,100 

6740 DflTR2ei.20B.201.208, 195.280, 1 

87 . 2BB , 1 95 , 600 , 1 87 , 1 08 . 1 95 , 1 80 

6745 DRTR201,200.209.200,209.200,2 

15,280 

6730 BRTR209, 200. 201, 200,187, 208, I 

87, 100,195,100 

6753 DATR20!,290,291.299,195.200,l 

95.200,187.880,203.408.263.408 

6760 DRTR213.200.213, 400, 215, 280.2 

09,200.209.200.201.200, 1B7, 200 

6765 DATR195, 600. 187, 109. 195, IBB. 2 

01. 290.209. 200.239. 200. 213. 209 
6778 DRTR209, 200, 281.280,167,200.1 
*:. 106,195,109 

6773 DRTR201. 200, 201. 200. 195, 200,1 

93,200,167,830, 187,208 

7800 POKER, 32 R-R*B 

7010 F0RI-1T05 IFIU'-ATHENPOKEia 

) . K I >*J( I) SC-SC-M P0KE36976, 23 

?. F.>E;--376.9 

7022 POKEA.0 

7B25 NEXT I 

7939 RETURN 

8330 F0RT=38T019e P0KE36865.T NEXT 

8001 P0KE36869,248 

8018 PRINTS" 

9011 FOPT*180TO38STEP-I P0KE36863. 

T NEXT 

8812 F0RI = 1T05 IFSOHK I ,NI >THEN80 

17 

8013 NEXTI GOTO6033 

3317 INPIJT"VOTRE NOM"NO* 

6318 PR1NT"3W 

6320 F0PJ-5T0I + 1STEP-1 HUj.NP-HI 

O-l.NI) 

8022 HI*' J,NI/*H1*U-1.NI- 

BB23 NEXTJ 

i0L'7 H1*'I.NI.'=N0* 

8028 HKI.NI>=SC 

9B38 PPINT"IIIIIIIMVEflLi -.".NI PR 

INT 

'JO-1 F0PT-1T05 

■^v: PPINTTRB'4. T " " ..LEFT* CHI*(T 

.NI '.8> PRINT"T.TABa7».HI'T,NI) 

PRINT 

8033 NEXT 

3035 OOiUE 10O7O P0iE?6S7i..J 



> *3THENN=N* t IFN=3 
'-22.32 



9015 IFPEEK- 1(1' 

THEN8089 

:<* : t pi> ehi), 

9020 POKEICI ',32 POKE I CI }• 

I)*J<n 

-U:0 PC'IE.<6':7t.2?,: p-jfEJ6876,0-OOT 

10033 F0PT-38TO180 P0K;E36665.T HEX 



10030 PRINT ".0««l.fl K'MBE EST II SHI 

10040 FRINT"m«T/OUS ETES II'"* 

10850 PRINT" UMLFI BOMBE EXPLOSE ftP 

RES 20 SECONDES" 

10060 PRINT ll m» , ROTEOEZ LES FLUIDE 

S E u 

10065 F0RT-1BBT038STEP-1 P0KE36B65 

.T-NEXT 



10070 PRINT 
10080 PRINT 
PRINT 




10115 F0RT-1T091 PQKE368?! 

18120' '.■!■ Mi 

10130 IFAf="ll"THENFP=.5 N 



IVANT LE NIVEA 
lONNEPk !FI 



SIC 



5 Nl=4 PETl.ip 

10149 IFA*-"II"THENPP=.6 Nl = 3 RETUP 

19153 IFR**"B"THENPP*.7 Nil RETUR 

10160 1FR*-"»"THENPP=.8 MI"1 RETUR 

10170 FORP'IIOTE'T^ NEXT P0KE3687C 

,8 F0PP=1T05 HEXTR 

10190 NEXTT 

13195 FOPT=1TO23B0 NEXT 

10200 00T013115 • 



?5 



SCHMURBLURP 



Visez juste el bien, les vaisseaux qui ont I'outrecui- 
dance de vous gacher le paysage. 

Laurent KRIEGEL 

Mode d'emploi : 

Tapez el sauvegardez a !a suite ces 2 programmes. Chargez et 
lancez de meme (n'oubliez pas darreter voire K7). Ce jeu tourne 
sur version de base et le joystick est indispensable. 




1 s-En«*»»«*««»««**»HM 

2 REM— SCHMURBLURP--- 

3 *■£«•••!••*•••«****•« 

4 PEM-lRUPENT PRIECEL- 

5 REM— LE 17X95/1965— 

6 PEM»« ♦*«*»»•** ***»*• 

7 REM— CAPRCTERES 

B ~.i: • •■•**••* 

3 iosuBiae 

10 PRINT":!' POKE53.0 P0KE54.28 :POK 

E55.0 P0KE56.26 CLR 

20 P0KE36869 . 255 G-7168 FORI-GTOG+ 

512 POKE I. NEXT 

30 F0PI-G+384T0G+463 POKE I ■ PEEK' I* 

;, 2 76*-:}-.' NE" 

50 FOPI-0TO6 : F0RH-8T07 RERBB : POKEG 

+8«1*A,B NEXT NEXT 

60 DRTR... 16, 8. 4,1,2 8.16.32,12 

9,64.2,1 .4,9. 16. , ■ .64.128.32,16-8, 



130 PPiNT"&PRCE H VfJTRE CRNGN , CO 

NT VOUS V0VE2 LE COLLIMRTEUR. 

SI VOUS HE"; 

140 PRINT"BOUGEZ PRS.VOUS *. 

XPLOSEZ.flU 3E TABLEAU", 

130 PPINT'TES SCHMURBLURPS VOUS TI 

RENT DE8SUS (EXPLOSIONS MC 

IRES)." 

168 PRINT PRINT PRINT"i FPRPPE2 U 

NE TOUCHE" 

178 GETR* IFR»"""THEN1?8 

180 RETURN 

280 P0KE36869249 POKE36879, BPPIN 

T'SWHTES SHIFT/PUNSTOP" NEW 

READS', 



91 REM REGLES 

92 REM DU JEU 

93 PEMM****»»*»***** 

WECMIJRBLURPH] 



30 POKE36I37* 2:2 F^E37131,0PR«3? 
151 PB-37152 PB-37154 C-7747 PRINT 
"T 00-38720 MU- 100 
90 P0KE36869,235 POKEC0 PQKEC+1 , 1 
PQKEC+22,2 POKEC+23,3 P0KE36878, 1 
3 
M PPINT"«M SCORE TRBLEflUMUN 



RIN - 



PR IK 



PERDU DANS Lfl GALRXIE V 
CHMURBLUPP . VOUS N'RVEZ RIEN 

DE MIEUX BFA1RE "i 

120 PRINT"QUE D'ELIMINER LES 5CHM 
UPBLiJRPS QUI VOUS BOUCHENT Lfl VUE 






97 30-230 T-l FOPOB-1TO10 GJ-INKR 

NDM >*440; + 7746 P0I-EOJ.4 

100 fl=PEEK'Pfl' P0KERB.127 B-PEEK'P 

9) POKERS. 255 

155 G0TG289 

110 POKEC, 32 PGKEC+1.32 POKE L +22, 3 



0121 

117 TE-0 

128 IFA-122THENC-C-22 SO-SO+1 IFC< 

■ '46THeMC*+2a 30-S0-I 

138 IFR-118THENC-C+22 SO-SO-1 IFCJ 

&162THENC*C-22 SO-SO+l 

140 1FR-110THENC-C-1 IF(C-7679>/22 

= INT< •C-7679V22)THENC=C+1 

150 1FB-H9THENC-C+1 IFCC-7701>/22 

-INT<(C-7701)/22)THENC-C-1 

155 IFDC=C0RDC-C+10RDC-C+220RDC-C+ 

23THEN690 

160 P0KEOCQ.6 P0KEC*C0*1.6 POKEC* 

CO+22.6 P0K£C*C0*23,6 

170 POKEC0 PQKEC+1, I POKEC+22.2 P 

QKEC*23,3 

198 IFH-94THEN388 

183 IFTE-28THEN609 

198 POKE36876.SOPOKE36876.0 G0T01 

88 

280 P0KE0J.32 J-INT(RNDU )»3)-l K- 

INTCRNDC I )«L)-1 : IFT»1THEN0>QJ+2Z 

205 OJ-0J+J+K»22 Cl=PEEK(OJ' 

218 IF0JC7746THEN0J-7746 

220 [FOJ>ei95THEN0J-B185 

230 P0KE0J.4 POKEOJ+C0.7 

240 1FTC3THENU0 

250 P0KEDC32 JI = INKPND< 1 ■*3>-l K 

1-INT<PND<1)«3)-1 

260 DC-DC +J1*K 1*22 

270 IFDCC7746THENDC-7746 

,-.-: >!■■ 3ie5THENDC-9185 

298 P0KEDC6 POKEDC+CO.B GOTO110 

300 MU-MU-1 PRINT"«Oa 



3 P0KE36879.299 F0POB-1TQ19 -G0T018 

":MU IFMU-0THEN400 
310 F0RV-1T019 PQKE36877.200 FGRX= 
1TD28 NEXT POKE36877.0 F0RX-1T015 
NEXT ! NEXT 
320 IFQ-0ORO-lORg-2ORQ"3THENSnS*50 

PRINT'W.S GOTO330 
325 GOTO 163 

330 F0RX-238T023OSTEP-2 P0KE36877, 
X FOPV-1TQ108 NEXT NEXT P0KE36877, 
B 

335 P0KE36677. 228 F0RX-1T049 NEXT 
PQKE36877.0 

348 P0KEQJ.6 POKEOJ+CO. 2 P0KE3687? 
,200 FORX-1TO1500 NEXT P0KE36877.8 
330 POKE0J.32 0J-1NTCRNDU >*440>+? 
746 

390 NEXT06 

392 ONTG0TO58e.519.328 
408 P0KE36879,6 

485 PRINT"«B«WfflaM« VOUS ETES R CO 
UPT DE 

MUNITIONS." 
110 PRINT. PRINT"* VOUS HVEZ FRILL 



:tu:c- 



•■_-■: ■■■ 



018 G 



I A 



VOT 



1ISSI0N. 

428 R0KE36878.15 FORI=288T0192STEP 
-2-P0KE36675.I FORA-1TO500 NEXT NE 
XT FQRR-1TO300 NEXT 
438 POKE36875.0 PRINT"^»/OULEZ VOU 
S REJOIJER - ! 1 " 

440 OETfi* 1FR*-" , 'THEN448 
430 IFH*-"O"TH£NPUN80 
468 IFB*-"N"THENEND 
478 G0T0448 
588 T-! PRINT' 



5^0 P0KE3C879.8 PRINT''NMMIIH/OU 

S RVE2 PEUSSI VOTRE" 

530 PRINT"a MISSION. 

VOUS MGNTEZ E 
N GRRDE. " 
548 F0RI-158T0238 P0KE36876-I NEXT 

POKE36876.0 FOPI-230TO130STEP-1 
uKE^;7-;., I NEXT 
558 POKE36876.0 
568 FORI=l40TO15eSTEP3 POt E36876. I 

FOPX-1TO500 NEXT P0KE3687-; 9 
570 NEXT FORX-1TO200 NEXT 
380 OOTO430 

600 FORL-1T05 POKEC'CO. 2 ■POKEC+CO+ 
1 2 POKEC>C0+22,2 POKEC*C0"23 . 2 
610 F0RM>185T0233STEP2 P0KE36876.M 

FORN-ITO10 NEXT NEXT P0KE36e76,g 
620 POKEC+CO, 6 i P0KEC*C0*1 , 6 POKEC* 
C0*22.6P0KEC*CO+23.6 
S3? FORM=1TO108NEXT NEXT 
648 P0KEC+CO.2 POKEC*C0+l,2 POT.EC+ 
00*22.2 P0KEC+C0*23,2 
658 POKEC. 6 POKEC+1.6 -POKEC+22.6 P 
0KEC*23.6 

660 POKE3687720O FOPI-1 TOISSS HEX 
t P!>E3-:8?7 < : f.-jp:-:=it;.;.>?.:i next po 
KE36979.9 G0T0430 




SOS TGV 



Vous disposez d'un helicoptere et de 15 minutes, pour 
reconslruire un pont avant I'arrivee du TGV. Parvien- 
drez-vous a eviter la catastrophe ?.. 

Pierre Henri BERSANI 

Mode d'emploi: 

Necessite un joystick et une extension 3 Ko. Ce jeu comporte 3 
tableaux que vous passez en dirigeant voire helicoptdre vers le coin 
superieur (droite ou gauche selon le cas). Le premier tableau 
comporte le pont et un canon ennemi. Le second represente un 
immeuble. dans lequel un homme lente d'atteindre un tableau de 
commande ( s il y parvient. vous eles cuit). Le troisieme comporte 
un second canon, des reserves de poutrelles et un reservoir de fuel 
pour vous reapprovisionner 








1 REM 

2 PEM 

3 PEM VIC-20 + 3K0 

4 REM P.M. BEPSRNI 

5 REM -.«..»»..*«.»* 
9 POKES 1,8 P0KE33-8 

18 P0KE32->9-P0KE36,29 CLR POKE 368 
-■y.i^Z Pi>E3687?.14 F0RI«7424Tri767 
9 POKE 1. 9 NEXT 

15 F0RI-8T095 RERDR P0KEI+7432.F N 
EXT P0KE7^i4 -;; pijKE7?42. i c .4 P0> E7 
54.i.l2e.P0KE36878,15 
28 DflTRl.7,141.233,159,7,2,15,192, 
248, 132, 194, 234. 252, 17, 254,?. 31. 33 
67,127,63,136.127 

21 I'RTR129,224, 177, 191,249.224,64, 
240,0. 12,254.255,30.12. 12. 63. 0.48- 
127,235- 128. 48, 48 

22 DRTR232, 12. 12,28,47.44, 14, 18,27 
,12,12.14,61,13,28 18,54.255,255.2 
55,233,253,235,255 

23 TJRTR255.1,3,7,13.31,63.127,255, 
126,192,224,240,248,232,254.255,0. 
48,48,11.7,31.31,31 

30 POKE75S6,127 P0KE7551,! P0KE755 
8,252 FOP110TO93 RERDfl P0KE1+7369, 
fl NEXT 

35 BRTR0,3,0,31,63, 127,255. 120,0,2 
55,235,192,128,0,255,63,0,255,255. 
3 tl -f J55.255 

36 DRTR9, 239. 239, 8, 0,0, 239- 131. 0,1 
92,0,248.252,254,233,30,8,235,255. 
i.l-* 255.252 

38 DRTR8, 6. 8. 8. 8, 0.9, 0.64, 64, 32, 32 
■32. 16. 16, 16. 9. 9, 9, 6, 6, 0.0, 0. 32, 32 
.64.64,64,128. 128 

39 DflTR128,e.0.0.0.128.126. 128,64, 
8,0,9,0,16,16, 16. 32 

30 PRINT-rW* r. a ^ -r/s!.<a 



51 00SUB5S PPINT"Bfl UN PONT FEPPOV 
IRIPE V1ENT DE S'EFFONBREP " 
32 PPINT"B JFEPFtREZ-LE RVflNT EKE 
LE TRRIN ARRIVE" : G0SUB55 

53 PPINT-SBWJTILISE Z LES TOUCHE - 

JOUEP" 00T08BS 

54 POK.Elsa.O HfilT 138-1 GOT060 

55 PP!NT"«1 1234334J34334JJ4365*' 
PETUPN 

60 FOPI-0TO43 RERDfl POKEI*850,R IIE 
XT 

65 DRTR248 ■ 248 , E49< 32 . k2% ■ 228. 22*. 
228. 228,226,225!, 223.228.228-228.21 
8-228 22*. 32-248.248 

66 DRTR24S 32 . 32 , 32 . 286 , 295 - 206 . 20 
5 2« . 203 ■ 206. 205 • 196 ■ 285 • 206 ■ 285 , 



^■• : . 235- 206. 205, 32 
67 DRTR32,32 

100 CLR F&R1-0TO43 POKE830+I,32 NE 
XT N-17 GOSUB600 K-7976 L-39-M-1 
110 0-7694 ■ fl=7875 POKER, 35 POKER* 1 
36 TI(-"000000- D-33 T-l H-7881 
128 C=0 E-PEEK'283.' POKE 36876, IF 
WC-0THEN750 

122 IFPEEK'R-22j-32THENIFPEEKi-R-21 
''-32THENP0KEP.-22 . D+12 POKEfl-21 , IHl 
3 

124 IFE-33TMENIFT-2TMENIFD-33THEN1 
S0 

125 IFE«43THENIFPEEK< R*2K37THEN1F 
PEEK'fl-20J<37THENG"l D-33 

126 IFE-44TMEN1FPEEK<H-1 K37THEN1F 
PEEK'fl-23.-37THENG— 1 D-35 

127 I FE-52THEN I FPEEK C R-44 > <3?THEN I 
FPEEK<H-43K37THENG— 22 

128 IFE-29THEN1FPEEK'R*22*22IHNT(S 
OR'.F> >K37THEN1 FPEEK (fi* 23+22* INT <S 
op<:f;>jk37theng-22 

129 IFE-26THEN160 

130 ONTGOSUB200 . 308 , 400 P0KE36677 . 

e 

133 IFVRL(TI»>J1500THEN500 

135 IFR-7810RNDO-1RNDTC3THENT-T+1 
fl-7790 : S-S+5 0NTG0SUB688. 6 18 , 628 

136 IFR-7791RND0— IWNDOlTHENT-T-1 
S-S+5 fl-7618 0NTG0SUB688, 618. 628 

139 1FPEEK<R-22)':49THENIFPEEK':r-21 
.'<49THENP0KER-22.32 POKER-21,32 

140 ONTOOSUB200,300,400 P0KE36877. 

e 

143 PPINT"««TIME "MlD*<TIf,3,2i'- 

"RI0HT«<TIi>2>" (UP ma 

PRINTTRB(13)S 

147 M-U-.05 P0KE7729+W, 32 IFR-7992 
THENIFT-3THENW-17 S«S+10 P0KE36676 
, 243 GO5UB903 

148 IFE-64THEN128 

150 POKER. 32 P0KER+1.32 IFFO0THEN 
P0hER + 2>. ?<; pfJkER+23.32 
155 R-R+G POKER, D POKEfl+lD+1 IFF» 
i thenpui- Efl*i2 - ;•=.;■ - ;■ £"*:.;- . ;.■:■; 

1':- IFF =,_iHLr,-.3> E-* .:, ,(•- •■ <n — ?r 
.295 

159 00T0128 

160 IFF-0THENF--fPEEK'R+22/«225>-2 
• 'PEEK':R+22'-206' B=B+'F=2,*fT-3. 
G0T0169 

165 IFF«!ANDPEEK'fi+44K;.32THENF*0 
P0KEfl+22.22« P'j-ER+23.228 

166 1FF=2RNDPEEK'R+44K.32THENF=C 
S-S+50 

1€=- P0KE;:6876.1?r.i FOP]=0TO539 NEXT 
GOTO 1 20 
169 C-C + <F-1 ■*! T=J< G0T016S 



180 I-fl+2 J=0POKE36876,240 P0KE36 

877,240 

185 POKE 1. 198 I-I + l.J-J+1 IFPEEK1I 

5>127OPJ>12THEN190 

166 IF1-KTHENP0KE36679.9 P0KEK.32 

K-7973-L-39 M-l S-S+108 G0T0199 

189 G0T0183 

190 FORJ-R+2T0I-1 P0KEJ.32 NEXT PO 
KE36879, 14 GOTO120 

209 1FH»7399THENP0KE7868.238 POKEH 
.32 M-7668 POKE36877.209 

205 POKEH, 32 H-H+l IFPEEK'H)>32RND 
PEEK(H,-.37THEN780 

210 POKEH, 196 RETURN 

300 H-N+l IFNC4THENPETURN 

305 P0KE36876, 160 N=0 IFK=8161THEN 

PQKE36876, POKE7520 , P0KE7521 . O 

G0TO329 

310 P0KEK.32 K-K+M IFPEEK<K-22 '<22 

7THENM--M K-K+44:L-L-M 

315 POKEK.L POKE36876.0 PETUPN 

■"".../ : P'."l- "■,■ ■ -■■:• ■ 
24.63 GCTO790 
400 1F0-7879THENP0KE7894.230 POKEO 

?2 = ?:V?-J POKE 56877. 200 
483 POKEO .32 0-0-1 IFPEEM 0':>32RND 
PEEKXO-37THEN780 
410 P0K:E0,196 RETURN 
450 P0KE3S876.220 FOR1-OTO30O HEX! 

P0IE36'37-:,i^ei FOPI-0TO490 
455 NEXT P0KE36876.220 FOPI-8TO608 

NEXT P0K.E36876, P0KE36877 . 1 30 
460 RI=" m 234334334334334365 "FOR 
I-OT022 POKE781.15 P0t:E782,23-l PO 
fET:33-'0 SVS65520 
465 PPINTLEFTI'flJ.I i C0iUB533 IIE :T 

PQKE36877.0 FORI-OTO100O HEX! POl 
E36677,248 

470 FOP1-0TO1O P0KE36864.1B 00SUB5 
98 P0KE36S64.14 C-0SUB398 P0KE36864 
. 12 G0SUB593 

47-5 r.,;>suE5?s NEXT POKE36877.0 
488 FORI-0TO13 F0RJ-3B35T08143STEP 
22 POKEJ* 1+30720 ■ 4 POKE J+I , PEITK ' J* 
1-22,. POKEJ+I-22.32 
485 P0KE3S676 220-l»2 NEXT NEXT PO 
KE36S76.9 FORI -8T047PriKEr569+ 1-0 
G0SUB598 NEXT 

490 PRiNT"«wwoii«n ii TRB'6' , '9 ,■; -> 

'.'- flf-"GRMEOVR" FOfi'l=0TO6 FOPJ-OT 

07 

493 P0KE7624+8»I+J.PEEM 32256+ J+8« 

flSC'MIO«'.R*,I + l.UJ> NEXT NEXT 

496 F0PI-7679TQ7623STEP-1 POKEI.PE 

EK(I:>DRPEEK'I-1) NEXT 

499 pqkei?S.-3 UBIT 198,1 RUN 

500 IFT-1THEN335 
50I' 1FR17812THEN328 



503 P0KEP.32 POKER+1,32 IFFO0THEN 
POKEfl+22,32 POKER+23,32 
310 R-R-22 POKER, 35 POKER+1 , 36 : POK 
ER-22,47P0KEfl-21,49 
513 0OSUB599 OOTO580 
520 F0RI-AT07799STEP-1 POKEI+2,32: 
POKEl-20,32 IFFO9THENP0KEH-24,32 
POKE I +23, 32 

523 P0KEI.33 POKE 1 + 1,36 POKEI-22,4 
7 POKE I -2 1 , 48 G0SUB399 NEXT 
330 IFT>1THENT-T-IR"7818 ONTGOSUB 
690.610,620 IFO1THEN500 
333 F0RI-RTO7876STEP22 POKEI-22,32 
P0KEI-21,32P0KEI+22,35 POKEI+23, 
36 

540 P0KEI.4? P0KE1+1.43 B0SUB59S 
OSUB399:NEXT 

545 F0PI-8T043 IFPEEK<7988+I>=PEEK 
'880+1 JTHENNEXT GQT0549 

546 GOTO430 

549 PCiK.E36Sr6.2i-0 FOP I =0TO380 ' NEXT 
P0KE36876, 1 90 FORI -0TO408 

550 NEXT P0KE36676, 229 FOR 1 "0TO680 
NEXT ■POKE36376,0 P0KE36877, 138 

555 fl*«" 11234334 334334334365 "FOP 
I-8T023 P0KE781 . 15 POKE 782, 23-1 -PC 
kE78.3-0 SVS65328 

560 PPINTLEFT»'R«,I> G0SUB399 NEXT 
FORI-19TO0STEP-1 PRINT'"n"PIGHTf' 

r*,i; 

565 POKE8809+1 ■ PEEKi 981+1 ) POKE 367 

30+1,1 G0SUB599 NEXT POKE36877,0 

570 PPINT"<««I<»BB"TRB<8)" ■-;(=>'>"■ 

HI-"BPRV0"+CHP»'97> FOR1-0TO5 FORJ 

-0TO7 

575 P0KE7632'8*I+J.PEEKt32256+J+8« 

RSC(MID*<fl»,l+l.l>>J NEXT NEXT 

388 FORP-0TO5 F0PI-7632T07679 POKE 

I,PEEK(I>*2 NEXT G0SUB599 F0R1-763 

2T07679 

585 P0KE1, PEEK U J/2 NEXT G0SUB599 

NEXT R*-"RGKGO" F0RI-1T05 

590 PQKE36876,137*«C<MD»<fl»,m> 

,0 

'/3'; PLKE133 --• i*ITi9fe.i Run 
398 FOPJ-OT020 NEXT RETURN 

593 FORJ-BTO80 next petuPN 

68B PRlNT-r^lWMOaroWB WI1«>..^",Tm 

6<19>"*>)>)>- FOPI-0TO2 PPIHT"IH|-. 

'III!" NEXT 

->M FijPI=Oiri,,:-. P'ji E'??-M FEE! ■ ■■fi 

♦I) NEXT 

602 PPINT"fl qilllll «B...iSH~ 

I" FORI-0TO3 PRINT" 
>" NEXT 

603 PR IN' 



■■.:■:■ :>-.'.= :i-tNH.iFI=.iT'j4-' P0KE338+I, 
PEEh • 75?S*I' NEXT 

I" FORI=0Tb4:PRlNTTRE<3'"MHBI 
1" NEXT 

Hi- PoiEr374.22? F'uke;^:^,; pokes 

162,44 P0KES163.41 POKEK.L ■:.■.:'.:--■■:■ 
RETURN 

'II II 
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Si:* 



«INT"I 



IFUEL J 1 



["IIS IS- 



2STEP22 FORJ-0TO2 

630 P0K.E38636+I+J.7 NEXT POKEI + : 

6-231 POKEI+7917,214 P0KE1+791S 

9 NEXT P0KE7917.41 

635 P0KE7835.37 F0RI-0T09-E POKES] 

54-22*1 .206 POI E8 155- 22+ 1. 205 NEXT 

F0RI-9T09-C 
640 P0KE8131-22*I,228 P0KE8152-22* 
1,228 NEXT G0SUB999 RETURN 
790 POKE36877.230FORI-0TO31 P0KE7 
432*1, PEEK(7432+1>RNDB5 P0KE7528+I 
-PEEK(7529+I>flND85 
703 NEXT 0OSUB599 F0PI-9T031 P0KE7 
432+1 , 9 P0KE7528+I ,0 NEXT P0KE3687 
7.0 OOTO490 

750 PPINT'■««aMlalll"TflB<9> ,, ,<-J 
»- ,, FUEL"+CHP»':97) FORI-0TO4 FORJ=0 
T07 

735 P0KE7632+e»I»J,PEEK(32256+J+S+ 
FISC<MID«<R*, 1 + 1,1))) NEXT:NEXT 
760 F0PI-7632T07675 POKEI . PEEK* I -0 
PPEEK' : -»2 NEXT RjRI-0TQ2OO0-HEXT 
GOTO700 
908 fii»"#FLFHF9CHCLC«FLFHFIK7R B9B 

FTFOFLCOCTC FTFOFLCFRHBLB" 
810 F0R0-IT0523TEP2 h= N5-RSCMID* 
<R*,0,lJ.' B-flSC<MIDKfl», &+!,!)> " 

POKE198,0FORP=OTOB 
815 GOSUB930 NEXT IFPEEK' 198 <". OTH 
EN60 

820 NEXT G0T0888 
830 P0KE36873.R FOP1=OTO30 NEXT PO 
KE':6375 8 FijPI.&TOlT. NEXT RETURN 
:-ii' -'jPI = 0TiJ2i Pi:„E516J*I.41 FOhE!' 
3384.1 5 NEXT 

901 PRINT"M«TIHE "MIDJ'TII. 3.2J" 
■'PIGHTt'TI*.2)" IUP mm 
PPINTTflB-:i3^S 
302 PPIIIT"«rl -■ 



subsbb return 



BIDOUILLE-GRENOUILLE 



C'est la galere, la J'ai pas du 
loul envie d'ecrire un bidouille 
grenouille. Est-ce parce que 
c'est lete. la chaieur. je ne sais 
pas, mais le resultat esl la . j'ai 

Des lois. je me prends a refle- 
chir. Qu est-ce que | aurais fail si 
je n'a vais pas ete grenouilleur ? 
J aurais bien aime elre decolleur 
d'afftohes. C'esl un Iruc formida- 
ble J'ai vu ca aux demieres 
elections : les types ont une es- 
pece de lance qui ciache de la 
vapeur d'eau, done a haute tem- 
perature, lis passenl ca sut les 
affiches. et hop, elles se decol- 
lenl toutes seules. Apres, il n'y a 
plus qua ramassei les mor- 
ceaux. c'est tout mou. super 
agreabie Au lieu de ca. je... ah, 
c'esl le moment d'inserer une 
vraie biclouille. 

Sur One Atmos, pour slopper la 
pi u pan des programmes (et no- 
tamment Tyrann). il laut mettre 
en # 400: 
PHA 

LOA # S BO 
STAS IB 
LDA # $ CC 
STAS1C 
PLA 

JMP S EE22 

Puis, laire DOKE # 245. # 400 
et charger le programme. Une 
'ois. qu il est charge, (aire 
Control-C. C'est Devalland qui 
ma envoye ca. Merct msieur 
Je ne sais pas si vous avez re- 
marque, mais aujourd'hui. il n'y 
a pas de pretexle D'habrtude, |o 
raconte une histoire dans la- 
quelle je glisse les bidouiiies, 
mais j'ai pas la peche. 
Tiens, je vais vous raconter ce 
qui se passe en ce moment 

Carah est a ma gauche, il des- 
sine ie sais pas quoi, il aime 
pas qu'on regarde par-dessus 

son epaule Oh passe la joumee 
a ne pas regarder ce que fait 
lautre. c'esl ires dur. J'ai oublie 
de vous dire que... 
Stop I Bidouille ! 

Sur TO7-70. le fichier binaire de 
PV 2000 petit etre recopie par 
SAVEM "PV2000". 48895. 
49073. 48895. Pour Business 
Plus et Club de Fool, il faut faire 
EXEC 1216 et STOP immedia- 
temenl, et supprimer le POKE 
H61A2.255, car ce POKE repro- 
tege le programme. Et c'est 
signe ! Maniac soft. 
...que j'ai un mur en lace de 
moi, sur lequel est scotche une 
lisle de joumaux de micro-intor- 
matique frangjiis avec leurs chif- 
tres de ventes. Ca me rassure. 
Je suis face a mon traitement 
de textes. imprimanle a ma gau- 
che. 

Sheriff (le coursier. vous le 
connaissez deja) vient de se- 
couer negligemment sa dope 
dans ma pou belle. Decidemenl, 
il passe sa joumee a giander. 
Bon plan, coursier Tiens. ca 
aussi. c'esl un true que jaime- 
rais bien faire. Surtout quand je 
vois comment il se demerde 
pour ne rien foutre, Une petite 
bidouille. histoire de dire qu'on 
est pas venus pour nen... 
Pour Onc-t et Atmos. pour avoir 
des vies illimitees dans les six 
jeux ci-dessous. il suffit de (aire : 
The Ultra : POKE # 6B4.2S5 
Hopper : POKE # 794.255 
Centipede POKE # 12BA.255 
Ghost Gobbler : POKE * 
16EE.10 : POKE 10.127 
Styx : DOKE # 5BDF. # EAEA 
Fire Flash : DOKE # 48C8. * 
EAEA 

Tens, a titre personnel, i'ajoute 
que sur Centipede si on fait 
POKE # 800, 254. on nest plus 
embete par I'araignee. Je conti- 
nue. 

Sur Tyrann, pour acceder a la 
protondeur que Ton veut. il suffit 
apres avoir charge to scenario 
de taper POKE # AOOO.x oil x 
represente le niveau de i a 10. 
puis taper CLOAD "" el charger 
le jeu comme d'habilude. 
C'etaient les bons conseils de 
Richard Gervasoni. 
Ou en eiais-je ? A mon bureau. 
oui. Ben. c'esl tout, Voyons ce 
qu'il y a autour. 

A ma droite, il y a un autre bu- 
reau, celui de Gerard (le boss). 
En ce moment, il est conjomte- 



ment en tram de : 1) mettre une nom Jewels sur la cassette i 
nouvelle imprimanle sur son or- Faire NEW, el LOAD sur longi- 
dinaieur. en invenlant des liai- nal. Aflendre le Ready Une fois 
sons dangereuses. 2) eenre far- qu'il s'est atfiche, faire ME- 
ticle de la premiere page pour le MORY 5999 puis LOAD "*, At- 
prochain numero. 3) resoudre tendre qu'il charge un bloc bi- 
un probleme de programme 4) naire, puis : 
sortir une vanne a la cantonade, POKE 40506. & EO 
qui s'esclaffe. 5) boire un cafe. POKE 40507. & 2E 
en faisant la grimace. 6) retire POKE 40508. S 4E 
les textes qu on lui amene 7) POKE 40509. & 1 1 
telephoner a un inrormateur offi- POKE 40510. & 69 
cieux. POKE 4051 1 . & 00 
Et encore, cest une journee CALL 40500 et appuyer. . 
calme. D'habitude. il est bien Je m'mterromps un instanl. car 
plus enerve que ca. Franck (lun de nos lesteurs 
Intermede informatique : tous) vient me voir pour me de- 
Solution de Forest al Worlds mander si ca avance. II lit par- 
end, pour Amslrad. trouvee par dessus mon epaule, la. II attend 
Didier Tonneau ; que je marque aulre chose, 
s, take bow, take arrows, n. e. mais je reviens a mon Amstrad 
n, e. n. take log. w. s, s, e. s. s. ...sur Play, on charge ainsi le 
s, take horn, n. e. s, put tog module de presentation qur 
across chasm, e. s, s. s, w. w. n'apparait pas en taisant CAT. 
take rope, e, n, climb in boat. Placer K7 ff 1 el faire SAVE 
row boat, climb out boat, n. n, n "J.PRESENT. B .& 2EE0 .& 
(si attaque de loups tof, faire h. 114E 

h, h, kiss nymphe. take ring), s. Taper ensuite ce programme. 

e. e. n. blow horn, e. s. s, s, s. sans laire de Reset 

open door, wear ring, enter 10 MEMORY 5999 

hovel, take key, e, n, n, n. n. n, 20 LOAD " !'. 20560 




n, e, n, n, e, up. up. tie rope to 
projection, climb down rope, 
take chest, climb up rope, un- 
lock chest, open chest, down. 
down. w. enter forge, give crys- 
tal to blacksmith, lay chest, take 
sword, s. s, w. s, w. s. e. touch 
rock, e. attack demons with 
sword, e. attack warrior with 
sword, e, down, attack 2am with 
sword, up. s, w. w. n. w. blow 
horn, w. w, w, s. s. s, climb in 
boat, row boat, climb out boat. 
n. w. e. w. w, w, n, n, w Ne pas 
oublier que de temps a autre il 
faut faire un "attack erf with bow" 
ou un "attack spider with bow" 
ou encore un "attack lizard with 
bow' 

Clou est en train de passer des 
coups de fil derriere moi. Tout a 
I'heure. e'etait Bombyx et la, je 
me retourne, c'est Clou, lis sonl 
tres sitencieux. c'esl pour ca. At- 
tendez. je vais ecouter de quoi 
ca cause. 11 donne rencard a 
quelqu'un a St Michel, si j'ai 
bien compris Mais il parle tout 
douce men t. alors j'entends pas 
bien. Ah ben il esl parli. 
Eh. je deconne pas, hein ! C'est 
ce qui se passe reellement en 
ce moment ! Au fur el a mesure 
que ca arrive. j'6cris. Pour I'ins- 
tant, il ne se passe rien Carah 
est en face de la fenetre (ou- 
verle. on creve de chaud) et il a 
du mal a eviter le soleil. Du cote 
du bureau de Gerard (le chef), il 
ne se passe plus rien. Tiens. j'ai 
une idee : ie vais alter lui de- 
mander ce qu'il a a vous dire. 
Non. il n'a rien a vous dire, de- 
sole. Mais il est occupe a inci- 
ter des caracteres de controle a 
son imprimanle. Ca explique 
Allez, un petit true sur Amstrad. 
Accrochez-vous. 

C'esl la facon de deplomber 
"Jewels of Babylon". It faut se 
miinir de 2 cassettes numero- 
tees 1 et 2. 
Taper le programme : 
10 SYMBOL AFTER 129 
20 SYMBOL 129, 255, 255. 255. 
255, 255. 255, 255, 255 
30 MEMORY 5999 
40 PRINT "VOTRE LOGO" 
50 LOAD " r 
60 CALL 15500 
70 RUN " r 
Puis le sauvegarder sous le 



30 LOAD"!", 18000 

40 LOAD " r, 14000 

50 LOAD T, 10000 

60 LOAD " !", 6000 

70 LOCATE 5,23 : PRINT "DER- 

NIERE PARTIE" 

80 LOAD " !". 39850 

90 CLOSE IN 

100 MEMORY 1999 

110 FOR A - TO 3999; 

POKE 2000 + A. PEEK (39850 

+ A) : NEXT A 

120 CLS 

130 CALL 20560 

Sauvegardez ca sur la cassette 

n" 1 par SAVE "J.BAS 2" Re- 

prcnez I' original, faites LOAD "" 

qui va charger un programme 

basic, puis : 

POKE 40506. & 70 

POKE 40507. & 17 

POKE 40508. & 80 

POKE 40509. & 48 




POKE 40510. & 69 

POKE 40511, & 00 

CALL 40500 

La seconde partie se charge, on 

prend la cassette n" 2 el on fart 

SAVE "CODE 2". B. & 1770. 8. 

4880 

On reprend I original el on fait : 



POKE 40506. & 50 
POKE 40507, & 50 
POKE 40508, & 55 
POKE 40509. & 4B 
POKE 40510. & 69 
POKE 40511. &0O 
CALL 40500 
Cest la derniere foi 
vous. Apres charge ment, laites 
SAVE "CODE 1". B. & 5050, & 
4B55 sur la cassette n° 1 , Vous 
pouvez alors ranger longional el 
souffler un instant Profilez-en 
pour faire un reset. 
Une fois vos esprits recouvres. 
reprenrez la seconde cassette, 
faites MEMORY 9999. LOAD 
"CODE 2". 10000. 
Reprenez la n° 1 el effectuez 
ces sauvegardes : 
SAVE "PART 2 1". B, 26000. 
2560 

SAVE "PART 22\ B, 22000. 
4000 

SAVE "PART 2.3". B. 18000. 
4000 

SAVE "PART 2.4". B, 14000, 
4000 

SAVE "PART 2.5", B, 10000, 
4000 

Voila. Revenons a nos moulons. 
On me pique mes stylos. Alors 
je suis alle dans la reserve, j'en 
ai pus 10. et je les ai poses sur 
mon bureau. Mamlenant, tout le 
monde vienl et me dit "Je peux 
fen prendre un, ten as plein ?" 
Je suis devenu distributee de 
stylos. Au moms, je suis sur qu'il 
m en reslera un a la fin de la 
lournee. Enfin, pas sur, j'en ai 
deja plus que cinq 
Milou vient d'arriver avec son 
sac plein de bandes dessinees 
Comme d'habilude. il les etale 
sur le sol. les monlre du doigt 
en disant "Ah ! Ca, c est absolu- 
ment genial ! Ah ! Ca. c'esl 
compl element nul !" II n'a pas le 
sens des nuances, mais nous 
on sen foul, une fois qu'il esl 
parti on recupere les BD. Ca 
nous arrange. 

Tiens. ca faisail tongtemps que 
I a vais rien donne sur ZX 81. 
Cest parti, grace a James Cha- 
puL 

Pour Stock-car. void un Iruc qui 
per met de ne rencontrer aucune 
vorture sur les 15 Kms du trajet. 
Arretez le programme une fois 
charge par BREAK et entrez les 
lignes suivantes : 
9920 FOR I = 16584 TO 16598 
9930 POKE 1,0 
9940 NEXT I 
9950 RUN 

El la nee z le fonctionnement par 
GOTO 9920, 

Je suis en train de penser a 
uueique chose : pendant que 
vous lirez ca. moi je serai... ah 
ben c'esl con. j'ai pas encore re- 
flechi a I'endrort ou j'irai passer 
mes vacances Mais je serai au 
soleil. loin, la ou il y a plein de 
palmiers el de vahines avec des 
colliers de Meurs. Tres important, 
les colliers de fleurs. Sans ca. 
c'esl pas des vacances 
Gerard vient de me tirer mon 
paquet de dopes A chaque 
fois. il m'engueule parce que ce 
nest pas sa marque. Mais je ne 
vais pas me mettre a fumer des 
lianes sous prelexte qu'il prefere 
ca. non ? 

Tiens, en passanl. si vous avez 
un M05 et des softs proteges, 
faile POKE 8699.57. chargez le 
programme et vous pourrez le 
lister el le modifier a loisir. 
Qu'esl-ce que je cause bien, au- 
lourd'hui 

Le soleil esl en train de se cou- 
cher Lair de nen. c'est pas evi- 
dent, d'ecrire un bidouille gre- 
nouille. Ca prend du temps. 
Faudrait quand meme que je me 
depeche, j'ai rencard avec mon 
agence de voyages. Done, je 
conclus rapidement : chers 
petils amis, a la prochaine. 
PS : Ah ben c'est malin. j'ai pas 
fait assez de lexte Je vous re- 
trouve done, deux jours plus 
tard. avec une peche accrue 
pour vous donner d'autres trues 
que - ga lombe bien - je viens 
de recevoir. 

Et attention ' Philippe Morelli 
vienl a linstant de m'envoyer la 
solution d'Amazon pour Apple. 
Ca tombe tres bien, je la cher- 
chais. C'est parti : 
Wait. (-.-). go office, prenom, 
yes. no, ok. novice, go airport. 



open letter, take plane, miami. 
institute, no, enter, show letter, 
enler. prenom. yes, e. enter, 
look birdcage, lake drape, pre- 
nom, open cage, open refrigera- 
tor, take medicine and fruit, give 
fruit, no. yes. Ok, yes. yes, look 
room, paco, open cupboard, 
took cupboard, take food and 
look shelves, take gun, took 
gun. exit, no, no. no. paco. yes, 
go airport, buy lickei. go cour- 
tesy, yes, lake backpack, inven- 
tory, open envelope, took note, 
go plane, give cigarettes, sit up, 
computer on. 969. e. n. n. paco. 
took, nothing, yes, in backpack, 
paco, lake backpack, look. w. 
wear goggles, n. remove gog- 
gles, computer on, 072. yes. n. 
n. n, e. n, n, n, n, paco. smile, 
took, paco, n. drop belt, n, drop 
note, w, take belt, n, take note, 
n, drop bell, e. w. lake belt. e. n. 
n, wear parka, n. n, paco. 
computer on. 072, n. n, e, n, e, 
e. n, e, n, n. enter, give food, 
computer on. 969, sleep, n, n, n, 
n. paco, e. e. e. n e, e. e, look 
carton, open carton, fake rifle, 
took rifle, lake oar. look oar, look 
raft and lake raft. n. wear gog- 
gles, paco, wail. w. w. look boat, 
repair boat, use raft, remove 
parka, use parka, tranquil ize 
paco, enter boat, cross river, 
use oar. e, computer on. 969. 
tired, inventory, paco. computer 
on. 969, n, n, e, e (a partir de la. 
jeu d'arcade. Recuperer lequi- 
pement en s'aidant des touches 
W. S, E et N ou en lapant 
"PADDLES' des le debut du 
jeu). inventory, e, e, paco, took 
bridge, use gun. e, e, paco. s. s. 
s, w, computer on, 969. s. wear 
goggles, laser on (jeu d'arcade : 
tuer les Huni en s'aidant des fle- 
ches ou des touches W. E et de 
la bar re d'espace pour tirer). 



sleep, n, n. w, n, s. up, look 
easi. look west, down. e. e. n, 
look throne, s, e. n. s. w. w. n, 
n. look fruits, eat Iruits, e, w. s! 
s. s. s, wear goggles, laser on 
(la, meme jeu darcade que le 
precedent), sleep, paco. give 
medicine, n. n. n, n. e. took sta- 
tue, touch statue, n, touch wall, 
pull lever, down, w. up. w. n, 
take key. s, e. n. use key, take 
paper, read paper, computer on, 

( fit* AflTiCH. M& " T ) 
\H pA^rTrVi 





open 132, s. s, s, paco. 
s. up. w, enter chopper 
Voila. Ce coup-ci, ca devrait 
aller. Enfin. j'espere, parce que 
je n'aime pas elre reveille a 
deux heures de r apres- midi 
sous un pretexle aussi futile 
Laissez-moi dormir. merde ! 



MINITEL NOUS PREND 
POUR DES CONS 



Les PTT se moqueni des 
700.000 possesseurs de mmi- 
tels en leur faisani payer des 
factures exorbitanies. Les PTT 
mange nl leur pain blanc. Leur 
objedif esl d'inslalter deux mil- 
lions de mmitels. a grands 
coups de slogans pronant sa 
graluile ! Quelle graturte ' Les 
seuls serve urs mleressanls se 
Irouvant sur le Tele! el Kiosque. 
on est vite lente de faire un 
petil calcul ; une laxe de base 
toutes les 45 secondes egale 1 
franc la minute ( C est pi re 
qu'un parcmelre. 60 balles de 
I'heure. 600 balles pour dix 
heures de connexion, je vous 
laisse conlinuer, si ca vous 
amuse de calculer jusqu'a quel 
point vous vous faites arna- 
quer ... Dautanl qu'on ne resle 
pas 10 heures sur le Kiosque. 
mais des nuils et des nurts. 
C'est. admettons-le. le reel 
moyen de communication des 
annees qui viennent Seule- 
ment. on nous prend pour des 
cons un peu trop lacilemenl 
Moi- me me. pou nan I radin de 
nature et du style a regarder 
ma monlre en murmurant "plus 
quune minute et je raccrc- 
che...". je me suis retrouve la 
bouche grande ouverte sur ma 
premiere facture. Je n'y 
croyais pas. Malheureusement. 
c'est une petite fadure. 
comparee a d'autres Un Irou 
dune brique sur votre compte 
en banque peu! lacilemenl se 
concevoir si vous monotelisez 
votre ligne. Et vous pourrez 
toujours protester, on vous re- 
pondra. poliment cedes, "qu on 
en a rien a cirer" Vous 
comprendr^z mon etonnemen! 
quand je lis dans des revues 
"de bon gout" que le piralage 
cest du vol, de la conirebande 
de cerveau. C'est plulot de 
r assistance a portefeuille en 
danger ! 



Je m adresse ici a ces iiiustres 
personnages qui nous gouver- 
nent. Monsieur Mexandeau en 
tele (Ministre des PTT). 
Comment pouvez -vous trarter 
des gens de voleurs (ou lout 
au moms en vehiculer lidee) 
quand vous arnaquez les CO- 
bayes de la technotogie de de- 
main. Une administration, dont 
le responsaWe esl un minislre. 
exptoite de la facon la plus 
honteuse 700.000 person nes 
et fart la sourde oreille devani 
la montee des protestations. 
On ne peut crier la vidotre de 
noire Industrie de pointe et ou- 
blier gentiment les pauvres im- 
beciles de miniiellistes qui se 
relrouvent. moi en tele, avec 
des sommes mquahfiables a 
payer, uniquement pour avoir 
utilise ces svsl ernes doni vous 
etes si tiers (a juste litre, d ail- 
leurs). 

La France auraii pu sans 
aucun doule exporter le mini- 
tel, se lailler un Iranc succes 
mondial en telematique mais 
elle (ou plulot ses dingeants) 
prelerent la voir se bnser les 
reins pour quelques dollars de 
plus Quand done cessera 
cette menlalite irresponsable. 
puerile ? 

Mon minitel, je I aurais voton- 
tiers paye, un tarif bimensuel 
supplemental re ne m aura ft 
sans doule pas empeche de 
me servir de cette machine 
Mais justement, en la don nan t 
"gratuilement". les PTT se per - 
metlenl de pousser le bjpuchon 
le plus lom possible et cachent 
la realile aux futurs deux mil- 
lions de per so nnes connecta- 
bles 

Apres lout, les PTT se veulent 
les champions du con lad. 
non ? lis devraient se laire un 
plaisn de dialoguer avec nous 
On vena 



DEULIGNE : LE BILAN ! 



Apres quel que chose com me une trentaine de se- 
maines d'emslence. le deuligne se prend la tele 
avec les statjsbques ' Recordman absolu du nom- 
bre de publications. I'Apple se taiile la part du lion 
avec onze recompenses, suivi de ores par le 
Commodore (dn nominations), puis de Thomson 
(sept fois champion), d'Amstrad et d'Oric (chacun 
six fois vainqueur). le Canon vegele (trois oscars). 
le Spectrum, le Texas et le ZX81 se Iralnent la- 
rrventablemenl avec deux litres chacun et enfin 
MSX tient haul et fort la lantern© rouge avec une 
seule victoire. 

Seul Pierre Pilato (Apple) a eu I'msigne honneur 
de remporter par deux tois une recompense. Deux 
families se sont regroupees pour atteindre un 
score identique : Laurent et Francois Constanty 
sur Commodore et Philippe et Regis Peltier sur 
Apple. Pour les autres gagnants. hen que de la 
routine : un ou deux softs suivant la categoric de 
leur deuligne (humour ou serieux), 

Comme nous ne pouvions squatter tout le journal 
pour vous resservir I ensemble des deulignes ga- 
gnants. i'ai effectue une selection particulierement 
subjective parrni ceux-ci. A vous de vous regaler. 
ou de completer votre collection pour ceux qui 
avaieni rate des episodes de t'aventure deuli- 
gneuse. Ceux qui n'ont rate aucun numero peu- 
venl resler : quelques inedits se dissimulent subti- 
lement dans cette page... 



H 



Jean-Philippe BLANC nous offre un moniteur pour 
langage machine muni d'un mode d'empkx large- 
ment plus important que le listing : 

1 INPUT"!.". ft* ft»=-*0"+fr» ft=VHL<H»> 
DEF FN L=flSCi.RIIiHTSi.B*.l j>i IF FH 

L=W fHEH WHILE FH L<>8»'PRIHT*>* 1 
HEXKfi.4/." i."+HEHW.PEEK<fl».2>.-lH 
PUT") -,RS = u=ft5CCH»+" " J=45 L.=rtSC'. 
MIL* ft*, 1-0.1 )> U=VflL(-«.e"»H«> Pi*. 
E FI.Q«(U-G)-.U R=ft+1 UEHORUH ELSE 
T=FN Ui >3S 

2 IF T IHEH WHILE IHKfcY*='"- PRINT 
HEXV.fi. 4'" "i FOR 1=9 TO 7 E=PE£k-, 
(Hl> K=E^32 G=vE-46J*K K«E^126 D-t 
E-46WK tW:l)=CHR»<E*G+0> PRINT ME 
X«<E,2>" ".= NEXT' FOR 1=8 Tu 7 PRIM 
T r)*i I I. NL;:l H'H'J Fkllll UEICi LHL 
L V&XX. ON INKEY<18>*2 I^OTO 2.1 EL 
SE CHLL h ' I ■■ RUN 

* (adresse) liste 8 octets par 8 octets 

■ (adresse) I mode Edit. Permet la modification de 

la valeur sise a (adresse). Pour quitter lediteur. 

piacez un ':* apres la nouvelle valeur. Si vous ne 

connaissez pas le code dun caractere. entrez-le 

precede d'un ■-". 

- (adressel* appel de la routine debutant a 



1 TEXT 



PRINT 'SCORE-' i 
S • (37 - L>: INPUT "TAILLE" 
•;L: GR :0 « 39: COLOR' I: VLIN 
1,0 AT 0: VLIN 1,0 AT Q: C0LOR= 
2: HLIN 0,0 AT 0: COLOR- 4: HLIN 
1,3? AT 0: COLOR- 3: FOR I = 
3 TO 7: HLIN 1,36 AT I * 2.3 
! NEXT iX ■ 



i RN0 CD ■ 
| liS - 0)0 ■ 



• til -A) 

(37 - L) 



2 COLOR- 4: HLIN 1,30 AT Q:P - 

»(iL ill) •!)'!: COLOR- 2; HLIN 
P,P * L AT OtF - SCRNC X t 



F>ll > 



OlJ - 



■ 3 OR F - IK 
: COLOR- E • (E < > 3) i PLOT 
,ViE - FiX - X ♦ UiY - Y ♦ 
i COLOR- 9, PLOT X.Yj PRINT 

CHM U • 6) :U ■■-■ U * U - J 

■ k » ini ( wi ui i :i 



tttrrg mmirnant:': list :D porte le prix absolu du deuligne le plus long de ZX Si 

r ioid:f ■ ioi2: gosub 2: end rhistwre : deuligne d'accord, mais avec mille trois 

cent cinq caracteres (oui out ! 1305). Un exploit _ ... _ „. . 

que seul un micro comme le sien pouvait suppor- ^ r f^'fl stances t rang uillement avec Phi- 

H .„ . * r^ , ippe CAUSSE. u Usez son chargeur de program- 

™J^J£L2£5£22* e " Pen8ant ■ ST pour son micro. Rien de plus unpte que de 

vous en sera reconna.ssant. ^£ mgrnm quj ^ fess ^ alB #££ \ p,^ 

1 poimt bt 3,a:itia.ai : BMH miere ligne doit compter 135 caracteres et vous 

cr a <i.d»i CI ?s9 Arip"j*6B? t point fiV devrez enlrer les codes machine a laide du char- 

"tfiftt-lWS-TiiriJS.'r-i'-^iir' flew habitual. 

BiD"»lW*l^T^"|WiisfilvK."* : le REM C135 OCTETS) 

and !.!i-i;vio"l"> let A.HN 20 PRINT USR 16514 

kU!: :: I ;: SKS n!x'«-i! '-"I-I"'^ i 6516 ei 00 ee C5 ee is ed 5F 

t tflvtn anp j«n.ui.".-> let i 16524 E6 IF 4F CD F5 68 3E 17 

int'atS at -temps T htVIs ipe 16532 07 CD Be 02 ?D FE F? 28 

ex 33«7a;256*PEE'v a3673i/5B- if 16548 48 FE EF 28 37 CD F2 40 

en'oVto 1 '*'■ i, '^ ,, * m v '" ™ 16548 3FI 99 41 4F 06 00 CD F5 

- c I p SI2I c a i'"^2r, EN SSn« S 0P £ 16556 08 2R 0E 40 3E 17 BE 28 

ruse » cls let v.b Se STORE 16564 10 23 BE 28 0C 36 86 13 

owe ""a, | ^ E u s J| 73 ,;f M ^fl 16572 36 86 CD 00 41 CI 03 18 

e> ci" v<se> dim at.ie.isi- fo 16580 C2 28 0E 40 3E 17 BE 28 

T c'Vop eti wf»* fiAliUT^ 16588 08 11 20 00 19 22 0E 40 

ppint at ci.iiui next c. oo T 16596 CI 40 49 C9 3fl 09 41 FE 

M)l?£&*»J<°f&ij!&fATi J6604 IE 38 C2 3C 32 09 41 18 

.ii.a,i.i.a,i3.a,ij,i,is,a,iri,a,i 16612 BC 3fi 09 41 FE 00 28 85 

I' i»! ■? : t* .7 ;*s y III, I'M, i if*": 16620 3d 32 09 41 ie hf ed sb 

^•T4 i i*?4 i 2'g't'* B 4^*Z , i*i e *4 16628 0C 40 21 21 00 19 01 D6 

.":"ftVg:t;g:g:°:4:a: :a:7:a:7 16636 02 ed B8 C9 01 00 01 0B 

-— ' ■ff , ™P 16644 7S Bl 20 FB C9 00 

itaail* * Pour regler la vitesse pokez une valeur comprise 

■ iiHMi.n itin i im.Bii, enire et 255 (tiens comme c'est bizarre) dans la 

R; 1 1??, J?flff9i- ^^Ul^^g. case memoire repondant au dou* rwm de 1 6642 

■■■■i" Le synthetiseur d Emmanuel OURAND fait preuve 

dune inconstance qui n'a d'egal que son origina- 

lite sans pareille. Vous allez pouvoir emm. nnuyer 

les voisins avec cette superbe stndence orches- 

TEXAS tree par vos doigts. 



2 FOR I = D TO F: HEAD J; POKE 

I.Jl NEXT t RETURN I DATA 1 
69, 0, 1 33, 74, -IdS, 149,200,133, 
75, 177, 74, 1 45, 74, 200, 208,2*9 
, 230 , 75 , 208 , 245 , 1 73 , 1 3 1 , 1 92 , 
96,173,131,192,74,191,137,24 
,3,144 

Jean-Claude DEVAL n'aime pas voir les REM lui 
sauter au visage au moindre LIST. Celles qu'il 
vous propose ne laisseront apparaitre que le 
texte. le mot-cle REM et le numero de ligne dispa- 
raissant dans des abysses inconnues. 

10000 FOR 1 = 1 TO 9:H* = H* * 
•H'l NEXT :H1* ' H*:H2t ■ lit 

» "HH*: FOR I » 1 TO 33:L» = 
L* t CHR* (44)t NEXT t TEXT 
i HOME : VTAB 12; HTAB 12: IMJERSE 
: PRINT "REN CACHEES' : SET Air HOME 
: NORMAL : INPUT -NOM DO PRO 
GRAMHE :';FILE* 

1 000 1 FOR L - 10 TO 40 STEP 10: 
PRINT : PRINT * *|L;' REM ■ 

|| INVERSE : PRINT HIS;: NORMAL 
: PRINT Ltll INVERSE i PRINT 
H2*|| NORMAL : PRINT L*;: INVERSE 
: PRINT H2»;: NORMAL : PRINT 
L«;; INVERSE : PRINT -J*;: NORMAL 
: PRINT : NEXT L: VTAB 2: PRINT 
CHR* (4);'L0A0-FILE* 

Pour memoire, et pour une utilisation sans sur- 
prise : lancez le programme et tapez votre texte 
sur les points Indus dans les lignes de REM et 
sur eux seulement. 

Philippe PELTIER vous offre une nouvelle presen- 
tation pour vos catalogues. Sachez en tirer partie, 

ce n'est pas couranl de voir une telle qualite de Olivier GOGUEL n'aime pas plus les americams 

programmation en deuligne. que leur clavier. Travailler sur un clavier QWERTY 

fut un tel catvaire pour lui qu'il ne put s empecher, 

1 FOR A - 748 TO 783: READ B: POKE a | a moindre occasion, de franciser le sien. 

A, 8: NEXT : POKE 54,0: POKE 

33,31 CALL 1002: DATA 201,14 f CALL CLEAR :: E»="007C4O7B407C" : : CAi. 

1,240,9,32,240,253,32,14,232 L CHARPAT (65, A».BI . p«.87.W*.90. 2». 97. Al» 

,74,14,232,149,39,74,100,232 , 1 13. CI*. 1 19, HI*, 122. Il«) : : CALL CHAFKS1 

,A*.B7,Z*.£3.U*,90.M*) 

2 PRINT CHR* <4>>CATAL06' 2 CALL CHAR( 1 13. Al*. 1 19, Zl*,97. 01*. 122. M 

l*,37."1824"«£*,41."30OCO03B447C4444".64 
fg\ .-0C30-S£*.38,"300C-fcE*l:: ON WARNING ST 

rri OP :: PRINT " REODY QWERTY X":I/0 

CANON pour acceder aux drtferentes lettres accentuees. 

,,...„■ n'hesitez pas un instant a taper SHIFT 2 pour ofc- 

Frederic FARGEOT propose une foncuon PAINT tenir un i, SHIFT 5 pour admirer un e, SHIFT 7 

X.Y.A parfaitement operationnelle qui, comme son ngm av0 j r e e , SHIFT pour le fameux a 
nom ne I iodique absolumenl pas. place le carac- 
tere de code ASCII A aux coordonnees ecran X.Y. 

Apres le Run fatidique, tapez en mode direct les ^ 

instructions sufvantes pour rendre fonctionnel Tor- TunucnM 
dre PAINT: iHUMbUN 

STARTS = TOKE154.192 :POKE155,27-+ CHR$ 
(13) OFF1 



Chhstophe ALBERT lance son magneto a la Vi- 
tesse de son choix pour les sauvegardes. La va- 
leur ideale pour X sera de I'ordre de 28, pour une 

fiabilite absolue a la lecture. 

1 POKE tB&Ol.e POKE (.B8D2.X 

8 PEN PLUS X EST PETIT PUIB Lrt VII 

ESSE t* SflUVEUMRPE EST GRnttUt 



APPLE 

Jean-Michel LUNATI casse des briques en cou- 
leur et en musique. N oubliez pas de connecter 
votre joystick de course a votre micro et tentez de 
battre to record du testeur ; 23.765.858 points (sort 
deux jours sans manger ni dormir I). 



I FORX-7104T07l29:READA*:POKEIt,VAL 



,7B,32,88,0,CF 



La mtse en boite restant une propriete totale de 
I'HHHHebdo, les deux comiques associes Etienne 
CARON et Bruno de la BOISSERIE n'ont pu reali- 
ser que de la mise en cage. Exception nellement 
realistes ces deux deulignes son! a emporter im- 
perativement en vacances et a mettre en route 
aux alentours de minuit : les rossignols ne sonl 
plus ce qu ils etaient 1 



Chhstophe 8RENIERE n'hesite pas a ne rien de- 
voiter de lastuce dissimulee dans son deuligne. A 
vous de tester la chose sous toutes les coutures 
pour connaitre cat indicible plaisir quest le dedal 
(age des cadeaux. 

1 ■ 748:F = 797: GOSUB 2: CALL 
748: POKE 35048,42: PRINT *L 



Bruno se chargera du deuxieme tour de quatre a 
huit jusquau lever du soleil sur la ligne bleue des 



10 0UT244,7a:OUT243,0:x"RN0iOi»13« 

lO: Y'BNDI I I *15«30 

zo s-Soniy-x) :p-io*s:foba-xtov*pst 
eps:outz4Z.*:nc>ita:out24Z,o:gotoio 



Seul prime de toute la jeune histoire des deuli- 
gnes, Philippe ABALLEA avail remporte un logiciel 
pour son humour vaguement scatologique. Main- 
tenant que nous sommes tous reunis ici. nous 
alions en profrter tous ensemble : plus il y a de 
fous. plus Ion lit. 

10 CLEAR MtftTOM POKE tFFBW.a Ftl 
KE tFFe9.t,FB Ff»I=lf8ee TO tF019 ft, 
EflOft* POKEI-VHLt -W*mi ItXTI PUK 
E UT07,tC3 

20 DHTH CD,23,7X21,09,F0.C3,31,41 
,56, 52, 4F, 53, 34, 29. 21, 28,43. 41, 20, 
47,41, 5R. 29, 3F,0H, 80.88 



SPECTRUM 



Frederic le PENNEC a sans aucun doute rem- 



Stephane BLANC installe un carre de la meme 
couleur sur son televiseur : le seul deuligne tniale- 
men! interdit aux moins de dix huit ans. aux sain- 
tes nitouche et autres curetons. Les myopes ne 
seront pas mieux lotis : la loupe n'est pas fournie 
avec le deuligne. 

I PEFINTI, j:L0CATEa.8.e:SCPEEN7,B,6:REST 
OFTrFC.C J=IT03:F0PI=£8e84T0E8364STEP4e:RE 
«DA»,B»:POi!:EI,VAL' &* > : POKE I* 1 , VAL> B* • : NE 
>ITI, j:RU«:DRTft8,l9£.8, 19£,8.64, 192, 224. 1 
93,96,63,96,63,224,34/ 64,36,128,71,224 
! DrtTHB. 192.8,192.8,64,192.192.193.192,6 
2. I?£.t7. 192.34. 1 ii - 36. 1 23, 71, 224. 8- 1 92, 
8. 192.8.64.192.192,195. 192.126,128.126, 1 
26.71,8.63,128,71,224 

Anicel MBIOA lance sa chenille a fond la caisse 
sur la route des deulignes. Que tous les editeurs 
qui sortenl des Nibble et autres productions de 
l age premicro-ordinatique se retrounent dans leur 
tombe : leur regne vient de prendre fin sur Thom- 
son I 

IB IFJ"=eTHENCLS:SCREEN,e,9:X=18iY=ll!L = I 

:N=28:B0Xi;e,e>-'?9.I; CHRI* 127 j. l:F0RI = l 

TDN:L0CATERND*37.PND»22,8:C0L0P4:PRINT-* 

-: NEXT: C0L0R7:L0CBTE9, 24: PRINT-SCOPE :'! 

ELSEA=ETICK»B>:IFR^1THENL=-1:C=8ELSE1FA= 

^THENL=1:C=8ELSEIFh^3THENC=1:L=8ELSEIFA= 

■THENC=-l:L=8 

28 C0L0«3:S=S+I: J=::X=X+C:Y=Y»L:Z==CREEK 

<::,Y>:IF::>32THENPLHY-D0SQP"JJ«e:RUKELSE 

L0CrtTE16,24:PRHtTS: : LOCATEX, V: PR I NT "o" : I 

FS=12eORS=268THEK D=N*8: PLAY 'SI SI " :60KF( 

9,9>-r3I0, 183),-i:r0RI = lT0t):LOCATERN[>*37 

.FND«22:C0L0R5!PP1NT'4-:NEXT:«=D!X=17:Y= 

l!:C0T019ELSEie 

Bernard fabrf atteint les sommets etheres de la 
bidouille graphique en switchant comme un fou 
enrre les deux pages ecran. A lui le double coco- 
tier dor deceme a lunanimite : il pourra tendre 
son hamac entre eux deux, histoire de se reposer 
jusqu'a la fin de ses jours du prodigieux effort qu'il 
a du foumir pour produire pareil prodlge. 

1 SCREEN1.8,0:y— 3:FORX«8T0i:B-118:C=289 

: F2=32J SCREEN, .,,>:: CLS: F0RD=72T0I83STEP8 

:F0RA-& TO D*8:L INE< 0, A-P2*fl )-<B, A-P2), Y 

:LINE-(8,A),V:LINE-'159,A+8),Y:LINE-(C,A 

),V:LIIIE-<C,A-P2),Y:LItlE-(319,A-P2*8),Y: 

P2-P2*.2:C-C*.88:B=B-.88:NEXTA! IFY = -3THE 

NY=-5ELSEY=-3 

£ HEJ'TD: Y = -5: NEXT;.;: :■; = ! 8: CONSOLE,, l:F0RA= 

lT099:Y=12»R«0*18:^ORB=9T022:SCREEK.,,,e 

:PSET(Y,B)-« , :K=STICK>e)iX=X+<K=7ANDX>5) 

-.k=3ANDX:31>:PLfiY-01L2D0*:L0CATEX.29:PR 

INT- ctOb ■:SCREEN,.,,US=S-(SCPEENi'y,t2, l 

9''=42>:PSET'Y,B>- ' i L0C0TE8. 9, 0: PRINT'SC 

0P£:"S:NEXTB,A 



Apres le RUN fatidique. debranchez le magneto, 
poussez le son de votre tele a fond ou plus fort 
encore, tenez enloncees les touches SPACE et 
N L et variez a I'infini ou presque les quatre tou- 
ches suivanles : 1 , Q, A et SHIFT (de gauche bien 
sur!). 

m 

ORIC 

Claude ROBERT applique le principe royal : dm- 

ser pour reqrier (certains preferent I'unron fart la 
force, mais pas lui). Vous naviguerez desormais a 
bord dun ecran dlvise en deux parties egales 
consacrees lune a la haute resolution et I'autre au 
texte. 

1 HIRES'TEXT FQRI=46eeeTu4£3Cr5'P0 
KEI . 255 ' NEXT FORT '46352T0463B4 : POK 
EI,e<NEXT 

2 PfXE704,3 F0ftI>"lT038 P0KE4e&ue. 
9 ' CURSET I , I , 3 'C I RCLE I , 1 i POKE48809 , 
31PRINTIi NEXT 

Jacques-Francois WADEL aime trailer et maltrai- 
ter les textes. Ce premier point ne I'empeche pas 
d'insister lourdement en maltraitant et les textes et 
les australiens qu'il accuse de vivre les pieds en 
haul 

1 0OKEtft2, 49689 

2 GETRr&QT02 

e 

COMMODORE 

Joel FLEURY transforme le Basic 2.0 de son 
micro en une autre version largement plus interes- 
sante vu qu'il offre cette fois-ci la possibilite d'indi- 
cer les instructions GOTO, GOSUB et RUN. Indi- 
cer, kezako ? Vous pourrez taper desormais dans 
vos programmes des lignes du style I GOSUB 
22xN ou GOTO A. Le pied d'acier, indeed I 

1 P0KEe8,9P0KE89.192 'NKHWtt POK 
E91,192-P0KE781,33 SYS4197I POKE!. 
54 POKE 42169. 8 

2 POKE43179.192 FOR1-47983T047988 
P0KEI+2969,PEFJ« I ) NEXT P0KE49I55, 
76 

Jean-Pierre LALEVEE aime tenement la musique 
qu'il ne supporte pas 1'idee dun lecteur de casset- 
tes meme pas capable de rendre un minimum de 
son. Du coup admirez le chef-d'oeuvre ; 

1 F0RI-9TU29 REHDfi PuKZ49152tI.n N 
EXT:SVS49152 

2 DHTH173, 142, 2,288. 13.173, 13,220, 
41.16,249.2,169.15,141.24.212,76,8 
.192,96 

Lancez le programme par RUN. ptacez une cas- 
sette de votre idote du moment, poussez le son 
de la tele a fond et mettez le lecteur en route en 
appuyant delicatemefit sur la touche PLAY. 
Laurent GAUTHIER a transmis la maladie de Par- 
kinson a son micro. Rassurez-vous. toutes les 
foncbdns de la machine sont intactes meme s'il 
n'en parait rien. A vous de voir si vous ne me 
croyez pas ! 



1 DHTR173,22, 288, 41. 248.133. 251, 16 

5,205,41,7,24,101,251,141,22,299,7 

6.49,234 
Profitez de votre mois de vacances un maximum, 
mais n'oubliez pas d'emporter votre micro : apres 
la sieste un petit deuligne. apres 1'apero un autre 
et avant la petanque un petit dernier. Vous voyez 
d ici le programme I Bisous el a Seplembre. 



C'est nouveau, ga vient de sortir 



LE VILLAGE, C'EST PAR LA 



Vous aimez les jeux daven- 
ture ? Vous appreciez te gra- 
phis me sotgne. I 'analyse: syn- 
taxique puissante, le scenario 
original, les gags a tout bout 
de champ ? Atofs n achetez 
surtoui pas The Village Un- 
derworld, le premier jeu 
d'aventure pout Spectrum rea- 
lise par Orpheus. Pour le gra- 
pheme, pas de commentaire ! 
il n'y en a pas. Le scenario 
brill© par sa nullite absoiue : 
vous etes dans un village el 
vous devez trouver le tresor 
qui y est cache. L analyse syn- 
taxique dispose dun diciion- 
naire fabuleux de quarante 
quatre mots, parmi lesquels ne 
figurent meme pas Shit ou 
Fuck, ce qui ressemble a un 
oubti dramatique pour un logi- 
cal en anglais. A eviter 
comme voire belle-mere The 




Village Underworld a Orpheus 
pour Spectrum. 



LE BON PLAN 
ETAIT DAMS LA VALOCHE 



Fallait cavaler comme un de- 
rate pour franchir la ligne der- 
riere laquelle se trouvait La va- 
lise du plan inlormalique 
Was ??? II s'agit de la selec- 
tion de quelques 80 logicieis 
de base qui seront distribues 
dans les ecoles a la rentree de 
septemore. Encore un super 
bon coup de bie pour quelques 
editeurs jouant la carte du di- 
dactjctel. meme s'il (aut deve- 
lopoer sur des machines aussi 
excrtantes que le M05 ou It 
xervtsion Tous les gouts sont 



dans la nature. Hatier et Na- 
than se sont places, suivis de 
Answare, To Tek et, bien sur, 
nnevitable Infogrames dont lil- 
lustre patron me r iter ait d'epou- 
ser Edith Cresson. 



T'" c T*. r* 




COMMENT LANSAY UN PRODUIT 




La campagne de pub menee 
par LANSAY depuis deux mois 
dans les revues specialisees 
est I'une des plus importantes 
jamais depioyees en France 



pour un micro-ordmateur (Je 
surs assez rier de la phrase qui 
precede, quoiquun doule 
menvanisse : faut-il vraiment 
mettre un S' a depioyees' ?). 
Amveront-ils a I amortjr ? Cette 
machine a-t-elle une chance 
de s'imposer sur le marche 7 
Mon impression personnel le 
est NON, parce que depuis le 
temps qu'on lattendait, d'au- 
tres machines plus belles, plus 
sophistiquees et pas tenement 
plus cheres se sont taille une 
place au soieil. comme drt 
I'autre. il a mis trop de temps a 
prendre son elan. 



QUAND MEME 



CRL vient de s apercevoir qu'il 
eiait peut-etre temps de (aire 
un logiciei a partir du lantasti- 
que et genial excellent super 
film "Blade Runner" du tres for- 
midable Ridley Scott d apres le 
supreme et ultime Philip K 

Uick La musique du tabuieux 
et extraordinaire vangelis sera 
induse dans le soft, qui sortira 
d'abord sur C64 el Spectrum 
en Aout et ensuite sur Ams- 
trad. 




MICROS KAPUTT 



Le president du syndicat fede- 
ral de la bureautique en Alle- 
magne a declare que le mar- 
che des micros-ordinateurs 
s'ecroutait tolalement. Ach ! 
Gross kalastrophe ! Souls les 
gros systemes se vendent 
comme des petits pains Mais, 
mon Dieu, comment exphquer 
ce ohenomene ? Hein ? II 
sembferart que les petits 
commercants en aient ras las- 
sietle a choucroute des fluc- 
tuations de prix et de mate- 
nets. Ca n'arrete pas de 
changer, on ne sail plus ou 
donner de la tete. Messieurs 
les toumisseurs, un peu d'or- 
ganizazion zil vous plait '. 




LE SPECTRU1V1 MET LES 
POLICES 



La societe OPUS vient de 
commercial iser un boitier d'ex- 
tension pour le Spectrum Koi- 
kinia dans cette bolte m'sieur ? 
Plain de choses, mon petit : 
d'abord un lecteur de disquel- 
les 3 pouces et demi. ce qui 
nous fait bien piaisir puisque 
c'est le standard des cinq pro- 
chaines annees (nayons pas 
peur de le dire). Ensuite une 
interface pour les manettes de 
jeu, une sortie imprimanle et 
une sortie video. La societe 
OPUS a de bonnes idees. eiie 
veut les placer sur le marche. 
on appefte ca le marche 
OPUS(nul) 




BRANCHES, PRESENTEMENT 



Le Mmrtel se repand jusque 
dans ITIe de la Reunion ou les 
autochtones peuvent desor- 
mais acceder a toutes les ban- 
ques de donnees metropolitai- 
nes. Ca ne va pas arranger le (V-v" 
bordel sur TRANSPAC. 




HIROSHIMA ACTE II 



Prendre une bombe atomique 
en pleine poire, ca tail rnal sur 
le moment, ensuite ca donne 
des resultats etonnants 
L'usine de construction de ba- 
gnoles d'Hofu, pres d'Hiro- 
shima, est dolee depuis 1982 
de robots qui travaillent avec 
les ouvriers. lis viennent de 
faire leurs comptes : 285.000 
voitures sont sorties des chaf- 
pvl*iH.'c'E$rV&f tH/fUM 
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nes en 1984. soil 158 vehicu- 
les par ouvrier. En France, ou 
Ion est si fier de nos perfor- 
mants aulomates. la produc- 
tion annuelle par homme est 
de 13. au mieux I 
Paris Renault Hiroshima 

Mazda : 13 a 158. Heureuse- 
ment que les taxes a la 
douane sont aussi muinphees 
pour les prod u its japonais, 
parce que si les autos aux 
yeux brides se vendaient a 
Icur prix normal, y en aurait 
plus des masses des R5 et 
des 205. Encore un example 
des melaits de la robobque el 
de I'informatique. On n'en sor- 
tira pas. 



CARTE POSTALE D'ALABAMA 



Flight Path 737 d'Anirog, Jet 
Set Willy et Manic Miner de 
Software Projects et Hunch- 
back d 'Ocean viennent d'etre 
adaptes pour I'Einstein. Une 
souris est en prevision. II fait 
beau, el je me baigne. 
Gros bisous et a septembre 



Jl- 




CRAY-GNOS 




Monsieur Oe Source Sure 
vient oe m'apprendre que le 
centre de recherche EOF avail 
officio I lement loue son second 



super-ordinateur de luxe 
CRAY X.MP/24 
ment qu'ils ne font pas achete, 
vu que la babiole coute pres 
de 13 millions de dollars. Quoi- 
t-est-ce qu'ils vont (aire avec ? 
Recalculer nos factures. comp- 
ter le nombre de poleaux ou 
les kilometres de fils ? Mys- 



LA GRANDE BRADERIE 



PSS va lancer incessament 
sous peu une cassette dotee 
dune face pour Spectrum et 
d'une pour Commodore. Joli- 
ment baptisee Cinq-Cinq, elie 
comportera cinq programmes 
par face, tous de PSS. En ex- 
clusivity, admirez les litres of- 
fens pour une somme aJlant de 
100 a 150 francs. Pour 
Commodore vous trouverez 
Hyper Biker, Neocrypse. Metro 
Blitz. Circus . el Krystal of 
Zong alors que la face Spec- 
trum contiendra Xavior, Frank 
N. Stein, Warp Factory Six el 
Guardian, le cinquieme litre 
restant secret pour le moment 
{un probfeme de royalties a re- 
gler avec f'auteur). Ne courez 
pas encore chez voire raven- 




ENFIN UN TITRE 
QUI SONNE JUSTE ! 



Lediteur Firebird a reussi a 
coller la bonne etiquette sur le 
bon logiciei Joie ! Allegresse ! 
En plus Elite, le soft sur la sel- 
ler! e. n'esl pas mauvais. 
Concu dans i esprit til de ter. 




les differ en is vaisseaux que 
vous rencontrerez dans vos 
penples de marchand interga- 
lactique n'apparaitronl que 
piems de vide Malgre cede 
technique de programmatkin 
desuete. le scenario vous li- 
quefiera de bonheur. pour peu 
que vous soyez prels a avaler 
la centaine de pages du mode 
demptoi plus la novella de 
soixante pages jointe au pro- 
gramme. Les croiseurs mlers- 
tellaires ne sont pas tous ne- 
' ' S, I'economie des 

dilierentes ptanetes varie en 
lonction du temps, les affaires 
nuctuent en fonction du flair 
vous possedez pour les 
bons coups. Par extraordinaire, 
e programme sembie gerer 
ensemble des parametres si- 
multanement ce qui le rappro- 
cherait de Hobbit. le precur- 
seur dans ce domaine Elite 
de Firebird pour Commodore, 
et prochainement Spectrum 



CA EXISTE ENCORE 



Dans la serie je pompe, tu 
pompes. il pompe, Orpheus 
vient de sortir une nouvefle 
version de Super Cobra (un 
jeu de cafe vieux de quelques 
cinq annees maintenani). 
L'Onc est cedes une machine 
demume en logicieis, mais die 
a ressortir cette horreur du ti- 
roir oil elle eta it torn bee il 
ex isle un pas que les program - 
meurs d 'Orpheus auraient 
mieux fail de ne pas franchir 

A peine plus maniable et 
mieux programme que (equi- 
valent Lone Raider de Softek. 
ce jeu ne merite qu'une 
Ghooo : qu'on f'oublio a vont oa 
sortie. Kryllis d Orpheus sur 
One 1 et Atmos. 




P0GN0N, 
0SEILLE 0U 
LAITUE 



£ T AvSSi F&'c , Tuver, 



pour reprendre la distribution 
US Gold, le dislribuleur-editeur en Europe des logicieis 
de softs qui monte au d'Epyx. Bonjour la cagnote : 
Royaume Uni. aurait verse en- avec ca j'arrete I'HHHebdo et 
viron 200.000 dollars d'avance je m'achete une Ne deserte. 



NOUS SOMMES FOUTUS 



Les loubibs commencent a se 
pencher serieusement sur le 

probleme des maladies du 
futur. directement liees a la 
pratique et a la manipulation 
des ordinaleurs. Le resultal 
nest pas jojo. Les stresses du 
Clavier sont aussi bien les pro- 
gram meurs profession nels que 
les gamins hobby istes qui 
s'eclatent la tronche a grands 
coups de joystick. Mais, doc- 
teur Tutut, quels sont les 
symptomes de ces maladies ? 
En voila quekjues-uns : migrai- 
nes, ulceres. maux d estomacs 
ou d'intestins. Et si le malade 
persiste a s'accrocber a sa 
machine, ca peut toumer a la 



nevrose obsession nelle, a la 
protonde depression ou a la 

schizophrenie totale. On notera 
egalement quelques cas isoles 
de depersonnalisation totale. 
Rien que des trues rejouis- 
sants. Vive lordinaleur. 
maman ! 




LA PEINTURE A L'HUILE 
C'EST PAS DONNE 



Polygene envisage d'importer 
a la rentree une version cou- 
leur du Macintosh II s'agirait 
dun true bncole par des bri- 
Oshs et permettant de visuali- 
ser le Mac sur un ecran cou- 
leur. On s'emballe, on 
s'emballe, mais le lout carton- 
nerail aux alenlours de 60.000 
balles. Outch. De toule ma- 
nure, j'en saurai plus bien lot 




C'est nouveau, ga vient de sortir 



ADEMIR, MAXI-PRIX 
MAIS IL FAIT LE MAXIMUM 


Dans la serie 'Association a 

bui non lucratif mais pas perdu 
pour tout le monde", ADEMIR 
vous propose son catalogue 
de 300 programmes pour la 
modique somme de 180 balles 
hors taxes. C'est pas beau 
ca ? 180 balles pour regarder 
la vitrine de la boutique ! A ce 
compte-Ia, j'achete une epice- 
ne sur les Champs ou sur la 
Canebtere et tous les gogos 
qui passent devant chez moi je 
leur lais un pnx ; 90 balles le 
coup d'oeil. 100 balles avec 
des lunettes, reduc de 50 % 
pour les borgnes et de 90 % 
pour les aveugles a condition 
qu'ils se boochent les narines ! 
les combines sentenl tort. 


adorn ir 


aaMaateis^ 







SUPER JE 

En voila encore un qu'il a 
trouve une super combine 
Apres nous avoir pondu des 
ouvrages sur a peu pres toutes 
les machines du marche. du 
ZX au CBM 64 en passant par 
le Tl. le VIC, le Spectrum, 
rOric el les Thomson, Jean- 
Francois Sehan nous sort une 
serie 'SUPER JEUX „", les „. 
variant selon les machines. 
Les premiers ... soot sur Ams- 
trad el sur Yeno-Sega 3000. 
Gageons qua linstar de De- 
conchai avec ses 6.000 "102 
programmes pour ...". cet au- 
teur va nous relaire le coup 
avec une palanquee de bou- 
quins tous inspires les uns des 
autres 120 balles les cin- 
quante programmes merdiques 
que me me les debutants qui 
nous envoient des program- 
mes, lis osent pas. En venle 




est 



^m^ttt^ REDOCITABLE 
VENDEUR 

Jean Calmon. directeur gene- 
ral d'Apple France a annonce 
la vente a La Redoute dune 
centaine de Macintosh. Sans 
preciser si c'etait pour usage 
interne ou pour men re au cata- 
logue. 




LE DON DE JACK TRAMIEL 



ses cartons. Dernier en 

le DON. Entendez Oisque Op- 
tique Numerique. Ce genre de 
disque devrait a moyen lerme 
remplacer les lecteurs de dis- 
quettes. En effet, avec un 
DON, on pourra atteindre des 
capacites du genre de 500 
megas, les doigts dans le nez. 
Avec des disquettes 3 pouces 
et demi de 500 kilos on a deja 
I'air d'informaticiens prehislori- 
ques. Je ne vous pane meme 
pas des magnetophones a 



TEFPlf3i£ftX*2 c* 




modeste lendemainde la crea- 
tion du monde. Autre projet de 
Jack Tramiel : I installation en 
Europe dune usine pouvanl 
produire pres de 300 000 
unites de micro-ordinateurs par 



mors. Excellente idee, la 
France est candidate. En at- 
tendant, chaque chose en son 
temps : livrez-nous les 520 ST 
en boo etal de marche el de- 
merdez-vous, cher Jack, pour 
mettre GEM et le BASIC en 
ROM com me vous nous I a vie z 
annonce. 



LEYIN ETLEWANG 



La socieie Wang, amencaine 
comme son nom ne I'indique 
pas, a atteint son point de de- 
sequilibre. Elle vient en effel 
d'annoncer le licenciement de 
mille six cent personnes. C'est 
curieux de constater qua lap- 
proche des vacances, ca hcen- 
cie a tour de bras dans I'mtor- 
mabque, La simple idee des 
conges payes doit (aire gerber 
les programmeurs de gestion. 
Wang rejoint done le club Ires 
ouvert des entrepreneurs-infor- 
maticiens-louteurs a la porte. 
Survez mon regard 




QU'EST-CE QUE QA SENT 
ICI? 



Le CNRS va creer une banque 
des arrjmes. Des milliers de 
prod u its utilises en agro-ali- 
menlaire et en pharmacie ont 
une odeur caractenstique, tout 
ca va elre informatise : les 
donnees chromatographiques, 
spect rales, physico-chimiques 
et les spectres de masse de 
ces odeurs vont rentrer dans 
les pupuces des ordinateurs 
du CNRS. 

Tu vois d ci i 'ordinateur en 
panne ? "Ordinateur, mon bel 
ordinateur. (ais-moi sentir le 
doux partum du Numero 5 de 
Chanel" el pout, tu recois une 
grande bouffee de vieux calen- 
dos dans les narines beanies I 
Keskonsmarre ! 




PREND MA BECANE, 
J'TE FILE DES SOUS ! 



Comme vous le savez sans 
doute deja, la vente des MSX 
en Europe n'a pas ete aussi 
pharamineuse que prevu. En 
France, 30.000 unites seraienl 
actueltement installees chez 
les particulars alors qu'ei 
gleterre les resultats ne 
raient que de 20.000 pieces 
Malgre ces chiffres quasi ca 
tastrophiques, les construe- 
leurs ne desesperent pas ven- 
dre leur produit. quels que 
soient les moyens a employer 
pour persuader le public de 
s'equiper en MSX. 

Mitsubishi, pour sa part, offre 
du bte pour tout acheteur dun 
micro de sa marque, a la seule 
condition de posseder une 

console de jeux video ou un 
micro-ordinaieur quelle qu'en 
soil I'origine et I'etat. Bien sbr 
I'offre n'est valable qu'en An- 
gleterre, nous autres pauvres 
francais on continuera a payer 
pleins pots, et la ristourne se 




Septembre Canon lance une 
nouvette mode : la chute de 
pnx sur MSX. Le MSX Canon 
baisse de 2950 a 2200 francs. 
Mieux que les anglais ! En at- 
tendant le Sony en paralleie a 
1700 francs et les autres 
brades a 1200 francs I 



REDOUTABLE ACHETEUR 



La caisse nationals de pre 
voyance vient de commander 
une centaine d 'ordinateurs 
Data General One. Ca tombe 
bien, parce que DG vient de 
baisser ses pnx de 20%. 
C'etait-ti- prevu par la caisse de 
prSvoyance ? 




CET OLTII. EST IlANtiEREUX ! 



En effel. il sagit dun duplica- 
teurs d'EPROMS qui permet 
de (aire jusqua hurt copies 
dun original II possede egale- 
ment une interface HS232C 
programmable, un afficheur, et 
toul ce qu'il taut pour reprc- 
duire. duphquer et pom per 
dans le hard. Bien sur, il ne 
doit etre utilise qua des fins 
loyates, sinon ca ne serait pas 
du jeu. II est beau, efficace el 
coute dans les 20 000 francs 
TTC. 




SOURIGRAPH 



Les fanas de Videotex son I 
comme des fous depuis qu'ils 
ont appris I'existence de SOU- 
RIGRAPH. un kjgiciel pour 
Apple', (equipe dune carte 
souris et d'urie carte Apple 
Tell). En effet. ce programme 
perme! d'effectuer toutes 
sortes de manips excrtantes 
comme la compos iton el la 
sauvegarde d'ecran. Mais on 
peut egalement realiser des 
graph iques pas trop tartes 
avec la souris. et ca, c'est un 
bon plan pour les ceusses qui 
veulent se lancer dans le de- 
veloppement d'activites ludi- 
ques via le Minitel. 




KIIIIIAAWWIIIII . 



chir les frontieres Irancaises. 
au moins par le biais olticiel 
(les pirates n*ayant pas perdu 
leur temps), Melbourne House 
tente de lui grilter la pohiesse 
avec The Way of the Explo- 
ding Fist Ce logiciel necesslle 

un joystick a huit positions, 

(quatre perpendiculaires et 
quatre dtagonales) pour 

commander a son combattant 
I 'une des dix hurt attaques ou 
defenses possibles. Grace aux 
sept cents sprites dissemines 
dans la programmation. on 
peut decouvhr avec surprise 
un rendu realiste de raction 
mis en vaieur par des ombres 
au sol. Deux jooeurs peuvent 
en decoudre entre eux, ou un 
seul se mesurer a (ordinateur 
dans une serie de combats 
progresses evcHuant du stade 
de novice a celui de 10eme 
dan, La qualite du graphisme 
des decors (changeant a cha- 
que moniee en dan) accompa- 
gne de i ineffable douceur de 
la musique orientale charme 
I' esprit et aide a se propulser 
dans les spheres supeheures 
du Tao. a la recherche de 



I'energie qui em porter a tout sur 
son passage. Bien entendu, a 
chaque coup porte 'e karateka 




pousse son Kiai lavon el sal- 
vateur. Un bien beau produit 

?ue ce Way of the Exploding 
1st de Melbourne House pour 
Commodore 64. NDLR Tao ? 
Mes genoux ! Un grand MAW- 
HASHI-GERI dans la tekxhe. 



INVENTAIRE 
GALACTIQUE 

Apres les heureux proprietaires 
de Spectrum, les Cbmistes et 
Cpcistes vont pouvoir aller se 
promener du cote des souter- 
rains de Nodes of Yesod En 
effet Odin, apres un lancement 
particulierement reussi et fra- 
cassant sur le Spectrum, es- 
time judicieux de diversifier sa 
clientele. Peut-etre songeront- 
iis bientot a diversifier aussi le 
catalogue ? 




ONE WORE FRENCH COMPATIBLE 



La socieie UNIXSYS vient de 
transformer un de ses posies 
de travail en veritable compati- 
ble IBM 256 K Apres lout, il 
suffrt de rajouter queiques 
cartes dans un terminal pour le 
rendre moins con. C'est bien 
connu. Cette jolie machine 
sappelte COMPAGNON (mais 
rien a voir avec Thierry La 
Fronde) et elle commercialisee 
a un prix avoisinanl les 22 000 
balles ht. Moralrte . oof 




THERMOMETRE IRTFORMATIQUE 



Les (heureux) possesseurs de 
Minitel peuvent desormais se 
faire sonde r quotidiennement 
sur toutes les grandes ques- 
tions d'actualite, du curturel 
jusqu'au fin fond de la politi- 
que. Mais, docteur. est-ce que 
ca fait mat ? Non I Pas du 
tout I Ce service a ete mis en 
place par la societe CFRO 
marketing et il tontionne tous 
les soirs a partir de 19 heures. 
Bien entendu, c'est gratuit et 
pour se brancher il faut 
composer le 613 91 55 avec 
comme code d'acces : GSI. 
Futurs sondes I a vos Minitels ! 




WALKYRIES 



Que ceux qui doutent des ca- 
pacites musicaies du Macin- 
tosh se procurent le nouveau 
jeu d'arcade AIRBORNE. En 
dehors du fait que celui-ci est 
completement nul et tartignole, 
il possede tout de meme une 
caractenstique etonnante : la 
musique de presentation ! II 
s'agrt ni plus ni moins de la 
chevauchee des Walkyries 
dans son orchestration ORIGI- 
NALE. C'esl a dire avec les 
curvres et tout le tralala. 
Comment ont-ils fait ca ? Sans 




doute un enregistrement digi- 
tal. En tout cas. si vous voulez 
en mettre plem les esgourdes 
de vos copams. c'est super I 



C'est nouveau, pa Went de sortir 



TIENS UM BASIC ETENDU 



Cette fois-ci, c'esl Ere qui vient 
de se lourvoyer sur la pente 
savonneuse des Basic etendus 
pour le Commodore. Le Basic 
Etendu Musical propose pro- 
chain erne nl chez les deiaillants 
souftre de deux maladies incu- 
rables : aucune portabilite des 
com posit ions n'esl a aftendre 
de ce logiciel tout comme une 
connaissance poussee du sol 
lege {niveau superieur du 
conservatoire au minimum) 
s'avere necessaire pour reali- 
ser autre chose qu'un salmi- 
gondis cacophonique. Sincere- 
men), si vous desirez later de 
la musique sur votre Commo- 
dore, cherchez plutol lun des 
claviers musicaux connect a - 
bles a cette machine et memo- 
risant automatiquemenl vos in- 
terpretations. En (in la 
programmaiion de vos compo- 
sitions vous oblige a vous plier 
a une syntaxe des plus rebar- 
balfves. meme si elle s'avere 
parfailemen! logique a (usage. 
Franchement. rien de meilleur 
qu'un disque sur la platine piu- 




. e rune des melodies 
complete men t ringardes offer- 
tes avec ce logiciel. C'etait le 
beurk parade de la semaine 
avec dans le role unique et 
principal le Basic Etendu Mu- 
sical 6'Ere Informaligue pour 
Commodore. 



COPIEURS INDUSTRIELS 



Un nouveau centre da duplica- 
tion et de lormatage de logiciel 
vient d'etre ouvert en Angle- 
terre par la societe Softsel 
{bien connue comme distribu- 
teur de progiciels aux Etats 
Unis). Plus de 140 formats 
sont proposes, ce qui signifie 
qu'ils pourront dupiiquer ou for- 
mater pour (quasiment) n'im- 
porte quel micro. De plus. Soft- 
sel offre un service de 
conversion entre les different^ 
formats. Cette information peut 
interesser certains pirales. 




LE LOGICIEL EN ROM 







ST**" 

Faut e:re debile pour integrer 
des logiciels en ROM ! Surtoul 
quand il s'agit d'un tableur ou 
d'un traitement de textes. On 
sail bien que les meilleurs pro- 
grammes ont e-volue pendant 



plusreurs mors avant dattein- 
dre une version momentane- 
ment definitive. Tout bon logi- 
ciel est susceptible devoiuer 
avec le temps. Exempte : Epis- 
tole vient de sortir avec une 
option 'communicalions* sup- 
piementaire qui permet le 
trans fert des fichiers par 
modem, etc... Mettre un logi- 
ciel en ROM c'est le condam- 
ner a rester lei qu'il est. Apple 
a du se mordre les doigts a 
cause de son BASIC integre 
qui s'est demode a vilesse su- 
personique. Je viens d'appren- 
dre que le nouveau Thomson 
T09 possede un fraitement de 
texte et une gestion de fichiers 
en ROM ! Jusqu'a quand conli- 
nuera-t-on a applique r ce 
genre de pratiques imbeciles ? 



D2 PAC MAC : 
PAL/SECAM COULES 




Un nouveau standard euro- 
peen va bientot remplacer les 
systemes PAL e! SECAM. 
Norn de code de cette petite 
merveille : D2 PAC MAC. II re- 
pondra aux nouvelles normes 
imposees par les telecommuni- 
cations satellites, avec. en 
prime, la tele en stereo et tout 
un tas de gadgets du genre. 
Pour recevoir ce standard, il 



faudra posseder un decodeur. 
mais les nouveaux posies TV 
seront vend us avec le deco- 
deur integre. Pour etre a la 
pointe de la technotogie. il fau- 
dra done etre muni du deco- 
deur D2 PAC MAC et d'une 
antenne speciale pour recevoir 
les satellites. Le cout d'ensem- 
We pour une installation indivi- 
duelle ne devrait pas exceder 
6000 balles. ce qui fait tout de 
meme cher pour nos petites 
bourses Retries de tetespecta- 
teurs vachement sollicites. 
Notons toutefois que ce nou- 
veau standard a ete adopte 
par I 'Union Europeenne de Ra- 
diodirfusion. J'en deduis qu'il 
faudra tous y passer a un mo- 
ment ou a un autre. 



CABLE 




C'est tout de meme etonnant 
que I'Amstrad n'ait pas fait des 
emules. Les Anglais sont repu- 
tes pour leur individualisme el 
leur besoin de se distinguer. A 
1'epoque des premiers syntheti ■ 
seurs, lis etaienl les seuls a 
vendre des machines qui ne 
respeclaient aucun des stan- 
dards americains ou japonais. 
Avec I'Amstrad. ils recidivent 
en adoptant le 3 pouces qui 
semble deja promu a un Ires 

trand avenir dans mon placard 
balai. Mais, je ne veux pas 
leur jeter la pierre, parce 
qu'Amstrad a fait au moins 
UNE chose extraordinaire : il a 



reduit le nombre de cables et 
autres fits a UN. Tu branches 
et ca marche. Alors merde, 
qu'est-ce qu'ils attendenl les 
autres pour faire pareil ? Nous 
autres consommateurs, nous 
en avons ras la disquette des 
alimentations sr? parens qui 
nous font chier. des drives pas 
mtegres qu'on ne sail pas oil 
placer, des moniteurs pas 
cables qui nous piquent nos 
t6l6s. On veut du pret-a-tapo- 
ter ! Y en a marre des machins 
en PAL (que pour 500 balles 
de plus t'as droit a I adaptateur 
SECAM). y en a marre des 
embouts de cables Irop gros 
qui ne rentrent dans aucune 
prise de nos chambres, ils 
nous font chier les arnaqueurs 
qui nous sucent le porte-mon- 
naie pour nous refiler un cor- 
don avec une peritel au bout ! 
ASSEZ I! Faites du simple, du 
solide et du pas complique, 
c'est tout ce qu'on vous de- 
mands, c'esl pas la mer a 



SIX MOIS DE PRISON 
POUR BAC 



Mieux que lanti-seche dissi- 
mulee dans les re vers de 
vests ou dans les montres 
creuses : le remplacant en 
chair et en os. C'est cette 
combine qu 'avail adoptee un 
candidal lors de I oral a" anglais 
du baccalaureat de Ian nee 
demlere. Manque de bol, I'exa- 
minateur avail decouvert le pot 
aux roses, la police avail inter- 
pele le remplacant et le procu- 
reur de la Republique avait de- 



cide de poursuivre les deux 
fraud eurs. Les deux comperes 
ont quitte la France depuis (in- 
cident et le tribunal de Caen 
vient de les condamner par 
contumace a 6 mois de prison 
avec sursis et 1500 francs 
d'amende chacun. C'est din- 
gue, non ? La taule et le easier 
judiciaire pour avoir Iriche au 
bac I Et pour un examen de 
fac, on fart quoi ? On guillo- 
tine ? 



["HE (DARK) LIQUID CRYSTAL 



Selon le principe bien connu 
des vases communicants, cer- 
laines firmes americames. 
asiatiques ou europeennes 
precedent a ce qu'on appetle 
pompeusement des transferts 
de technologies'. Ces Irans- 
ferls sont generalement ac- 
compagnes de juteuses tran- 
sactions financiers ou de 
grosses ventes de materiel. 
C'est ainsi que Philips vient de 
condure un accord avec 
Sharp dans le domame des 
cristaux liquides. Les zolian- 
dais von I done bienlGt nous 
inonder de leurs darks cristaux 
fabhques dans une usino toute 
neuve (a Heerlen) dont les ma- 
chines auront ete vendues par 
les japs. Quand je pense que 
nous ne sommes meme pas 
foutus d installer une fabrique 
de camemberl a Tokyo... 




US GOLD MONOPOLISE 



Apres S'Stre vu ddcerner un 
bon paquet de recompenses 
pour les logiciels qu'il distribue. 
US Gold ne pense qua une 
chose . laire rnieux la pro- 
chaine fois I Pour ce faire, la 
future celebrissime maison 
d edition distribuera dorena- 
vant. sous ses propres embal- 
lages. les produils de lediteur 
americain Epyx. Le contral a 
ete signe au CES de Chicago 
mais lannonce officielle n'a eu 
lieu qua I 'occasion d'une 
conference de presse lenue 
par le PDG d'US Gold. Geoff 
Brown. Celui-ci s'est montre 
Ires tier et sur de lui : 'Epyx 
est une des plus grosses mai- 
sons d 'edition americaines et 
nous avons negocie en dou- 
ceur la reprise de la distribu- 
tion reali see Jusqu'a present 
par CBS" 
Les bonnes nouvelles vont 



commencer a pie u voir en pro- 
venance d'Anglelerre Sum- 
mergames II. Winter Games et 
FBI devraient sortir a la ren- 
iree, des que les embaltages 
d'US Gold seront prets. Aulre 




declaration sensationnelle de 
G. Brown : le superbe jeu Im- 
possible Mission est en cours 
d' adaptation sur Spectrum, 
commercialisation avant Noel. 



ZIGLOCJBITZ BLOK 

ATTENTION CHTONK MESSAGE 

GLOBOS CODE 



C'est vachement a la mode de 
coder et de crypler les fichiers 
et autres documents informati- 
ques. A lei point que plusieurs 
societes se sont reconverlies 
et specialisees dans ce do- 
na- ne. Vu que tout est bon 
pour gagner des sous et que 
quand it y a de la demands, 
faut faire des offres. Ainsi, la 
socieie MORI A propose une 
carle pour IBM PC permettan' 
des cry plages complexes et 
rapides. Fori heureusement. 
cette meme carte est egale- 
ment capable de decrypter par 



I'operation inverse, sinon on se 
demande a quoi elle servirait. 
Elle possede toutefois I'interes- 
sante parficularile de travailler 
a toute berzingue el peut faire 
du codage a la cadence de 50 
000 caracleres par seconde. 
Roulez jeunesse. 




DESOLE.L'INFORMATIQUE 
C'EST DE LA MERDE ! 



Sv>u? de fa page 1 



malgre lout, les mSventes gonflent 
tes stocks d'mvendus, les fabricants 
ne peuvenl pas sortir tie nouveaux 
modeles avant de finir de faurguer 
les anciens et les revendeurs ne 
peuvent pas acheter les nouveau tes 
de leur collegues pour la meme rai- 
son. Regulierement. un rigolo plus 
fort ou plus ncfie que tes autres 
sort une machine qui transforme la 
precedente nouveaute concur rente 
en vieux machin poussif el hop I 
Tout le monde se casse la gueule. 

MENTEUR ? MOI ? 

J'en vois qui doutent, qui se disent 
c'est pas vrai. il affabule, c'est pas 
possible. Mon oeil. pour prouver 
que je suis un ange de bonte. un 
exemple de gentillesse et que je ne 
fais eel article que contraint par les 
evenements. je vous fais une petite 
lisle des boulettes marquantes de 
ces derniers mois EI pour que les 
specialties de la micro lamiliale ne 
se sentenl pas irop seuls j'y ajoute 
un peu de professionel. C'est parti ' 



CEUX QUI ONT CHUTE, CEUX 
QUI SONT EN TRAIN DE SE 
CASSER LA GUEULE ET 
CEUX QUI SONT MAL 
BARRES. 

ACORN : Flop malgre un million 
de machines vendues en Angleferre 
avec les emissions tele Rachete par 
Olivetti, lui-meme rachete par ATT. 

APRICOT : Vient de oaisser ses 
prix de 25%. Le commencement 
des problemes ? 

APPLE : Fermeture de trots de ses 
6 usines. 20 millions de $ de pedes 
au premier semestre. Recherche un 
acquereur pour se sortir de la 
merde Olivetti-ATT est interesse 

AQUARIUS : Fabrique a Taiwan 
pour Mattel, trois modeles de ces 
engins nullissimes ont ete commer- 
cialises en France par unspecialistedu 
gadget electromque Une experience 
nouvelle qui lui a beaucoup ap- 
pone il sail mamlenanl que lordi- 
nateui est un gadget dangereux qui 



ATARI : 450 millions de dollars de 
pedes avec les consoles de jeux 
video n'ont pas suffil a Atari, il a 
fallu qu'il se lance dans la bataille 
des orriinateurs domesliques. Its y 
ont laissS le reste de leurs plumes : 
600 et 800 XL. les anciens mode- 
les, envahissent tes caves des re- 
vendeurs qui ont eu le malheur d'y 
croire. 

ATARI (bis) : Jack Tramiel. apres 
avoir abandonne Commodore a son 
trisle sort, se lance a fond dans le 
marche' domestique avec le 130 XE, 
balard relooke des 800 XL. Le 520 
ST. aussi prestigieux que le Macin- 
tosh mais beaucoup mains cher. 
est la derniere chance d'Alari On 
murmure que la padie est deia per- 
due faule de fric. 



BULL : 1 Milliard de pedes au der- 
nier bilan. Le Micral 30. compatible 
PC, arrive apres la bataille, deux 
milliards I'annee procbaine ? 



CBS : Ne s'est pas contente de la 
catastrophe consoles de }eux video. 
L'ordinateur Adam, erreur de la na- 
ture avec son imprimanie obliga- 
toire. a continue a laminer les bene- 



128 Ko : Moyen infaillible qu ont 
trouve les fabricants incapables de 
(aire du 16 bits pas cher : on fait 
deux pages de 64 Ko et on annonce 
128 Ko Au voleur ! Apple lie. 
Spectrum 128 Ko. Lansay 128. 
Hector, Thomson T09, Commo- 
dore. Atari 130 X£. Dragon sonl 
dans le couo Tous complices. 

COMMODORE : La chute n'esl 
pas loin. Tramiel est parti, les mo- 
deles se multiptieni et le 128 qui 
aurail pu sauver la marque sera 
Irop cher • plus de 6000 francs - 
les compatibles PC ne changeront 
rien a I'atlaire, ils sont les niemes, 
rien de plus. Pourquai n'avoir pas 
laisse la distribution a Procep au 
lieu de creer Commodore France, 
les indemnites de licenciement des 
nouveaux engages vont couter cher. 



COMMODORE (bis): Vient de 
sortir en France le PLUS 4. Habi- 
tuellement les pro jets foireux de 
Commodore restenl dans les car- 
tons, celui-la il est sorti. C'est une 
merde invendable qui va accelerer la 
(in. 



DARTY : Grand specialiste i 
vente d'ordinateurs morts : de 
l Alice a I'Adam en passant par te 
Philips VG 5000 ou les softs depas- 
ses depuis six mois. Attend avec 
impatience qu Apple le nomine 
concessionnaire. Ne devrait plus at- 
tendre long temps. 

DATA GENERAL : 1300 person- 
nes virees sur les 18.000 employes 
mondiaux. Deficit du deuxieme tri- 
mestre 85 : 10 millions de S . 

DRAGON : Plonge et se fait ra- 
cheter par EUROHARD, des espa- 
gnols. Oil? 

EDICIEL : Traduction de jeux ame- 
ricains nu Hards et edition d'incom- 
mensurables merdes qui ne se ven- 
dent pas : cela n'inquiete aucun des 
dirigeants d'Ediciel. ils conttnuent a 
penser ou a voyager sur le compte 
de Matra et Hachette qui continuent 
a payer. 

EXELVISION : Si la vente de 
6000 machines a I'education natio- 
nale ne s'etail pas laite grace aux 
accomtances Exelvision CGCT 
CGE THOMSON, bonjour le depot 
de bilan Ventes ridicules, la publi- 
cise tele ne suffil pas, surtoul quand 



elle ressemble a celle dune console 
de jeux et que les jeux son! inexis- 
tants. 

FNAC : Esperons que les nouveaux 
proprietaires de la vieilie dame - 
MGF et Habitat - s3uront mettre un 
frein aux achats inconsideres i les 
lournisseurs auronl moins a souffrir 
de chantages ehontes pour qu'ils 
reprennent les materiels invendus 
Ce n'esl pas parce qu'on est le 
champion de la vente des catculet- 
tes qu'il laut se prendre pour Zorro 
en informatique. ca ne se vend pas 
a ta FNAC non plus. 

GOLDSTAR : Ce MSX devait re- 
remplir les caisses d'ASN. ancien 
importateur d'Oric. Les MSX se 
vendant comme des gateaux au 
chocolal aux diab£tiques. les mau- 
vaises langues murmurenl que les 
200 unite's vendues ne seront at- 
teintes qu'en DScembre 85. 

GOLEM : Faux Apple retire' de la 
vente apres un proces gagnS par 
Apple. N'existe plus. 

GOUPIL : Moins de 9000 machi- 
nes instates et plus d'un million 
de gogos se sont precipites pour 
acheter des actions tors de ('entree 
en bourse de SMT Goupil. Aux 
fous ! 

Suite page 59 




L'EIMSEMBLE: 



3490 f. 




ORIC ATMOS+MONITEUR COULEUR+MAGNETO K7 

Performant : On ne prgsente plus 1'ORIC ATMOS : 48 k Octets de memoire, BASIC performant, graphisme haute resolution couleurs, etc... 
Pour afficher clairemcnt ces performances, nous avons fait construire specialement un moniteur couleur, TOR 14 : i! est equipe d'un cable qui se 
branche directement dans l'ordinateur, ce qui facilite les branchements. L'ecran assure un contraste et un rendu des couleurs exceptionnel, et 
l'amplitude a ete specialement reglee pour obtenir un affichage « pleine page ». 



Complet : ('ensemble que nous vous 
proposons est • pret a travailler » (ou 5 
jouer !) : un ordinateur ORIC ATMOS. 
un moniteur couleur 36 cm OR 14 de 
haute quality, et un magnetocassette. 
Vous avez tout de suite tout ce qu'il faut 
pour dfimarrer. 



Evolutif : Bien que largement assez per- 
formant, I'ensemble construit autour de 
1'ORIC ATMOS peut s'agrandir au fur et a 
mesure de ('evolution de vos besoins ou 
de vos connaissances grace a de nom- 
breuses possibility de branchements 



Intelligent : Deja etabli comme un best- 
seller sur le march6 francais, 1'ORIC 
ATMOS a fait ses preuves et beneficie 
d'une trSs large bibliotheque de logiciels 
de toutes sortes (jeux educatifs, applica- 
tions profession nelles) dont un trds grand 
nombre en francais. 



L' ATMOS et les materiels qui I'entourent sont couverts par une garantle constructeur d'un an par EUREKA INFORMATIQUE. qui a 
recemment achete ORIC Angleterre et qui est a ce titre proprietaire de la marque ORIC et distributeur exclusif de ses produits. 



ORIC 



LE TUBE DE L'ETE 



DERNIERE MINUTE: 

LES 101)0 PREMIERES COMMANDtS 

SERONT ACCOMPAGNEES DE 

10 CASSETTES DE PROGRAMME 

GRATUITES. 



Bon de commande a retourner a 

Eureka Mbt rn iAfut 

39. rue Victor Masse 
75009 PARIS 
Tel : 281 20.02 
Telex : 649 385 F 



Code Ville 

desire commander : 

Un ensemble ORIC a 3 490 F □ 



Les materiels suivants : 



Designation 



Ci-joint mon reglemenl par _ 



Disponible chez votre tevendeut ou par correspondence 



(Ajouter 25 F de frais de port si voire 
Un ORIC ATMOS a 990 F □ commande est inferieure a 500 F 






Lundi 5 Aout 


20h30 


C + 


DON CAMILLO EN RUSSIE (mon cur6 
chez les rouges) 


20h35 


FR3 


TOUT DEPEND DES FILLES (homo ca 
pince) 


20h35 




rouges ?) 

SIEGFRIED : Opera de Wagner 


20h35 


A2 


22hl5 


TF1 


LES ATELIERS DU REVE : Egypte 


22h30 


FR3 


THALASSA 


Mardi 6 Aout 


20h30 


C + 


LA GARCE (toutes saut ma mere! 


20h35 


FR3 


FANTOMAS SE DECHAINE Uuve est nut) 


20h35 


TF1 


TAZtEFT : volcans rf 1 


20h35 


A2 


DOSSIERS DE LECRAN I Marly 


21h35 




BYE BYE SHOW BIZ (ca va rire) 

LE CREPUSCULE DES FAUX DIEUX (a 










1 aube du reich en fleur) 


Mercredi 7 Aout 


20h30 


TF1 


LE BATEAU rf 2 


20h35 




JE TAME. MOl NON PLUS (Gamsbourg 
par Birkin) 


20h35 




MESSIEURS LES JURES : L'affaire Fe- 


21h00 




ELLE VOIT DES NAINS PARTOUT (memo 
au panier) 


21h35 




J. CLERC A BERCY 


21h55 




LA FLECHE DANS LE COEUR rf 2 


22h30 




BIENVENUE MR CHANCE (plus nail que 
moi t'es president) 


Jeudi B Aout 


20h30 


C + 


HARO (= MC 2) 


20h35 


FR3 


FANNY ET ALEXANDRE rf 2 


20h35 


TF1 


Mr ABEL (redif) 


20h35 


A2 


LE TIGRE SORT SANS SA MERE (Roger. 

taurais pas du) 

RACINES : le Bresil de J. Amade 


22h05 


IH 


Z2h15 


A2 


DECAUX ACHEVE HUGO (argl..) 


22h15 


FR3 


LARTET LORDINATEUR 


22h05 


C + 


BLACK JOURNAL 


Vendredi 9 Aout 


20h35 


A2 


MARCHELOUP rf 1 


20h35 


FR3 


¥ ANIMAL if 8 


20h35 


TF1 


FORMULE 1 : Julio Iglesias 


21h00 


c + 


UN SOtR AU MUSIC HALL (cine retro) 


21h30 


FR3 


ULYSSE APPELLE MALDITA (Alio! Dys- 
see?) 


21h35 


A2 


APOSTROPHES : Les nouvelles sonl 
bonnes 


21h50 


TF1 


CHAPEAU: Dalida 


22h30 


FR3 


SPECIAL TROPIQUES : Zekle 


23hOO 


A2 


TRAFIC fa tond la caisse) 


Samedi 10 Aout 


20h35 


TF1 


LECOLE DES COCOTTES (Theatre) 


20h35 


A2 


9eme FESTIVAL DU CIRQUE 


20h3S 


FR3 


BOULEVARD DU RIRE (Bd Lanoux) 


21h35 




ROCK'N ROLL GRAFFITI 


22h15 


FR3 


DYNASTIE 


22h50 


c + 


HUMONGOUS (pas de gout) 


Dimanche 11 Aout 


18h00 


c + 


LA BANDE DES OUATRE (la course en 
tele) 


20h35 




LA CHASSE AU TRESOR 


20h35 




MEDITERRANEE 


20h35 




WEEK END A ZUYDCOOTE (beurk-plage) 


21tiOO 




TARTUFFE (la truffe a Gerard) 


211)30 




JAZZ POUR AVERTY 


22fi15 




HARLEM NOCTURNE : Sun Ra 


22h30 




LE DERNIER TANGO A PARIS (introduc- 
tion a tanalogie) 


Lundi 12 Aout 


20h30 


C + 


LA TOUR EIFFEL EN OTAGE 


20h35 




LES OEUFS BROUILLES (Giscard come 
back) 


20h35 




LINCONNU DU NORD EXPRESS (un tres 

grand virtuose) 

LE CREPUSCULE DES DIEUX (Opera Wa- 

BRUNO BETTELHEIM ! Portrait 


20h35 




22h10 


TF1 


23WK) 




THALASSA 


Mardi 13 Aout 


20h30 


C + 


LE VOL DU SPHINX (et le vol du bombyxl 


20h35 




SAS A SAN SALVADOR (Chaos le rou- 
tarti) 


20h35 




LA TERRE DE TAZIEFF : Volcans rf 2 


20h35 


A2 


LE PETIT BAIGNEUR (et le navel va.-.) 






THEATRE : Les violettes 


22h05 




LA GARCE (toutes.. saut ma soeur) 


22h15 




SPECIAL CLIPS : Festival dAntibes 





Mercredi 14 Aout 


20h30 


TF1 


LE BATEAU rf 3 


20b35 




JE TAIME, MOI NON PLUS (Jutien Clerc 
par R. Deslorges) 


20)135 




REGINA (Pizza rechauffee) 


21h00 




LES BRANCHES DU BAHUT 


21h35 




SHOW ROSE : DuUesne Higelm 


22M0 




CARTE DE PRESSE : Mounr a fond la 
caisse 


22h30 


FR3 


LA FLECHE DANS LE COEUR 


22h30 


C + 


TARTUFFE (Le film) 


23h00 




LA VIE COMME CA (Comme ci) 


Jeudi 15 Aout 


20h30 


c + 


L AMOUR PAR TERRE (inconlortabte) 






FANNY ET ALEXANDRE rf 3 


20h35 


TF1 


HOMMAGE JEAN LHOTE : L enlevement 


20h35 


A2 


FALBALAS (Paris chiffon) 


21h55 




LA FEMME A L'IRIS (divertissement) 


22M5 




RACINES : Le Mexique de C. Fuentes 


22h25 




MUStOUE AU COEUR : T. Berganza 


22h25 




PHANTASME (la Vierge s'envoie en fair) 


Vendredi 16 Aout 


20h35 


A2 


MARCHELOUP rf 2 


20h35 


FR3 


BRIGADES VERTES rf 1 


20h35 


TF1 


tf 1 : Yves Duteil 


21h00 


C + 


LUCKY JO (it re-tuke) 


21h25 


FR3 


INTERMAG 


21h35 


A2 


APOSTROPHES : Histoires de couples 


21h45 


TF1 


CHAPEAU : Annie Cordy 


23h00 


FR3 


SPECIAL TROPIQUES 


23hO0 


A2 


LEMPEREUR DU PEROU (un cas) 


Samedi 17 Aout 


20h35 


TF1 


THEATRE : Le Malibraun 


20h35 


A2 


GALA DES GRANDES ECOLES 


20h35 


FR3 


BOULEVARD DU RIRE (nres a lestouf- 
fade) 






ROCK'N ROLL GRAFFITI 


22h15 


FR3 


DYNASTIE (se rend mais ne meurt jamais) 


23h00 




INSEMINOID (in vitro Satanas) 


Dimanche 18 Aout 


20h35 


A2 


LA CHASSE AU TRESOR 


20h35 


TF1 


VACANCES A VENISE (pas de quoi se 
gondoler) 

MEDIltHHMHttz 


20h3fl 


PR3 


21hOO 


C + 


A NOUS LA VICTOIRE (en chantant ?l 


21h30 


FR3 


JAZZ POUR AVERTY 


22M5 


A2 


HARLEM NOCTURNE 


22h30 


FR3 


PARIS MEDITERRANEE (peu cher) 


Lundi 19 Aout 


20h30 


c + 


LA BANDE DES QUATRE (a eux la vic- 
toire) 


20h35 


FR3 


REGAIN (la bonne herbe repousse) 


20h35 


TF1 


LA LOI DU SILENCE (le pur du saigneur) 


20h35 


A2 


GRAND ECHIQUIER : J. Norman 


22h20 


TF1 


BRUNO BETTELHEIM : Portrait 


23h00 


FR3 


THALASSA (magazine a la plage) 


Mardi 20 Aout 






FURIE (ca va baraer U 






LA DERNIERE SEANCE : WESTERN 


20h35 


TF1 


MOI LAFRIQUE : Des Rois. des chaines et 
das pleurs 






LA GUEULE DE L AUTRE (chouette I) 






THEATRE : Orphee aux enters 






LE VOL DU SPHINX (Oedipe blues) 


22h10 


A2 


HCHEFS-DOEUVRES EN PERIL : Les 

vieux coucous. 


Mercredi 21 Aout 


20h30 


TF1 


LE BATEAU rf 4 


20h35 


FR3 


JE TAIME MOI NON PLUS (Delon ) 


20h35 




MARIAGES : Le pont des soupirs 


21h00 




LES MONSTRESSES (poux belles de jour) 


21h35 




HALL YDA Y AU ZENITH 


22h25 


FR3 


UNE FLECHE DANS LE COEUR rf A 


22h35 


TF1 


GRENOUILLES (sans bidouitles) 


22H35 




A NOUS LA VICTOIRE (a toi Madelon) 


Jeudi 22 Aout 


20h30 


C + 


MAGIC (passe ton tour) 


20h3S 




FANNY ET ALEXANDRE 


20h35 


TF1 


LE REVERDIE rf 1 (bien mur) 


20h35 


A2 


INTRIGUE A SUEZ (la tele sur le sable) 


22h15 




RACINES: LAIgenedeK. Yacine 


22h15 


C + 


HUMONGOUS 


22h15 


A2 


EN CHERCHANT EMILE : Docu ethno- 
socio 


Vendredi 23 Aout 


20h35 


FR3 


BRIGADES VERTES rf 2 


20h35 


A2 


MARCHELOUP rf 3 


20h35 


TF1 


FORMULE 1 : 


21h00 


C + 


LE VOYAGE (3eme classe) 


21h30 




MEDICALES : La V!SiOn 


21h35 


A2 


APOSTROPHES : A quoi servent les philo- 
sophes ? 


21h30 


TF1 


CHAPEAU : Enrico Macias 


22hl0 


FR3 


SPECIAL TROPIQUES 


23 WO 


A2 


JUSTICE EST FAITE (film qui tranche dans 
le vif du sujet) 






Samedi 24 Aout 


20h35 


TF1 


: THEATRE : Le vison a cinq pattes 


20h35 


A2 


: CHANTEZ-LE MOI (et moi... et moi... emoi) 


20h35 


FR3 


: BOULEVARD DU RIRE 


22h35 


A2 


: SEX MACHINE : Best of... 


22hl5 


FR3 


: DYNASTIE 


23h00 


C + 


: TERREUR A LHOPITAL CENTRAL 

(Blue's blouse) 


Dimanche 25 Aout 


20)135 


A2 


: LA CHASSE AU TRESOR 


20h35 


TF1 


: LA GRANDE MENACE (HHHHebdo ra- 
chete HHHHersant) 




FR3 


: MEDITERRANEE 


21h00 


C + 


: VIVEMENT DIMANCHE (prochain quon 

bosse) 
: JAZZ POUR AVERTY 


21h30- FR3 


22h15 


A2 


: HARLEM NOCTURNE: The long night of 
lady Day 






I DANS LES RUES (Macadam Swing) 


Lundi 26 Aout 


20h30 


C + 


: LE BOURREAU DES COEUHS (one man 
show Maccione) 


20h35 




: LE JOUR ET L HEURE (rendez-vous !) 


20h35 




: LE FAUX COUPABLE (Hitchcock r6habi- 

lite) 
: CONCERT BRUCKNER 


20h35 


A2 


22h20 


TF1 


: BRUNO BETTELHEIM : Portrait 


23h00 


FR3 


: THALASSA (magazine en vacances) 


Mardi 27 Aout 


20h30 


c + 


■ SOUVENIRS, SOUVENIRS (yeye graffitis) 




FR3 


■ L INNOCENT (Luchmo sent la lin) 




TF1 


■ MOI LAFRIQUE : Nous nous sommes tres 
fich6s. 




A2 


■ PARIS BRULE T-IL (une distribution Den- 
tert) 

■ LES NUITS ET LES JOURS 


21h35 


TF1 


22h05 


C + 


■ FURIE (ca barde) 


Mercredi 28 Aout 


20h30 


TF1 


: LE BATEAU N- 5 


20h35 


FR3 


: EN MARCHANT LONGTEMPS (ga use les 
souliers) 


20h35 


A2 


: D.F. MARQUIS DE SADE (fais-moi mile) 


21h00 




: LES YEUX DE LA TERREUR (mon oeil) 


21h30 


TFt 


i BARBARA A PANTIN (Amsi font font...) 


22h25 


FR3 


: LA FLECHE DANS LE COEUR (fin) 


22h30 


C + 


: VIVEMENT DIMANCHE (on approche) 


Jeudi 29 Aout 


20h30 


c+ 


: LE BAR DU TELEPHONE (it ny a plus 
d'abonnes) 


20h35 




: AMOK (film sud-atricain) 


20h35 


TFt 


: LA REVERDIE rf 2 (vous presente ses 
meilleurs vieux) 


20h35 


A2 


: LAVEU (nous avons les moyens...) 


22h15 




: RACINES : La Sicile de L Sciascia 


22h05 


C + 


: INSEMINOID (spermatozoides en carafe) 


Vendredi 30 Aout 




A2 


: MARCHELOUP rf 4 




f-H.'J 


: BRIGADES VERTES rf 3 


20h35 


TF1 


: FORMULE 1 : Serge Lama (Lama se rit de 
veau Marengo) 


21h00 


C + 


: LIFE WITH FATHER (papa Freud donne et 
maman treudaine) 


21h30 


FR3 


: LES ANNEES PUB (redif.) 




A? 


: APOSTROPHES 




TF1 


: CHAPEAU : G6rard Lenorman 


22M0 


FR3 


: SPECIAL TROPIQUES 


23h00 


A2 


: ITINERAIRES BIS (Oelestage a tous les 
peages) 


Samedi 31 Aout 


20h35 


TFt 


: THEATRE: Donogoo 


20h35 


A2 


: XXeme FESTIVAL DU CIRQUE 


20h35 


FR3 


■ DISNEY CHANNEL 


22h10 


TFt 


■ NUITS VAGABONDES (cloches de nuit) 


22h15 


A2 


: ROCK N ROLL GRAFFITI 


22h15 


FR3 


; DYNASTIE 


23hOO 


c+ 


: EXHIBITION (la solitude de la pornostar de 
fond) 


Dimanche 1 Septembre 


20h35 


A2 


: LA CHASSE AU TRESOR 


20h35 


TFt 


: CARGAISON DANGEREUSE (agiter avant 
de s'en servir) 


20h35 


FH.1 


: MEDITERRANEE 


21h00 


C + 


. LE FRERE LE PLUS FUTE DE SHER- 
LOCK HOLMES 

: JAZZ POUR AVERTY 


21h30 




22h!5 


A2 


: HARLEM NOCTURNE: Billie Holiday rf 2 


22h30 


FR3 


: LE ROMAN DUN TRICHEUR (guide du 
parfait tripoteur) 



■■■■■ Teloche ■■■■■ 



PSY SEX AND 
FUN 



Amateurs de petites culottes, porte-ja- 
retelles el autres falbalas. la tele se 
met a voire niveau pout le mois 
d'Aout. Ayant diffuse tou! I'hiver. la te- 
levision se trouva Ion delaissee lors- 
que te sirocco souflla sur les hertz. 
Aussi les programmes descendent-ils 
en dessous de la ceinture pour racco- 
ler un maximum de spectateurs Vous 
allez regretter de ne pas avoir em- 
mene voire televiseur portable, accou- 
ple au decodeur dusage. 

En avant- premiere, I'HHHHebdo vous 
revele le sexe, le lucre, la luxure et 
I'amouf (toujours l'amour. .) qui vous 
feront vibrer (Masseu !) ce mois-ci. 

FR3 lemporte pour la qualite au- 
dessus du nombnl avec deux films ila- 
liens : 

L'innocent (le dernier film de Visconli) 
el un pur (impur) chef-d'oeuvre, Le 
dernier tango a Pans. Canal + rem- 
porte le pompon du sexe avec ; Phan- 
tasmes (vous pouvez prendre des 
notes), el sans doute le film te plus 
ose de 1'ete ; Exhibition. Les travail- 
leurs des boyaux de la lete ne sont 
pas oublies avec le dernier film de Ri- 
vette : L'amour par terre. Enfin An- 
lenne 2 sauve les meubles avec un 
telefilm sur le marquis de Sade. 

ADAGIO 

L'amour par terre ne vaut pas un 
rendez-vous avec votre dulcine (e) 
(rayer la mensuration inutile). La 
grande maitrise de la direction d'ac- 
leur accenlue le cote amour profond 
et torluri. 

Deux comediennes (G. Chaplin et J. 
Birkin) se retrouvent "prison meres" 
d'un metteur en scene de theatre un 
chouia azimuthe (JP. Kalfon) qui leur 

impose des scenes au gr6 de son ins- 
piration. Un jeune auteur (A. Dusso- 
lier) se retrouve mele a cos improvisa- 
tions et passe de lune a lautre des 
deux act nces. 
Diffusion le 15 a 20h3S sur C+ . 

LENTO 

L'innocent est un bei objel a i'ero- 
tisme delicat, l'amour en dentelles 
cache n6anmoins des pulsions devo- 
rantes. Beau mais languissani 

A la fin du siecle dernier. Tullio (Gian 
Carlo Giannini) et son spouse Giu- 
liana (Laura Antonelli) ont des rap- 
ports chastes. Tullio vil par ailleurs 
une passion tumullueuse avec Teresa 
(Jennifer O'Neil). Au cours de leurs 
etreintes amoureuses Tullio sent, non 
pas que ga vient. mais que Teresa lui 



(Maria Schneider). Leur desir de vivre 
differemmenl leur sexualite (debout 
dans un hamac par exemple). leur 
metier (le chomage), et leurs relations 
avec les autres (plus on est de lous 
moins y a de riz) les continent dans 
un apparlemenl oil ils vivent d'amour, 
d'eau fraiche et de laitages. Une fois 
leur passion ardente apaisee. leurs 
pulsions morbides les emporteront 
dans la mo rt (quand le vil s'affaisse, la 
fesse s'aftlige el la vie s efface). 

Et le scan-da-le ? Au cours d'une 
seance de jambes en lair (exercice 
d'aerobite). Brando, pns dune sou- 
daine envie de sodomiser Maria, lui 
demande le plus nature I lement du 
monde "passe- mo i le beurre". Un 
tabou fut brise, la motte obtint droit 
de parole, car a cette epoque, on ne 
parlait pas de ga, ou alors dans le dos 
des gens. Livre a lui-meme Marion 
Brando, bouleversanl, lient la le role 




sal les pour vous faire com prendre la 
situation : 

- Mais vous savez mon cher. je suis 
aile voir ce film uniquement pour ma 
culture generale, c'etail poignant 
Cette fille... quelle vie lout de meme... 
Diffuse le 31 a 23h00 sur C * . Vous 
tiendrez jusque-la ? 

SCOOP: Toujours plus loin avec 
(C)anal + ! On nous promet pour la 
rentree de vrais films X. Mais oui, 
vous savez, ceux que vous n'osez 
jamais aller voir de peur de rencontrer 
voire voisin de palier. Enfin seul Chez 
soi a labri des regards indiscrels. 
Sympa non ? Pour raccoler des abon- 
nes. Canal + ira-t-elle jusqu'a diffuser 
des films homos (SIOA ne lenail qua 
moi), voire des films sang pour sang 
sado-maso (la oil il y a de la gehenne, 
y a du plaisir) ? 



echappe. II vit mai cette situation (qui 
Iroublerait plus dun male), et decide 
tout de go (de Michelel) den (aire part 
(de cocuage) a sa femme. Or celle-ci 
est enceinte, suite a une liaison avec 
un ecrivaillon. L'epoux se tail mais 
fera perir [innocent 
Diffusion le 27 a 20h35 sur FR3 



ALLEGRO ! 

Le mouvement principal de cette sym- 
phonic en rul majeur est consdtue par 
Le Dernier Tango a Pans. Ce lui le 
scandale cinesyphillique des annees 
70. Les critiques mal lunes se dechai- 
nerent. certames salles refuserent de 
le projeter et les bonnes ames hurle- 
renl : Brando go more (ou gomorrhe. 
je me souviens plus Ires bien). Au- 
jourd'hui le film a penetre toutes les 
salles qui vendenl meme du beurre de 
caca-huetes a I'entracle (avant I'acte. 
c'esl encore meilleur mais les ebats 
restent ou verts). 

Un paume (Marlon Brando) rencontre 
une jeune femme lout aussi paumee 




de sa vie, et Maria Schneider n'esl 
pas moins epoustouflanle. II est a 
noter ega lement les breves appari- 
tions du plus sot de service. JP 
Leaud. 

DlftuBon le 11 a 22h30 sur FR3 en 
V.O. 

ANDANTE 

Antenne 2 refuse de se laisser distan- 
cer el programme Donation Francois 
Marquis de Sade. Helas, trois fois 
helas, c'esl de la video. Une image fa- 
dasse gache des decors nature's su- 
perbes : le chateau de La Coste, lieu 
des extravagances sadiques. Inleme 
Chez les lous a Charenton pour crime 
de sodomie (crime devant ou dernere 
Dieu) Sade ecrivit ses memoires sous 
forme dune piece de theatre, dont 
I unique et historique representation 
fut interprets par et pour les holes de 
lasile. 

Diffusion le 28 a 20h3S sur A2. 

ALLEGRO MA NON TROPPO 

Phantasmes, inedit a la television et 
au cinema, est un medley esthetico- 
pomo. ou des images plus coquines 
les unes que les autres nous pr6sen- 
tenl sous loutes les coutures les plus 
belles lilies du monde dans des 
lenues ultra-legeres Paris phantas- 
mes, Duel sur un court de tennis (et 
non pas sur un court penis), t'Exhibi- 
lionniste (exit le bit ionique). Tous les 
dessous d'un reportage erotique vous 
consoleronl si votre ami (e) esl invite 
(e) au restaurant par le (la) plagiste. 
Au fail, c'esl diffuse le 15 a 22h10 sur 
C • (c'esl lard, mais vous etes en va- 
cances non ?). 

PORNISSIMO llllll! 

Exhibition lut le premier documen- 
ts rB (ou du cul menteur) porno qui e- 
branla la censure. Le film porc-traitait 
une vedette de dims cochons. L'mter- 
view des proches (man (couche-toi 
Id), famille, voisinage) confirman iim- 
pression generale C est un boulot 
comme un aulre, b-anal el roulinier, 
pas bandanl du tou I. Les cense urs fu- 
rent choqu6s par la normahte de la si- 
tuation decrite (une porno-Star ne doit 
pas mener une vie simple el famihale 
sinon il n'y a plus de morale). Un 
commentaire enlendu a la sortie des 



LA BELLE EPOQUE 
DE PAPA 



Que de nostalgie dans vos lucarnes 
magiques, regardez ces larmes qui 
coulenl le long du lube cathodique. 
Vous entendez ces sanglots ? Dans 
ce temps-la. la douceur de vivre im- 
pregnaii tous les gestes de la vie quo- 
tidienne. C'etait la Belle Epoque. Pour 
les bourgeois, parce que la vie des 
autres (la majorite) y a pas de quoi la 
decouper en tranches de lechnicolor. 
Ce mois-ci, vous avez droil a du reve 
en serie : la Suede a la veille de la 
premiere guerre mondiale avec Fanny 
et Alexandre. I'ltalie du debut du sie- 
cle avec La Heche dans le coeur et 
L'innocent, et le Paris mondain des 
annees 30. 

LE MENAGE DE LA SCENE 



laisie humaniste et chaleureuse qui 
s'etale sur une annee, une immense 
tapisserie loisonnante de vie et de 
mort (Adele). La chronique dune la- 
miiie bourgeoise du sud de la Suede 
ne differe guere de celle dune dynas- 
tie lombarde. Les Ekdahl vivent dans 
une petite ville pelrie de traditions. 
confils dans un bonheur douillet. Le 
chef de famille. Helena, veille sur sa 
progeniture. Oscar (le film la eu). son 
liis aine est un brave homme. Bon 
gestionnaire mais acteur nullissime. il 
dinge le theatre, propnete familiale, ou 
loue Emilie sa femme. Apres dix ans 
detremles quotidiennes inoperantes. 
la naissance d'Alexandre (10 ans) et 
de Fanny (8 ans) eiait venu recom- 
penser leurs Iran ses- actions. 
Carl Ekdhal. le cade), est dote dune 
haule slature, dun embonpoint res- 
pectable, dune bonne humeur sans 
faille e! dun amour immodere de la di- 
ve bouleille (ceci explique cela). Le 
benjamin s'appelle Gustav Adolf. Bien 
que marie comme ses deux freres. il 
court apres tous les iuoons qu'il entre- 
voit. puis qu'il entrebaille, puis qu'il ... 
Personne ne soffusque de ses fras- 
ques, pas meme sa femme Alma, une 
solide gailtarde elle aussi. 
La famille est reume pour leter Noel, 
vous y etes cordial emenl invite. N'y 
manquez pas, ce sont des gens de 
bonne compagnie. 

Diffusion tous les Jeudi a 20h35 du 
1erau 22 sur FR3. 

LES SCENES DE MENAGES 

La Heche dans le coeur : Lllalie... 
Ah I Venezia, Roma e Napoli... Le 
Chianti, les pizzas et tutli quanii (plat 
regional milanais). Sur les bords du 
lac de Come. Bruno (10 ans) esl en 
vacances chez son pere avec lequel il 
s' emend a merveille. Dans la propnete 
voisine vil une charm ante dam oi sell e 
du nom de Nicoletta qui impress ionne 
(c'est lepoque) fortement le bambino. 
Ne connaissant rien des c hoses de 
l'amour, il entreprend la vieille (17 
prmtemps) aim de parlaire sen educa- 
tion. Helas. poursuivis par des crean- 
cers. Bruno el son pere doivenl s'en- 
fuir a Paris. 




Les annees passent. Lorsque Bruno 
retrouve au ha sard d'un carrefour de 
Milan son amour d'enfance, ils ouvrent 
leurs larges bras et iaissenl eclater 
leur joie. De courte duree car mariee. 
elle repugne a tromper son mari, Un 
jour de pluie, elle craque el s'aban- 
donne sur un lit qui craque et lache 
prise CRRAAAC au moment oil le cra- 
quanl Bruno eiait en prise. 

El une serie italienne de qualite, une 




Diffusion tous les mercredis du 31 
Juillet au 28 Aout vers 22h00 sur 
FR3. 

L'innocent (voir Psy sex and fun). 
Meme epoque. meme pays. La den- 
telle, les beaux couvre-chefs, les toi- 
lettes en satin, les toilettes en marbre. 
le P Q aux armes de ta mai- 
son... Pholo sublime 

LA SEINE EN MENAGE 

Falbalas de J. Becker (1945) raconle 

les demelfis d'un grand couturier pari- 

sien avec ses multiples maitresses 

Frais, charmanl el original, le film 

nous entraine a la decouverte du 

Paris-Chiffon. 

Diffusion le 15 a 20h35 sur A2. 

Le roman d'un Tricheur (1936) de S 
Guitry se distingue dans I'histoire du 
Cinema par son caraclere unique. II 
est entierement en voix off. L'ironie 
douce-amere dun vieux singe a qui 
on ne la fail plus. 

Diffusion le 2 septembre a 22h30 
sur FR3. 



COMME MEMO 

La commemoration de la fin de la 
deuxieme guerre mondiale ful I 'objet 
dune batailte sanglanle enlre les chaF- 
nes. Certaines ne desarmeni pas. 
meme duranl lete. 

A nous la vlctoire (1981). him de 
John Huslon qui pousse un peu loin le 




ballon. Sous pr6Iexte de demontrer la 
superiorite de la race aryenne done du 
peu pie allemand, done des valeu reu- 
ses troupes du Reich (3eme a droits), 
les autontes national- sociahstes orga- 
nisent une rencontre sportive entre 
des blonds aux yeux bleus et une 
equips de foolbal leurs selection n6s 
dans les camps de prisonniers. 

Quand on defend son pays avec ses 

pieds. on esl heureux de recevoir une 
balle dans la tele en chantanl les 
hymnes patrioliques : Allons tooteux 
de la pa-trieeeuue, le jour de glotre 
esl arrive ou encore La victoire en 
dnbblant nous ouvre la carriere. 
Diffusion le 21 a 21h00 sur C 

Paris briile-t-ll ? : a voir pour ne pas 
oublier que vivre a I epoque de Vichy 
n eiait pas une cine-cure. Le 27 a 

20h35 sur A2 



(5h15mn) Slop, restez la. Bergman, 
c'est pas ce que vous craignez, enfin 
pas cette fois-ci. Finis les deiires me- 
taphysico-existentialistes : Bergman a 
realise un film ro-man-Ii-que. une lan- 



Le jeune Bruno (10 ans) esl remar- 
quable et Terzieff (le pere de Bruno) 
perd enfin son cole ahuri de pares- 
seux au reveil, un lendemain de cuite 
au Fa rnel- Branca 



LA S0IF DE LETE 



La vol du sphynx ressemble a un 
film d'a venture comme de la petite 
biere a du champagne miiiesime (du 
L. Perrier par exemple). Laurent Fer- 
rier, un realisateur qui aurait tout inle- 
rel a rester anonyme, a cru beneficier 
d'une quasi homonymie avec un pro- 
duit petillanl de luxe, las. s'il y a du 
gaz (oil) dans le Ferrier, le resuitai de- 
meure plat. Les acteurs bullent un 
max, Miou-Miou batade ses laches de 
rousseur et Souchon en avenlurier qui 
marche perdu, c'est pas Harisson 
Ford. Une bulle pour Ferrier, c'esl 
pou. 
Diffusion le 13 a 20h35 sur C 

Bien venue Mr Chance ou la vie 

aventureuse du nail Un jardinier 
reclus (Peter Sellers), un homme sim- 
ple qui s'occupe des simples, a pour 
seule vision du monde exterieur 
lecran de sa television devanl laquelle 
il resle plante. Deniche par un parti 
politique, le huron devienl un leader 
ecouie. lui qui ne sail que debitor des 
slogans publicitaires el des dialogues 
de soap-opera Emouvant el causti- 
que. 
Diffusion le 7 a 21h00 sur C * 



■■■■■ TeCoche ■■■■■ 



LES GRANDS 
FANTASTIQUES 



Canal - a le monopole de I'epouvante 
pour i'eie le favoritisme paye encore. 
Les vrais amateurs de sang pourront 
(oujours Jeter une boite de Clou sur 
I'au io route du Sue) le 31 Aout et 
compter les victimes. L'HHHHebdo 
vous garanlit le resullat. 
Attention, ce n'esl pas la peine de fn- 
mer devant voire petite amie, si c'est 
pour vous lerrer sous le canape au 
bout de cinq minutes, 
INSEMINOID nous conte I'hisloire 
(flMIS charmanle bestiole protoplasmi- 
que, un animalcule, dernier represen- 
tant d'une race en voie d' extinction, 
qui feconde les passageres dun vais- 
seau spatial en hors bite. Couveuse 
intersiderale, le vaisseau devient le 
theatre de I'horreur. Les 



de fete. Le maitre eut des disciples : 
Francois Truffaut et Bnan de Pa I ma 
lesquels pousuivirent (elaboration du 
venin pernicieux (mais si dehcieux) : le 
SUSPENSE, 

Pourquoi la persi stance d'un tel 
succes, pourquoi cette fascination sur 
des cineastes dune autre genera- 
tion ? Parce que loeuvre d'Alfred est 
une collection de ciassiques, Les de- 
fa uts, scones et autres imperfections 
sont legion dans nombre de ses films 
mais ils portent tous la marque du 
Maitre. Chaque oeuvre se reconnaft a 
sa facture inlemporelle. Le propre du 
classic is me, c'est la transformation de 
schemas ecutes en une forme par- 
fatte. 

Maigre de multiples demeles avec les 
pioducteurs. d'innombrables proble- 
ms s avec les scenaristes et autres 
adaplaleurs. Hitchcock a lente dans 
chaque film docculter la vrai sem- 
blance du recit. Ce souci de non-co- 




perdent tout, le vaisseau sans gam est 
sang dessus dessous. Ca gicle dans 
tous les sens et par tous les bouts, et 

I art Torre est encore loin. Enter I Et 
damned, nos heros auronl-ils assez 
de plaquettes plaquees plasma pour 
tenir ?... 

le 17 a 23h00 et le 29 a 22h 10 sur 
C-^ 

HUMONGOUS est I'hisloire dune sa- 
vante demoniaque. en residence sur 
une fie deserte. donl le principal 
hobby est la fabrication de monstres 
ihobbm. Mais un beau jour une bande 
de naul rages mal in -formes 
s eehouent sur la plage. Les creatures 
ne se feront pas prier pour alter sou- 
per on the rocks... Le 10 a 22h50 et 
le 22 a 22h10 sur C+ 

LES YEUX DE LA TERREUR La 

vague de crime qui sevit sur Boston a 
deja fait bon nombre de victimes 
Heureusement. une etudiante prend 
I'enquete en main. Mais elle ignore 
quel pent la menace. Le malin est 
ruse, et il aime bien le sang., (poil 
aux dang cong ') Diffusion le 28 a 
21h00surC- 

Voila-I-y pas qu'un desequilibre de la 
cafetiere a une dent contre une pre- 
sentatnce vedette de la tele qui s'est 
retranchee dans un hopilal de la viile. 

II va semer la TERREUR A 
LHOPITAL CENTRAL , le 24 a 
23h00sur C- 

Bonnes nuits... 



FRISSONS 



C est pas parce que c'est lele que 
vous aurez pas droit a voire Hitchcock 
hebdromadaire. Si comme moi vous 
etes lanas de ce vieux chameau, vous 
allez pouvorr vous adonner a voire 
plaisir solitaire la degustation dune 
tranche de frissons pervers. Les ceus- 
ses qui naiment pas Alfred peuvent 
saute r cette colon ne. 

Amateurs, aficionados, accros aux 
basques du vieux pingouin. ta tele 
d'ete vous offre un frisson voluptueux 
chaque lundi durant les 10 semames 



herence resulte non pas dune incapa- 
city congenitale bfitannique (non- 
sens), mais sinscrit dans une tenta- 
tive de manipulation totale du specta- 
teur. Chaque sequence du film est 
dramatisGe a r extreme du supporta- 
ble. I'attention est soutenue, la tension 
est cons tan te (la tante Si on est 
contente), ladrenahne irrigue nos cer- 
velels, le palais s'asseche. les gorges 
se serrenl, voire petite amie vous lord 
le bras.... argh.... la grande frousse, le 
pied quoi ! 

Le sacrifice de la vrai semblance au 
profit de I 'emotion pure resulte dune 
accumulation de details plus mcongrus 
les uns que les autres. La desinvollure 
du Maitre repose sur des lemmes re- 
connus comme par exemple la theorie 
du Mac-Guffin : le centre de gravile du 
film repose sur un pretexte futile inter- 
changeable a merci. un gimmick nom- 
britesque Selon Hitchcock, il aura it 
ete cree par Kipling. Voici la definition 
du Maitre a consommer avec un dou- 
ble scotch et trois aspirines. 
Deux hommes voyagent dans un train 
en Ecosse 

- "Qu'est-ce que c'est que ce paquel 
que vous avez place dans le filet ?" 

- "Ah ga. c'est un Mac-Guffin." 

- "Ouesaco ?" 

- "Eh bien, c'est un appareil pour at- 
traper les lions dans les montagnes 
Arondak." 

■ "Mais il n'y a pas de lion dans ces 
montagnes.' 

- "Dans ce cas, ce n'esl pas un Mac- 
Guffin." 

L'exempie le plus abouti demeure le 
personnage de Kaplan dans La mort 
aux trousses (North by Northwest) 
Tout le monde court apres Kaplan le- 
quel n'a pas d existence reelle. 

Presque lous les films racontent une 
histoire de course-pour suite, d'inno- 
cenl accuse dun crime et poursuivi 
par la police ou el lassasm ou encore 
d'echange de cnmes. 
Pour illuslrer le blablabla ci-dessus 
Cmquieme colonne, L inconnu du 
Word- Express, La lot du silence, Le 
laux coupable 

• Cinquieme colonne (Saboteur) 
durant la seconde guerre mondiale, un 
jeune ouvrier d'une usme^ 1 armement 
est accuse de sabotage II senluil. 



rencontre une |eune lemme moiorisee 
qui veut d'abord le livrer a la police, 
puis accepte de I aider a retrouver le 
saboteur, un espion nazi. 
Diffusion le 5 a 20h35 sur TF1 

2- L'inconnu du Nord-Express 

(Strangers on a train) : dans un train, 
deux inconnus bavardent, echangent 
leurs coordonnees et leurs preoccupa- 
tions : une parentele odieuse. Bruno 
(Robert Walker), un chouia desequili- 
bre. propose de permuter les meurtres 
des indesi rabies, seute solution a 
leurs problemes et de plus sans dan- 
ger. Guy refuse 6nergiquement, mais 
le timbre elimine neanmoins la femme 
de Guy en esperant la reciprocite du 
crime. Guy main tie nt son niet. 
Funeux. Bruno essaie d'accumuler les 
indices contre Guy. 
Diffusion le 12 a 20h35 sur TF1 

3- La loi du silence (I conless) : un 
avocat surprend un sachstain en train 
de le volar Dans le combat de robes 
qui s'ensuit, lensoulanne peu amene 
lui fait le coup du Pere Francois (el 
pas qu'un peu). Amen. Le bedeau 
court confesser son crime au pere 
Logan, auquel il a emprunte son vete- 
ment. Le pere Logan est bien em bete 
car r avocat le laisait chanter (dime 
dime dime dam dom}. 

Diffusion le 19 a 20h35 sur TF1 

4- La faux coupable (The wrong 
man) : Un musicien est arrete pour 
plusieurs vols a main arme. Ce pere 
de famille, pieux et probe ne 
comprend pas pourquoi tous les te- 
moms le reconnaissent. II neconvamc 
person ne (famille, voisin, autorites...) 
de son innocence. 

Diffusion le 26 a 20h35 sur TF1 

Les deux emules dAlfred. Francois 
Truffaut et Brian de Palma. vous pro- 
pose nt deux de leurs bobines 

Furie (1978) maigre la presence de 
Kirk Douglas et de John Cassavettes 




n'esl pas le meilleur film de Palma 
(Body Double?). Le directeur d'une. 
agence de contre-espionnage a re- 
cours a des cobayes dotes de facultes 
para- psych iques : premonition, tele-ki- 
nesie, tel e-transe- pore a Sion (Cash- 
air) Une tres belle photo neanmoins 
Diffusion le 20 a 20h30 et le 27 a 
22h05 surC + . 

Vivement Oimanche ressemble a sang 
pour sang a du Hitchcock de la meil- 
leure veine. Le dernier film (1983) de 
Truffaut nous conte une histoire abra- 
cadabra nte dans le style du maitre 
Loin de decalquer The Alfred Touch, 
le petit Frangois lui rend un hommage 
appuye mais ires personnalise. Le 
suspense est volontairement gomme, 
les dialogues surabondent et les ca- 
racteres psycholog iques ne souffrent 
pas d'un exces de coherence. 




d'avoir lue un ami pendant une partie 
de chasse (d'eau. a force de tirer la 
bobinelte. la chevillette cherra). Du 
coup. Barbara convaincue de I inno- 
cence de Vercel (sans cervelle) se 
mue en privee afin de raider. Fro- 
mage de lete mais bon coeur, elle ac- 
cumule les gaffes, mais Longtarm 
(Fanny Ardant) reussira nez en moins 
sa mission. 

Diffusion le 2S a 21h00 et le 28 a 
22h30 sur C + 



TRANCHES 
DEVIE 



L'6t6, il faut e-li-mi-ner. Les fonds de 
tiroirs, les restdus de poubelles, les 
faces B prennent done la premiere 
place sur vos ecrans. 

Marcheloup est une serie agricole 
deja diffusee en qualre episodes que 
deux volets in edits prolongs nt Au 
debut du siecle. larrivee des machi- 
nes agricoles provoque un conflit de 
generations, le doyen est contre ces 
pratiques pour le moins barbares, 
tandis que le jeune (partisan du moin- 
dre effort) prone la mecanisalion. 
Tous les vendredis a 20h35 sur A2. 

La reverdie est un conte pour sexa- 
genaire. Le sexe age erre en quele de 
con.vit via Libe. Les frippons frippes 
attend eni encore pas mal de choses 
du peu qui leur reste a vivre (on 
noeud vit eul noeud foi). C'est frais et 
pleln de bons sentiments, Muse D'AI- 
bray et Jean-Pierre Aumont nous de- 
montrenl. une fois de plus, que les ac- 
teurs comme le vm se bonifient en 
vieillissant. 

Deux parties seulement les 22 et 29 a 
20h35surTF1. 

Le bateau : un sous-marin allemand 
le U 96 part en mission en 1941 dans 
I'Atlantique-Nord Son objeciif est de 
couler les cargos. escortes par des 
destroyers eux-meme accompagnes 
de corvettes I qui pechent la crevetle). 
qui ravitaillent en armes et vivres le 
dernier rem part de la democralie 
I'Angleterre. 

Apres 20 jours de navigation solitaire, 
les embarques s'ennuient a mourir, 
les matelots matent reau sans deni- 
cher la plus petite embarcation enne- 
mie. Les marines avides de combat 
S'avinent, et les marins saouls errent 
dans le sous-marin a la recherche 
dune querelle (de brochet). La tension 
monte et (attention descend quand 
soudain le radio capte la presence 
d'un convoi anglais., 




Vivement dimanche Barbara secre 
taire de Vercel (J-L Trintignant). agent 
immobilier. est congediee par son pa- 
tron Lequel est aussilot accuse 



Au gre des episodes, les escarmou- 
ches se succedeni, les escarres el les 
mouches aussi Les combattanls 
joueni a louche torpille. |e te rale, lu 
m'effleures, on se louche, ils s'ecla- 
lent Apres les combats, on compte 
les points (U 2 louche. V 1 coule) et 
on panse les piaies loul en pensant 
au plaid at home Le U 96 renlrera au 
bon port dattache. retrouvanl la bitte 
damarrage a 'aquelle lous aspirent 
(Ach la digue, la digue du cut,.). 
Le boucher est ouveri tous les mer- 
credisa 20h40surTF1, 



LES NANARS 



Voici le classement des plus 
films du mois d'Aout pour les ama- 
teurs de nanars. 

C'est Aldo "la crasse" (celebre par sa 
demarche : commercial) qui decro- 
che la queue du mickey avec Le 
bourreau des coeurs ou les tribula- 
tions d'un dragueur de mines (ettes)" 




II est suivi de pres par Les branches 
du bahut lesquels ont oublie qu'au 
mois d'Aout la rentree scolaire elait le 
cadet de nos soucis. 

Le bar du telephone de Marseille, je 
ne vous le recommande pas, le pastis 
de cinq he u res a un airier e- gout de 
pruneau , e> les gens quon y fre- 
quente ne sont pas d un juste milieu. 
Si Elle voit des nains partout, elle 
lerait mieux de prendre ses jumeiles a 
lendroit. Ca lui eviterait sans doute de 
(aire un navet d'une piece de cafe 
theatre potable. 

Vous savez que le pauvre Eddie 
Constantino est venu seulement Un 
soir au music-hall, pour y alter de sa 
gigue el pousser la chansonnette ? 

Ce vieux libidineux de J. Carmet selon 
lequel Tout depend des titles aurail 
mieux lait de dependre des andouilles. 
Paris Mediterranee, c'est Ihistoire 
d'Analole Biscotte qui ne mange pas 
pain. 

Dans les goulags sibenens, ils 
navaient meme pas un decapsuleur 
alors ils ont fait venir Fernandel aux 
machoires d'acier alias Don Camillo 
en Russia qui ne mache pas sa bible, 
Si un soir vous n'avez rien a fairs. 
vous pourrez alter (aire un lour Dans 
les rues. 

Heureusement que Cayatte est la 
pour innocenter les coupables el ac- 
cuser les innocents grace a lui Jus- 
lice est falte. Badin, terne. 
La bande des branquignols na pas 
pris le soleil et fail pale mine avec son 
Petit balgneur. Louis le funeste a lou- 
joursses tics. 



PALMARES 



30 semames de critiques tele repre- 
ss nte nt une masse impressionnante 
de projections que vos servileurs su- 
bissent pemblement. Dans I ensemble 
de la programmation des qualre chai- 
nes, il n'est que justice de decerner 
des recompenses aux oeuvres les 
plus nulles. Dans la categorie tele- 
films, le jury attribue a lunanimite 
plus une voix: 



fETBON DOR A 
VIVEUMARIEEA2(84) 



LA BOUSE D'ARGENT AU 
MIR0IR0PAQUETfl(84) 



LE CACA DE BRONZE A 

LE SOLEIL DES AUTRES FR3 (84) 



Categorie films cinema 



LACHIURE DE BRONZE A 
COURAGE . FUY0NS (83) SUR C+ 




ORIC ATMOS+PERITEL+AUM+3CASSETTES DE JEUX 



LOGICIELS ORIC 1 



ASSEMBLER DISASS 

ASTEROIDS 

GAUM 3 

CASSE8RIQUES 

CENTIPEDE; CHE NIUE INF. 
WCO 5 

DINKY KONG 

EUROPE OU OEOFRANCE 



INTERTRON 
MONITEUR 1 
MULTIGAMES 
ORIBLE 
ORIC FLIGHT 
ORIC FORTH 
ORIC MON 



GALAXY 5 

GENCAR 

HOPPER OU JOGGER 

HVPER MASTER M1N0 



SPACE CRYSTAL 
STARFIGHTER 
THE ULTRA 
TRAITEMENT 3D 
WORD PROCESSOR 
ZODIAC 



PERIPHERIQUE & ACCESSOIRES 

Moniteur couleurs OR14 2750 

Cable peritel avec alimentation 1 50 

Moniteur monochrome vert 950 

Cable pour moniteur monochrome 80 

Modulateur pour tele noir et blanc 260 

Magnetocassette ZETA 350 

Cassettes vierges (les 10) 75 

Imprimante 4 couleurs MCP40 1290 

Imprimante 4 couleurs MCP80 2850 

Cable, pour imprimante 1 50 

Interface joystick programmable 350 

Joystick QUICKSHOT 1 95 











LOGICIELS ORIC 1 


& ATMOS 




30 INVADERS 


79*6 


J APPHENDS LA CAO 


13520 


ACHERON S RAGE 


7948 




11267 


L'AIGLE O OR 


135-20 


COMPILATEUR BASIC 




ANNUAIRE 


10555 


LE PROTECTOR 


71 16 


ASOESAS 


112.67 


LOTOR1CIELS 


90 14 


AUTHOR 


I30 4B 


MYSTERY TOWER 


79 46 


CHESS 


79.48 


ORIC BASE 


. 112.67 


CRI88AGE 


7946 


ORIC BASIC PLUS 


112.67 


CROCKY 


90 14 


ORIC CALC 


130 46 


D.A.O. 


112 67 


ORIC GESTION 1 


142.32 


OAMBUSTER 


79 48 


ORIC GESTION 2 


142 32 


DEFENCE FORCE 


71 16 


ORICADE . 


97.25 


DONT PRESS LETTER Q 


79.46 


ORION 


71 16 


DRAUGHTS iDnmesi 


79.48 


OR 1 SCRIBE 


17197 


FRIGATE COMMANDER 


74.T2 


PROBE 3 


6639 


GASTRONOM 


71 16 


QUACK A JACK 


7946 


GESTION DE STOCK 


135.20 


RAT SPLAT 


7946 


GHOST GOBBLER 


8S39 


SCUBA DIVE 


79.46 


GODILLOHIC 


71 16 


SUPER COPY EC HAN 


112.67 


GREEN CROSS TOAD 


B539 


SUPER FRUIT 


79 46 


HARRIER ATTACK 


79 46 


TRICK SHOT 


79 46 


HU'BERT 


90 14 


ULTIMA ZONE 


7946 


INVADERS 


8539 


XENON 1 


97 25 


J APPHENOS L ANGLAIS 


10555 


ZORGON'S REVENGE 


88 95 



PROMO LOGICIELS ORIC 1 

6 best sellers des jeux 

d'arcade pour ORIC 1 

pour 200 F! 



ORIC 



LE TUBE DE L'ETE 



Oisponible chez votre revendeur ou par correspondence 

EUREKA INFORMATIQUE, 39, rue Victor Masse 75009 PARIS 

Pour commander, utiliser le bon a decouper de la page precedente. 



CW0CHE t 



edito 



Salut ! C esl les vacances I Et on til el 
on s'amuse ! Et on n a plus a se de- 
carcasser toutes les semaines pen- 
dant un mois a vous pondte nos pa 
p lards a la force des baionnettes. 
dans mon cas, seulement. 
Parce quit ma sembie qu'il est main- 
tenant grand temps de vous avouer 
que nous ne sommes pas libres de 
nos mouvemenls. Nous sommes se- 
questres pas des puissances occuites. 
dans la meme cave depuis maintenant 
6 mois. 

Nous ne voyons plus la lumiere. Nous 
ne savons plus les bulles du Pape 
Nous sommes coupes de toute infor- 
mation du monde exterieur. 
Ce que vous lenez entre les mams est 
un abominable journal de propaganda 
et de messages codes a I'intention 
des supeheurs de nos geollers que 
nous n'avons meme jamais vus I 
Chacun notre tour nous sommes 
forces de Iraduire les impulsions qui 
nous son i envoyees dans le cerveau 
par le biais d' electrodes im pi an tees. 
en divers caracteres que nous dechif- 
frons a peine, et que vous etes per- 
suades de com prendre 
Mais ne voyez-vous done pas que 
eela fait juslement pa me de cette pro- 
pagande infame qui vise a nous de- 
truire, a vous detruire. a detruire le 
monde entier ' 



Us essaient de vous convaincre que la 
race humaine est vouee a I'echec et 
qu'il n'y a qu'eux qui peuvent garanbr 
lavenir de la civilisation Mais cast 
faux, nous le savons de Marseille, 
notre agent du Sud, leur but est de 
conquerir cette boule de matidre 
qu est la Terre. pour en (aire une de- 
charge intergalactique ou un parking 
geanl ! 

Nous enons les premiers sur leur liste 
car ils consideraient nos activites par 
trop subversives mais c'est pire que 
ca ; non contents de commencer par 
notre journal, ils sen son! pris a cha- 
cun des redacteurs separement. 
II aurail eie Irop facile de jeter une 
bombe de gaz etouffant dans les lo- 
caux afm de nous aneantir tous d"un 
seul coup, ils onl preiere nous prendre 
un a un. qui sur le pas de sa porte. 
qui dans le metro, qui sur sa moto. 
Mais ils se sont acharnes sur moi. ils 
m'ont d ... 

Afi ' Lachez-moi f Non ! Pas la piqure '. 
Pas ca I Pas la camisole ' 
NOOOOOOOOOON III) 

NDLR ■ La Redaction dHebdogiciel a 
le regret de vous annoncer t'inteme- 
ment de notre cotlaborateur Clou, pour 
une duree de 4 semaines, a la suite 
dune chse argue de paranoia estt- 
vaie ■ 

Clou, avec plein de bisous sur vos 
Joues deja halees.... STOP ! 
OUF ! II s esl arrele I 



LA GRANDE MAGOUIIXE 

de Robert ZEMECKIS 



Avec Jack WARDEN (qui joue 2 
roles totalement opposes et c est 
loin d'etre evident, de sagesse), 
Kurt RUSSEL (le genre de type qui 
seralt capable de vendre la Tour 
Eiffel a Jacques Chirac. On vlent de 
I* voir dans Un Ete Pourrl), Debo- 
rah HAMON (la fllle du gentil) et Al- 
fonso ARAU (Is mec qui joue le tra- 
flquant Colombian au tin fond de la 
jungle dans La Pour suite Du Dia- 
mant Vert et qui a realise Mojado 
Power cl U B2). 1H40. USA. 1931 
15/20. 



Et encore un film de Zemeckis. un ' 
Le deuxieme en un mois. apres Crazy 
Day ! 

2 freres ennemis vendent des vortures 
d'occasion. de part et d'autre de la 
meme route. L'un. Roy, esl retors, 
mechant. corrupteur. L'autre, Luke, est 
gentil. doux. affable el a lavaniage 
davoir un vendeur du tonnerre don! 
on peut souvent douter a jusle trtre de 
la bonne toi. Rudy Russo. 
lis sont opposes sur le projet dune 
auloroute devanl passer par la. Roy 
ayant achete tous les pollticiens du 
coin pour s'assurer de la non-concur- 
rence de son trere II donne meme un 
coup de pouce supplemental re en fai- 
sant (aire un tour de stock-car a Luke, 
cardiaque. par un de ses employes 
II en meurt et Russo est oblige de ca- 
cher le corps de son patron et de faire 



ctoire qu'il est parti se reposer a 
Miami pour ne pas laisser Roy heritor 
de I affaire Mais ainsi s'evanouissent 
les espoirs de Rudy de se presenter 
aux elections senaloriales. car Luke 
venait juste de consents de lui preter 
les 10000$ necessaires. La seule so- 





lution est de vendre, vendre. vendre ' 
Par tous les moyens I En faisant de la 
publicite pirate a la TV par exemple. 
et pourquoi pas pendant I allocution 
televisee du President ! 
Ale ' La fille de Luke qui n'avait pas 
retail surface depuis 10 ans reapparait 
et veut absolument revoir son papa 
Rudy lui assure que son pere et ve- 
nere patron est a Miami, mats elle de 
couvre le pol aux roses el reprend le 
magasm. Elle fait une publicite televi- 
see tr6s serieuse celle-la. mais qui esl 
trafiquee par Roy qui peut ainsi I'atta- 
qusr pour publicite mensongfire. en 
effet 1 1 a fail remplace le mol "style" 
par "mile" quand elle annonce qu'il y a 
chez elle "le style de voiture que vous 
cherchez" Un mile de voiture. cela 
correspond a environ 250 voitures. 
quelle n'a evidemment pas en stock 
Mais Rudy, qui n est pas insensible a 
son charme. ni elle au sien non plus 
d'ailleurs, va lui sauver la mise en uti- 
lisanl les tOOOOS qu'il avail reunis 
pour sa candidature, pour acheter 240 
tas de leraille qui rouient i ') a un 
contrebandier mexicain, en les laisant 
conduire par 240 lyceens du coin qui 
arnveront |usfe a temps pour lartrvee 
du juge et de son metre OUF ' 

Si encore une fois j'ai mis des lignes 
et des lignes pout raconler I'htsloire. 
e'est que je crois bien que c est le 
meilleur mo yen de vous persuader 
que e'est bien, d'autant plus que sur 
les photos vous avez quand meme un 
apercu appreciable de la teneur du 
delire 

Smon comme d habitude chez Zeme- 
ckis dont je suis un neo-fan. rien a re- 
dire, si ce nest certaines baisses de 
regime a deux ou trois moments, mais 
sans vraiment etre importantes, alors, 
d'abord ' 



LE DERNIER DRAGON 

de Michael SHULTZ 



Avec TAIMAK (nolr et karateka), 
VANITY (n'est lei pas un vain mot, 
mais elle a franc heme nl de quol. 
plus connue dans son groups "Va- 
nity 6", fait partie de la bande 
Prince and co.), Chris MURNEY (le 
mechant megalo blanc) et Leo 
O'BRIEN (mais d ou sort ce goese 
genial?). 1H49. USA. 15 20. 



Voila un film ou on ne sennuie pas 
une minute el ou on se fend bien la 
peche. I'ideal pour lete C'est vrai que 
ce n est pas le seul dans ce cas-la,, 
mais comme de loutes manieres il y a 
plus dune soirfie de libre pendant les 
vacances... 




hse une video de sa maitresse. tanne 
Vanity pour quelle la proiette Elle re- 
fuse. II se 'ache el tente de I enlever. 
Ca foire une premiere tois parce que 
Leroy arrive a temps, et vas-y prends 
ca dans la tranche, lu verras les eioi- 
les, et ca dans le bide, pendant que 
t y seras, iette un coup d'oeil par terre 
pour voir si tu trouves pas mes cles 

?ue j'ai paumees. 
ar contre la 2eme fois ca marche, el 
Leroy va devoir affronter le che' du 
gang engage par Eddie qui n'esl autre 
que son ennemi jure, gasp ' Quel in- 
soutenabte suspense ' 
Ca a lair tres nunuche comme ca. 
mais croyez-moi, vu les personnages 
ca devieni beaucoup plus dr6le i le 
frere de Leroy de 13 ans se foul de la 
gueule de son frangin parce qu'il ne 
s'est jamais sorti une nana, ou bien 
parce qu'il s'y Cfcnl completemenl 
dans son trip nipponophile. 
II y a plein de gags dans le film, mais 
y a pas a dire, c'est vraiment la fin du 
film qui vaut son pesant de cacahoue- 
tes. 

La baston gene; ale entre les hommes 
d Eddie et les eleves de Leroy est tres 
droie. el tres bien reglee, elle est bien 
longue ef lout, comme il faul pour bien 



mais "quand va-t-il se decider a se la 

faire 7" 

C'est un pastiche total des class iques 

du film de karate : 

- le jeune disciple qui se fart chamer 




Leroy, jeune virtuose du karate pas 

vraiment "fule-fute" apprend par son 
ma'tre, qu'arrete pas de deconner. 
qu'il esl maintenant temps qu'il aille 
chercher ce qui esl necessaire pour 
qu'il soil enfin un mailre, II lui file un 
talisman et I'envoie se faire voir ait- 
leu rs. 

II son de chez son mailre et, 6 sur- 
prise, ce con -la est tenement louf qu'il 
est sape comme un chinois avec cha 
peau de paille et tout le tralala folklon- 
que ' 

II rencontre par hasard Vanity, reine 
dune video- boite de nuit branchos. 
Eddie, producteur vereux, ayant rea- 




appiecic ce genre de combat 
C'esl tres droie et en fait tout le sus- 
pense du film nest pas sur 'va-t-il 
reussir a oe|ouer les mechants ?", 



pai son mailre ngolard (tu pars pour 
un voyage meditatif. maitre ? Non. 
non, je vais rendre visile a ma mere 
en Florida). 

- le heros noir se comporle toialement 
comme les Chmois (style David Carra- 
dine dans Kung-Fu) et les Chinois font 
du Break Dance sur le Irotloir avec un 
enorme ghetto- blasler et patient 
comme des Nolrs. 

- Le jeune Irfire n'arrete pas de se 
foutre de la gueule de son grand pu- 
ceau de frangin 

Brel, e'eet encore un de cee films 
agreables a regarder, meme si on a 
un peu de mal a entrer dans ce cote 
kilch a mort du film. 
Sinon. la musique esl bien. vous de- 
vhez acheter le skeud'. 



AMERICAN COLLEGE 

deJohnLANDIS 



Avec John BELUSHI (Yahou ! Meme 
que c'est pour ca qu'il est sur les 2 
photos I Putaln. genial le mec, en- 
core I J'dlrai meme, pour les ceus- 
ses qu au relent une bonne vue dou- 
ble* d une bonne memoire, que son 
trere James fart une apparition de- 

?uise en singe dans Un Fauteuil 
our Deux, ressorti II y a peu). Tom 
HULCE (le tutur Mozart dans Ama- 
deus), Tim MATHESON (le beau qui 
se drague et se fait toutes les gon- 
zesses qui trainent sur le campus), 
Karen ALLEN (que depuis le temps 
que |'en chsnte les louanges toutes 
les deux semaines, vous devez la 
connaitre) et Donald SUTHERLAND 
(Casanova dans le Casanova de 
FHIInl). 1H50. USA. 1980. 15 20, 



Masseu. la crise ' 

V'souvenez que dans le 92 je me plai- 

gnais que les mecs ne ressonaient 

pas les meilleurs films ? Eh ben la. Ms 

onl tout juste 

Chuis un fan de John Belushi. et dire 

que ce con-la s est flingue en 82 avec 

une OD de speedball. Sans dec', j ap- 

precie pas ' 

II aurail ou faire un effort, quoi merde 




a la fin ! C'esl pas parce qu on 
commence a avoir plein de Ihunes 
qu'il faul obi igatoir erne nt sacrifier a la 
mode et sniffer de la coco ou pire ' 
Treve de digression anti -drogue el 

Pour bien piger ce film, il taut d'abord 
savoir que 

- "College", ca veut dire lac Le col- 
lege francais se traduit par "Junior 
high school", et le lycee par "High 
school" (confidential ' OK, Jerry Lee, 
let's do it Q 

- "American" ca veut dire americain. 
Attention, ce qui en francais corres- 
pond a "americain", esl chez eux 
"amencan" (prononcer mainqueune) 

- Dans les universties ricaines M y a 
ce qu on appelle des fratermles (pour 
les mecsl ou des sororites (pour les 
nanas) Ces Iraiernites sont des re- 
groupements d'etudianls pour des rai- 
sons plus ou moms vaseuses. genre 
meme classe sociale. meme goiils. 
memes eludes, meme taille, mfime 
poids. meme mere, you name rt ' 
Maintenant vous etes armes pour sui- 
vre sans probl ernes 

Deux bizulhs sonl rejeles par la Ires 
snob fraiernite Omega Theta Pi. en 
desespoir de cause Ms sont acceptes 
par la 'pire" des Iratemites du 
campus, la Delta Tho Khi. dile la me- 
nagerie. 

Le doyen la dans le cohmateur depuis 
un certain temps, et trouve au fin fond 
de son reglement. une clause qui lui 
permet de la placer en quasi etai d'ur- 
gence a la moindre bavure, bavure qui 
evidemment ne manque pas d arnver. 
vu que les Delia sont touiours en tram 
de se meltre plus ou moms sur la 
gueule avec les mecs d Omega. 
A la fin de I'annee. comme leur notes 
sont toutes nulles. le doyen decide 
avec lapoui franc et massif des n- 



chards de i Omega de les radier pure- 
menl et simplemeni de letablisse- 
ment. 

La nposte des 'ous de Delta ne se fait 
pas attendre bien longtemps : la pa- 
rade de chars annuelle dans la ville 
voisine esl I occasion rftvee pour un 
sabotage en bonne et due forme. 

Vous dire que c'est tres droie et que 
tevoir ce film me fut un prinlemps ne 
fait certainement pas de doute dans 
voire esprit. 




Vous avez rien a faire ce soir ? 

Vous cherchez un film ou emmener la 

nana ou le mec de vos reves esti- 



MAE WEST, LA REINE 
DU MONDE ENTIER ! 



Mae West, la plus grande star ! Elle a 
beau avoir commence sa earn ere a 
Broadway dans les annees '20, des 
1932 elie devini la plus grande star, a 
sa maniere 

A sa maniere, parce quelle avail en 
lace d'eiie la Garbo et la Dietrich. El 
sa maniere cetait. . le sexe ! En etfet. 
on peui presque dire que Mae West 
est la premiere pomo-slar du 20e sie- 
cle. Elle faisait du sexe sans hen 
montrer, a part ses formes, dans ses 
robes extravaganles et hyper-moulan- 
tes. 

La legende voudrail meme que la 
bouteille de Coca-Cola fut dessinee 
dapres ses formes, qui correspon- 
datent aux canons de lepoque (voir 
un bronze de Rodm, genre "Le Bai- 
ser"), el faul avouer que le style bien 
en chair est certainement plus ave- 
nant que les planches a pain qu'on se 
cogne depuis Twiggy. 

Mae West est le symbols de la liberie 
sexuelle. de t' independence, de la fe- 
minite et du lemmisme. Pas question 
de lui imposer quoi que ce son. pen- 
dant son epoque Broadway, elle ecn- 
vit toutes ses pieces Elle (it 11 films 
de 1932 (Night After Night, avec 
George Rati) a 1970 (Myra Brecken- 
ridge avec John Huston el Raquel 
Welch, elle avail pres de 80 ans |), sur 
ces 11 films seuls 4 scripts ne son! 
pas d'elte. donl un tire dune de ses 
pieces. Mais elle sest touiours 
le dtorl decrire ses dialo- 
ei ses one-liners". 



- CG . Vous enez merveilleuse ce 
SOir. 

- MW Je suis loujours merveilleuse 
la null... 

- CG ; Ce soir |'ai pense que vous 
etie* specialement bonne 

• MW Quand je suis bonne, je suis 
Ires bonne Mais quand je suis mau- 
vaise. je suis encore meilleure. 

- CG . Si ie pouvais seulement vous 
faire contiance... 

- MW ; Vous pouvez (tongue pose a 
la West) des centames l ont fail ! 




LA CAVALE IMPOSSIBLE 

de Stephen GYLLENHAAL 



Avec Tatum O'NEAL (la fille de mon 
acteur pas du (out favorl, et si je ne 
m abuse, a molns que je ne sols en 
retard de quelques potins, la gon- 
zesse de John Mc Enroe, que 
meme que quand on la volt elle, 
puis quand on le volt lui, on se dit 
que c est du gachis. Elle est belle, 
elle est rousse et elle joue vache- 
ment bien) et Irene CARA {Flash- 
dance, elle aussl est belle et joue 
bien) et avec I'amicale (ca se dit) 
participation de Peter FONDA (qui 
ne fait pas grand chose d'autre ces 
dernieres annees). 1 H40. USA. 
14 20. 



Bizarre comme Him, Non. e'est vrai, 2 

sematrtes apres I'avoir vu. je ne sais 

touiours pas ce que j'en pense vrai- 

ment. Le film n'esl pas bizarre en soil. 

e'est juste que je n'arrive pas a me 

decider a son propos. 

Bon ben tanl pis, j'va quand meme 

tenir le crachoir, 

Ca commence Ires fort, mais vraimeni 

ires Ion plem la gueule pour pas un 

rond. 

Un tribunal, ou une bonne douzaine 

de gonzesses vont se (aire juger pour 



s empale sur des grilles aiors que les 
deux profileuses continuent de cava- 
ler. ensemble sans se connaflre. et se 
relugient pour peu de temps dans les 
egouts, s'engueulant copieusement. 
tune preferanl se rendre aux flics, 
alors que I'autre le lui defend tormelle- 

Recherchees. et par les flics et par 
dautres malveillants, elles n'arretent 





divers dehls L audie 
premiere accusGe s'approche en de- 
connanl de la barre. arrive pres du 
planton charge de lui faire preler ser- 
merit, et 1'egorge tout dun coup avec 
un rasoir sorti d'on ne sail ou. Sa 
complice s'empare immediatemenl du 
fusil a pompe dun gardien et 
commence a tirer dans le las. Bonjour 
le carnage. Prafitant de cetle ouver- 
ture, 2 prevenues se font la malle. 
couvertes par celle au fusil, i'autre 
etanl deja morte. La gonzesse armee 



pas de cavaler el de se ptanquer, 
I'uie suivant I'autre. 
Chars pas si je suis arrive a bien le 
rendre dans ce sembtant de resume, 
mais disons que la tension et la rapi- 
dite de Taction du debut du film ses- 
tompent assez vite et on est trap dans 
lexpectative par la suite. 
En fail quel dommage que la presston 
soil si torte au depart, et si eteinte 
apres Je crais bien que e'est ca d ail- 
leurs ce qui me gene, et ca cest au 
niveau de la mise en scene que ca 
deconne, Parce qu au niveau interpre- 
tation, lout va bien. c'esl bon. 
Mais voila. e'est ca. je la tiens mainte- 
nam cette raison qui me faisan defaui 
C est la que le bat blesse. 
Non. bien sur, je ne m'attendais pas a 
ce qu'elles courent a la meme ca- 
dence durant tout le film. Apres lout, 
mieux vaut ga que la linearite totals 
de ! action : un seul rythme. c est dur, 
et e'est ennuyeux. Mais quand meme. 
une telle baisse de regime 7 C est 
sans doute un peu trap 

Peut-elre que cette raison vous parai- 

tra un peu tallacieuse. mais le rythme 
dans un dim est primordial, au meme 
litre que le montage, lis sont lies la 
plupart du temps d'ailleurs. El comme 
l'y ttens beaucoup... 
Moralite, un film un peu rate, dom- 
mage... 

Enfin Pour ceux qui veulenl voir un 
film d'action avec des nanas comme 
heroines, c'esl vrai que ca change de 
d' habitude. 



HELLZAPOPPIN 

de H.C.POTTER 



Avec Ole OLSEN et Chic JOHNSON 
(celeb res mais mediocres duettistes 
amerlcains des annees '30 '40, rem- 
places tres vite par Abbott et Cos- 
tello). Martha RAYE (la furie qui 
court apres les mecs comme Harpo 
Marx apres les nanas. surtout les 
blondes !), Hugh HERBERT et Jane 
FRAZEE (les jeunes et beaux 
heros). Misha AUER (voir photos). 
Shemp HOWARD (un des 3 Stoo- 
ges, autre trio comique. qui ecuma 



la TV dans les annees '40 .'50 dans 
des histoires totafement Invraisem- 
blables de 15 minutes, episodes qui 
n'ont jamais cesse d'etre diffuses, 
puisqu'on peut les voir n'lmporte 
oil aux States au molns une fois 
par jour, mais Ms sont malheureuse- 
ment tres peu connus en France) et 
Elisha COOK Jr (vu dans plein de 
films de gangsters entre autres). 
Les sous-titres sont de Pierre Dae 
1H24 USA 1941. 1720. 




On raconte pas Hellzapoppin. on le 
voit. on le savoure. on le deguste el 
on se fend la peehe. 
2 hommes montent dans un taxi. Le 
chauffeur leur demande ou ils desirent 
se rendre "ALLEZ AU DIABLE '" Ka- 
boum ! Et ils se r'trauvent en enler ! 

Ce film, chers lecteurs (la ) essaie de 
faire dans le pompeux pour con I raster 
avec le !ilm lui-meme qui est gemale- 
menl drole) possede des qu allies 
brechtiennes dans son interpellation 
constante du public. En effet, les 
spectateurs dans la salle font parlie 
integrante du spectacle qui leur esl 
prajete. contrairemenl au lilm en ge- 
neral, colonel, ou quel que soil le 
grade, ca n'a pas grande importance 
apres tout, lessentiel etant quti soil 

Comment justifier cette position pour 
le moms presomplueuse ? 
Oui, comment ? 

prenons par exemple un des gags du 
film ou les acteurs s'arretent de jouer 
Subilement pour dire a un petit garcon 
dans la salle de rentrer chez lui car sa 
maman ie demande. Ils s'arretent a 
plusieurs reprises, jusqua ce qu'on 
voie une ombre de petit garcon se 
lever et sortir de la salle Mais atten- 
tion, ce nest pas dans la salle que 
cela se de route mais sur lecran 
Nest-ce pas dun comique effroya- 
We? 

Bon, Ctou, lu nous cours, abrege ou 
change de ton. mais au moms tais 
quelque chose II! 

OK. d accord, ca va. j'ai compos ' 



Meme que |'vais faire les deux a la 



- Une bonne temme entre a lout bout 
de champ (au sens propre du terme) 
et qui appelte son mari "ARTHUR ? 
AAAAARTHUUUUR ? ARTHUR T 

- Un type arrive au debut du film sur 
te plateau et demande Mrs Jones pour 
lui livrer un pot de fleurs. ("FLOWERS 
FOR Mrs JONES ! Mrs JONES ' Mrs 
JONES !") puis on le voil a veto avec 
une plante plus grosse. puis en voi- 
ture avec un arbuste, puis en avion 
avec un arbre de belle taille. et tou- 
jours gueulant "Mrs JONES ! Mrs 
JONES !" sans evidemmenl jamais la 
trauver. 

- un lype lit son journal pendanl le 
spectacle de Music-hall et suit sa 
source de lumiere ou qu elle aille . des 
coulisses a la scene par exemple.. 

- des danseurs avec du papier tue- 
mouches colle aux pieds ne peuvent 
evidemmenl pas sen debarasser. . 

- le scenariste se prend des coups de 
feu dans le buffet, boit un verre deau 
puis ressemble a une fonlaine.. 

- le projectionnisle semmele les pe- 
dales a cause de la grosse dans la 
cabme qui ne cedera pas a ses avan- 
ces, c qui fait qu'on a un film d'mdiens 
qui rapphque. 

- vous croyez que j'vais continuer a 
faire la lisle de lous les putams de 
gags qu'il y a dans ce film ? Non. 



Bon. Ca va. Si vous navez pas en- 
core compns qu Hellzapoppin est le 
lilm le plus drole, selon moi, cest que 
vraiment vous avez oubhe de mettre 
vos lunettes ce matin, hkj tojlsdki 
gf|fdpnpr pirtoyip poiopk ip'ute(ang, 
aaan ! Ben ca va mieux mamlenanl 
que vous les avez mises, non ' 
Bon eh ben maintenant, recommencez 
du debul. et je suis sur que lout ca va 



MARATHON 

KILLER 
(COURAGE) 

de Robert L. ROSEN 



Avec Ronny COX (le "vieux ", aussi 
co-scenariste du film. Cest marrant 
parce qu'll |ouait aussl dans Deli- 
vrance de Soorman), Art HINDLE 
(vu dans Porky's 1 et 2), Tim MAIER 
(le "gosse") et M.Emmet WALSH 
(vu dans Sang Pour Sang et Portes 
Disparus). 1H32. USA. 1320 



Ah ben ca alors, pour une coinci- 
dence, cest une coincidence ' 
Ronny Cox, le co-seen a riste jouait 
aussi dans Delivrance, el la premiere 
chose a laquelle m'aie fait penser ce 
film e'est justement Delivrance ! 
Ben ouais. cest I'histoire de 3 types 
qui decident de faire une course de 
100 km en plein desert, dont lun se 
fait tuer par une bande de "soldats- 
survivants' (ces mecs qui. en cas 
d ' hypo theti que guerre sont prels a 
tuer pour un bout de gras). Les deux 
restants ton! tout leur possible pour 
reioindre leur objectif. en tuant quel- 
ques-uns des "soldats" au besom, 
pour garanlir leur propre survie 
C est le huts-clos dans la nature 

J'ai un peu limpression que les sce- 
naristes se son! inspires de 2 c hoses : 

- dune part le bouqum de James Di- 
ckey. "Delivrance" 

- d'autre part, les axiomes quutilisa 
Hilchcock dans La Mort Aux Trousses, 
faire du suspense en plein midi, sous 
un soleil de plomb au bord dun 
champ, au lieu que ce soil de nuit. de 
pluie, de ville. 

Mais non. je ne suis pas mechant, les 
deux films ont quand meme des diffe- 
rences : celui-ci comporte beaucoup 
plus de scenes de violence que Deli- 
vrance, qui lui comporte des scenes 
beaucoup plus dures emotionnelle- 




En conclusion, disons que ce film esl 
un Delivrance pour un autre public, 
pourquoi pas ? Ce nest pas une si 
mauvaise idee apres tout, meme si la 
photographie esl moms belle, ce qui 
est dommage, car en filmant dans le 
desert, c'esl )uslement la photo et les 
cadrages qu il (allait chiader. ils au- 
raient du prendre Roby Mutter, le chef- 
op de Wenders sur Paris-Texas, ou 
au moins des conseits de sa part. 
Enfin, moi, c'que j'dis, hem ! 



prendre un sens nouveau pour vous ! 




pas meme une seconde, de toutes 
lagons, ne seron! pris en compte que 
les mots d excuse va lab les (deces, co- 
hques nephreiiques. et autre rhumes 
oenins) dumenl signes des parents 
Na. 



CJJVOCHE 



RUNAWAY 

de Michael CRICHTON 



Avec Tom SELLECK (Magnum et 
les Aventurlers Ou Bout du Monde, 
son premier film c etait Mvra BRE- 
CKENRIDGE avec Mae West !), Cyn- 
thia RHOOE5 (ex-chanteuse des 
TUBES, vue dans Staying Alive et 
dans Flashdance). Gene STANLEY 
(ex-KISS. decidement dans ce film y 
a que des ex-stars du rock, a crolre 
que 9a ne rapporte pas assez de 
thunes pulsqu'lls se crolent forces 
de se reconverts dans le clnoche, 
en tous cas, pour elle comme pour 
lul cast reussl) et Klrstle ALLEY 
(non, elle, elle etait decoratrice dln- 
terleur avant d'etre actrlce, pas 
chanteuse '. Et masseu quelle est 
belle ! Vue dans Star Trek 2). 1H41. 
USA. 15/20. 




un bon Iilm. base sur une histoire Ires 
sotide et une description de societe 
tout a fait credible, rare. 
Ne vous meprenez pas, ce nest pas 
Blade Runner, bien que I'hisloire soil 
comparable, vous allez voir ca 

Nous sommes dans les annees 1995, 
par la Ramsay est un (lie specialise 
dans la mise hors-service des "runa- 
ways", les deviants, ce sont des 
robots en lous genres qui se dereglent 
et deviennent dangereux. II faut savoir 
que dans cette societe, les robots torn 
partie de lunivers quolidien que ce 
soil pour des laches mecaniques ou 
menageres. 

A la suite dune operation dans la mat- 
son dun eleclronicien, Johnson, dont 
la lemme a ete- luee par un de ses 
robots, Ramsay decouvre qu'il existe 
des robots qui ont ete modifies par un 
chip particulier qui ies transtorme en 
machines A tuer. 

II se rend a la sociele ou Johnson Ira- 
vail lait avec sa nouvelle slagiaire. 
Karen, et apprend que celui-ci etait 
surun projet special 
Johnson se fail tuer sous ses yeux 
par un projectile intelligent, un micro- 
missile, du jamais vu. 
Le responsable est Luther, un Irati- 
quant connu de la police. 
Ramsay arrete sa complice Jackie qui 
lui devoile oil il est. Le policier tente 
une action infructueuse pour larreter 
au cours de laquelle Karen est bles- 



Le lendemain. Luther enleve Karen el 
lechange contre Jackie, et les matri- 
ces des chips quelle possede, quil 
reduit immedialement au silence. II 
s'enfuit une nouvelle lois et nargue ies 
policiers en buggant entierement leur 
sysleme video interne avant d appeler 
Ramsay pour ech anger son lils contre 
le reste des matrices que Ramsay 
avail conserve, ce sera leur dermere 
baston. 




Masseu. i'vous raconle pas comme je 
viens |uste de galerer pour vous pon- 
dre ce resume sans elre Irop confus ! 
Bon, done le theme est semblable a 
celui de Blade Runner dans le sens 
ou it s'agit dun flic charge de mellre 
hors-service des robots, A la limite. la 



LES ZEROS DE CONDUITE 

deNeal ISRAEL 



Avec John MURRAY (le here de 
Bill, aussl drole que son frangin. 
bien que dun autre style, plus ex- 
trovert! -Jean-Christophe-, e'est son 
premier film et surement pas le der- 
nier), Jennifer TILLY (elle aussi 
Cost la soeur de sa soeur, Meg, et 
e'est son deuxieme film), James 
KEACH (et tant qua falre lul aussl 
e'esi aussi un frere, de Stacy Keach 
meme que. Vu recemment dans Le 
FN Du Rasolr, avec justement Bill. 



Masseu. plus ca va. plus les lignes de 
presentation sont longues ! Faut dire 
que e'est la que j'arrive a donner des 
renseignements biographiques sur les 
acteurs. j'lrouve que ca feraii presque 
deplace dans le corps de I'article 
meme. tout comme cette digression, 
d'aitleurs. 

Dana Cannon est un pepinieriste-pay- 
sagiste totalement delirant. I! conduit 
une espece de camionnette quon se 
demande si e'est pas la peinture qui 
lait que la caisse tient encore en un 
seul morceau. et en plus de ca il joue 
de I'harmonica (mal) en conduisant de 
traviole. alors qu'il n'a rien bu '. Jusque 
la. ca va. Mais lorsquil passe devant 



le trere de John), Wendy Jo SPER- 
BER (vous I'avez vue y a pas long- 
temps dans Crazy Day, elle est ge- 
niale. Faltes-mol penser de lul 
demander si elle nest pas la soeur 
de quelqu'un, elle aussl), Sally KEL- 
LERMAN (Levres brulantes dans M' 
A- S" H), Lisa Hart CARROLL 
(good) et Nedra VOLZ (84 ans et 
plus de peche que beaucoup !). 
1H40. USA. 16/20. 



collection de papillons, suttisante pour 
linir de tapisser de ces jolis petits car- 
tons verts le mur de sa chambre. qu'il 
avail commence avec eeux du matin. 
Re-bonk ! Proces. retrail de permis et 
de la caisse. retour a lecole de 
conduite. et s'il ecrtoue a i'examen 
final, on garde la caisse el on la re- 
vend "au profit des bonnes oeuvres de 
la police". Comme de toutes manieres. 
ce sont precisemenl Halik.Adoll et 
Morns Eva les instructeurs, ce s'ra dur 
pour que Dana et ses compagnons de 
gaiere. tous plus marious les uns que 
les autres. reussissent ce putain 
d'exam. 
Mais vous ne savez pas tout I 



En plus de ca. Halik s'esi associe 
avec Mme le juge qui tient le registre 
des ventes, pour que tous ratent. de 
■ aeon a ce qu'ils puissent revendre les 
caisses. et se mettre la moitte de la 
triune recuperee dans les tbuilles. per- 
vers. et e'est bien le mot ! 
Nos heros reussiront-ils a dejouer ce 
machiavelique complot qui vise leur 
deshonneur ? 

Ou'esl-ce que j'ai pris comme place 
pour vous raconter le film, et encore je 
n'ai pas developpe. puisquon voil 
comment la plupart des heros se sont 
fait prendre leur caisse au depart, el 
puis plein d autres gags, que rien que 
d'y penser j'en pleure encore de rire. 
alors vous pensez, ma bonne dame ! 
Ce qui m'elonne, voyez-vous, e'est 
que Neal Israel ait pu faire un film 
aussi drole. avec un tel casting en 
beton d'acteurs peu ou pas connus. 
dun humour fin tout en ayant le soup- 
con de pesanteur necessaire, alors 
qu'il a ecril Police Academy 1 A mon 
avis, ils ont pas du lui laisser le tour- 
ner. el modifier le script original. 
Ca faisait en effet bien longlemps que 
je ne m'etars pas autant amuse, je le 
mets carrement au niveau de 1941 de 
Spielberg et de Blues Brothers de 
Landis. e'est dire ! 

Courez le voir, ou mon pied au der- 
nere a la rentree. tenement fort que 
vous ne pourrez meme pas vous as- 
seoir sur votre chaise a la grande 
ecole \ 




les keuls en baiancant une pomme 

par la I'nelre (version flic), ca va plus 

du tout. 

Bonk ! 18 contredanses. et encore, 

j'dis 16, parce qu'ils m'ont meme pas 

laisse le temps de compter ! 

Ah. ouais. Mais j'ai oublie de vous dire 

qu'il s'est lait choper par les CHiPs 

(California Highway Patrol, les mo- 

tards, quoi !) les plus maiades du coin. 

un mec et une gonzesse. Adolf et 

Eva, comme il le dit si bien. 

Le pire, e'est qu'il les relrouve le so if. 

et qu'ils lui recollent encore toute une 



comparaison au niveau du scenario 
peut s arreter la. puisqu'ici on a toute 
cette histoire de traliquanis de chips 
bugges et darmemenl ultra sophisti- 
que qui se grefle. 

Mais on peut aussi envisager la 
comparaison sous Tangle de la des- 
cription de cette societe. sans se sou- 
cier de I'hisloire en elle-meme 
Tout es! lait ici pour que Ion ail 1'im- 
pression que la vie entiere est organi- 
see en lonclion des robots, si habi- 
tue Is. Toutes les pen les digressions 
dan 5 les dialogues temoignent de la 
banalile des robots. "C'esi quoi 
comme modele. le voire ? Un Boeing 
18765 ! Ah ! C'sonl les nouveaux ' 
Jme souviens, ma mere avail un an- 
cien modele qu'arrelait pas de mer- 
der : quand on lui disait de gnller du 
pain, il foulail le feu a la baraque !" 
etc... 
Vous voyez le genre. 



Eh bien ga me plait beaucoup. on sent 
vraimenl que les mecs ont chiade 
leurs dialogues et qu ils essaienl de 
(aire croire au spectateur que tout ca 
e'est un systeme qui se tient. Ma loi. 
je trouve qu'ils y sont parvenus. Parce 
que pour me larra avaler ce genre de 
trues, 'faut s'lever de bonne heure ! 
Autant dans Blade Runner, Ridley 
Scotl avail depemt une societe 
completemenl decadente et nocturne, 
autant ici, cette societe est "normale", 
sans heurts apparenls, elle parail a la 
limite plus plausible, cerlainemeni 
parce quelle correspond a un avenif 
beaucoup plus proche que Blade Run- 
ner. 

A propos. le dernier film de Ridlev 
Scott. Legend, sort le 2 aout 
A part ga, lout va bien et ga fait un 
film de plus de bon. Conteni le pepe 
Clou, conient. 




TUEUR ELECTRIQUE 

de John ASHGOONE 



Avec Boris MICHTON (jeune loup, 
vu dans Service De Null), Kathy 
CHICKENPOX (nouvelle et belle, 
pour changer, on se demande bien 
oil ils vont les chercher !) et Mi- 
chael ROAR (gnlark ! question cas- 
ting, e'est vraiment baleze, il a une 
telle presence diabollque). 1H46. 
USA. 17/20. 



J'avais jamais enlendu parler de John 
Ashgoone. e'est normal, e'est son pre- 
mier film, mais j'aurais quand meme 
a 1 me I e connaitre avant ! 
Pour un ancien plombier-zingueur. 
c'esl Ires fort ! 

New- York, South Houston Street, le 
bas d'Alphabet City, dont que j vous ai 
deja tant parle '. 

Ici. pas d histoire de dope nuiie et deja 
vue, bien quelle soil presente dans 
toul le film, 

Gosh est un agent d assurance qui est 
charge de ralisser le quartier a la re- 
cherche de nouveaux prospects. 
Apres une nouvelle journee a s'etre 
casse les dents sur ce quartier oil les 
gens n'onl pas un rade, il rentre chez 
lui sur sa vieille peloire pour retrouver 
sa fern me transformee en ficorne. 
II va rechercher pendant lout le Iilm 
les raisons de cette transformation. 



pour le moms incroyable et comment 
la rend re a sa lorme originette 
Cest grace a un vieux plombier-zin- 
gueur qui tombe du lort devant sa fe- 
netre qu'il trouve 'a solution soluble 
dans lalcool. 

Cest assuremem un des films les plus 
originaux de la decennie. 
La pholographie est superbe (bonjour 
les chevilles). Le montage est serre 
au maximum. 1 plan = l seconde. Le 
casting est denier et on a (res bien 
mange. 

Si vous n'allez pas voir ce litm, je 
vous embrasse sur les deux joues. en 
revanche, si vous y allez. et que vous 
pouvez le prouver. il y aura des cartes 




dentrees permanentes dans loutes 
les salles des cinemas de Monceau- 
Les-Mines a gagner 
Seuts les premiers seront recompen- 



box 

01) ROSE POURPRE PU CAIRE 1 


c 

■20 


>ffice 

43) LE JEU DU FAUCON 


14 20 


02) APRES LA REPETITION 1 




44) FLIC DE BEVERLV HILLS 




03 BRAZIL 1 


?20 


45) THE BOSTONIANS 


14 20 


04) PERIL EN LA PEMEURE 1 




46) ANGES SE FENDENT LA GUEULE 


14 20 


OS) LA VIE PE FAMILLE 1 


20 


47) LE KID DE LA PLAGE 


1.1 20 


06) ESCAUER C 1 


^20 


46) HAS LES PROFS 


14 20 


07) LA MAIS0N ET LE MONDE 1 




49) MOJADO POWER 


14 20 


OS) AU-DELA DES MURS 1 


, 20 


SO) JUSQU'A UN CERTAIN POINT 


14 20 


OS) SANG POUR SANG 1 


- 30 


51) BROTHER 


14 20 


10} RENDEZ-VOUS 1 


5 20 


52) MARLENE 




11) WITNESS 1 


5 20 


53) LA RIVIERE 


13 20 


12) SERIE NOIRE NUIT BLANCHE 1 




54) SPLIT IMAGE, I'ENVOUTEMENT 


■ 


13) 8IRDY 1 


5 20 


551 GIGOLO 




14) PIANOFORTE 1 


5 20 


56) STARFIGHTER 


13 20 


15) AMERICAN COLLEGE 1 




57) LE THE A LA MENTHE 


13 20 


16) CRAZVDAV 1 


- 2D 


58) STARMAN 


13 20 


17 CONTES CLANDEST1NS 


, ?() 


59 LA HOUTE DES INDES 


n io 






60) MISHIMA 


13 20 


19} ADIEU BONAPARTE 1 


i/20 


61) MONSIEUR DE POURCEAUGNAC 


13 20 


20) BLANCHE ET MARIE 1 


5 20 


62) LADYHAWKE 


13 20 


21} NUIT PORTE JARRETELLES 1 


b 20 


63) SOLDIER'S STORY 


13 20 


22) LE DERNIER DRAGON 1 


5 20 


64) THAT'S DANCING ! 


13 20 


23) SUBWAY 1 


5 20 


65) GLENN MILLER STORY 


13 20 


24) REPO MAN 1 


-, X 


66] COUNTRY 


n 20 


25) CHOOSE ME 1 


5 20 


67) TERMINATOR 


■■..■: 


26) RETOUR MORTS-VIVANTS 




68) BABY 




27) SAC DE NOEUPS 1 


5 20 


89) ADIEU BLAIREAU 


12 20 


26) LES POINGS FERMES 1 


, ?0 


70} DIVORCE A HOLLYWOOD 


12 20 


20) LES SAISONS DU COEUR 


5 20 


71} VOLEUR DE DESIRS 


12 20 


30) ELECTRIC DREAMS 1 


5 20 


72} VISAGES DE FEMMES 


13 20 


31 FRENCH LOVER 1 


i 20 


73 PRINTEMPS SOUS LA NEIGE 




32) FASTER PUSSYCAT 


A 20 


74) GROS DEGUEULASSE 




33) LA bECHIRURE 1 


J 20 


75) DROLE DE 5AMEDI 


13 20 


34) LE FIL DU RASOIR 1 


4 20 


76) LIBERTE EGALITE CHOUCROUTE 




35) 2010 




77) LE MEILLEUR DE LA VIE 


12/20 


36) POULET AU VINAIGRE 1 


4 20 


78) PLAISIRS INTERDITS 


12 20 


37) ROUGE MIPI 


4 20 


79} MASK 


12 20 


36) UN ETE POURRI 


4 20 


SO) COCAINE 


12 20 


39) SALE TEMPS POUR 1 FLIC 


I 20 


81) LEPACTOLE 


12 20 


40) LES SPECIALISTES 1 


4 20 


82} DESIDERIO 


1240 


41) SPECIAL POLICE 1 


4 20 


S3) VIVE LE FRIC 


11/20 


42) LOUISE L'INSOUMISE 


4 20 







ENTRAMZ-VOUS, 
CIST POUR BIBNTOT! 



M 
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ZiiiiiNES 




n-GUEULE! 



Puisque vous savez tous ce 
quest un fanzine, tl est inulile 
de rappeler qu'il s'agi! dun jour- 
nal ne beneficiant pas de la 
commission pan la I re. fait pat 
des |eunes (la pluparl du 
temps), le plus souvent photoco- 
pie, tire entre '00 et 1000 
exemplaires. vendu a un prix 
derisoire (quoique dans certains 
cas ). dont les auteurs son! be- 



"Vous n'avez fien conlre la jeu- 
nesse ?". Les exemplaires res- 
capes de cette epoque valent 
des fortunes. C'est la que sont 
apparus Cavanna, Reiser, Cabu, 
Wolinskt et d'aulres. 
N'exagerons pas, c'est une ex- 
ception. 

Fanzine, c'est une contraction 
de "Fan Magazine", journal fait 
par des passionnes II faut I'etre. 




nevoles et parlant de n'importe 
quoi, Oui, inulile de le rappeler. 
Par contre. vous n'en connais- 
sez peut-eire pas beau coup 
Peut-eire meme pas du lout, si 
ca se trouve. Mais alors, 
comment savez -vous qu'il s'agil 
d'un journal ne beneficiant pas. 




etc, etc... ? Quel paradoxe, je 
n'en reviens pas. 
Bref. 

Je me souviens encore (non 
sans emotion) du temps ou, 
moi-meme, toul seul de mes pe- 
tites mains blanches et - a 1 epo- 
que - virginales. j'ai commis un 
petit fascicule intitule "Sympathic 
fanzine, le journal des amis'". II 
eta it gratos, crachait dans la 
soupe (deja !) et parlart surtoul 
de cinema. C'etait ce qui me 
branchait. alors j'en pariais. 
avec toul mon coeur. loutes 
mes tripes, je degueulais sur les 
realisateurs que j'estimais inca- 
pables de realiser quoi que ce 
soil, j'encensais mes idoles, leur 
trouvant des qualites que jin- 
venlais pour r occasion ("lui, il a 
le sens du melting"). Je criti- 
quais, quoi. 

Aujourd hui. les ptits jeunes. ils 
continuent a cnliquer Mais Hs 
creent. aussi On voit apparaftre 
dans certains famines des 
noms que Ion retrouve plus lard 
dans des journaux plus connus. 
Hara-Kiri. il y a trente ans. etail 
une sorle de fanzine, vendu 
dans la rue a grands coups de 



pour passer une heure tous les 
jours, apres le boulot. a monter 
des pages, a (aire des photoco- 
pies, des essais de maquette, il 
faut I'etre pour investir de I' ar- 
gent pour tirer son petit canard 
a 200 exemplaires. Des fois. on 
arrive a tirer la couverture sur 
(offset du beau-frere d'un co- 
pain de regiment. Alors la, c'est 
la gloire, la consecration : I'arri- 
vee de la couleur dans le zlne. 
Dans le genre couleur, II y en a 
un qui fait Ires tort. II fait Ires 
fort dans tous les genres, d'ail- 
leurs : c'est 'Plem La Gueule 
Pour Pas Un Rond'. PLGPPUR 
pour les intimes. 

Est-ce encore un fanzine ? II 
garde cette appellation depuis 7 
ans, malgre qu'il ait la commis- 
sion paritaire. malgre son depot 
legal, sa parution reguliere, sa 
debauche de couieurs, ses des- 
smateurs presque pros et les 
quelques pages de pub qu'on 
trouve. 

II y a des dossiers sur des des- 
smateurs, des bd, des inter- 
views, une revue de presse ires 
complete des albums et des fan- 
zines qui paraissent et des arti- 
cles polemiques. Regardez ' 




couverture : aux dires de r edito- 
rial, c'est 1'illustration litterale du 
litre "Plain la gueule pour pas un 
rond". II coiite 30 balles, il est 
trimestriel. il est Rolls-Royces- 
que. Mais il est pas drole, ne 
vous attendez pas a exploser 




de rire. Loin de 



Va savoir pourquoi 
prelere celui-la a PLGPPUR 
Enfin, si, je sais : il y a plem de 
gens que j'aime. dedans. 
D'abord, il y a J.C. Menu, avec 
son anti-tieros Meder (oh sur- 
prise, c'est tanagramme de 
Mdree) qui fait ptein de trues 
dans plein de styles differents, il 
y a Carali. que vous etes 
senses connaitre. que moi 
j'aime bien mais |e ne lui dis pas 
parce tout est dans le non-dit 
entre nous, e'es! tres fort. Ires 
puissant, de temps en temps on 
surprend une etincelle au fond 



qu'un numero a son actif. mais 
quel Cest quelques jeunes qui 
se sont reunis en se disant "on 
va faire un fanzine" el qui en on 
fait un. a la va-comme-|e-te- 
pousse, tres rigolo 10 balles 
pour 24 pages. Sympa. 
Kokass Komix est particulier sur 
plusieurs pomls. D'abord, il est 
tout petit Quand je dis tout petit. 
C'est vrai il doit (aire 7,4 centi- 
metres sur 10.5. en gros. El 
puis surtoul, il est gratos. Alors 
ca, c'est tres bien. J'applaudis 
Que des petils |euuuunols 
soient assez fous pour filer leur 
zine graluitement, bravo. Troi- 
sieme particularity : il est vrai- 
ment tres bon. Je n'ai pas de 
sens critique, m'objecterez-vous 
avec opposition. J'ai classe 
dans lordre de mes preferen- 
ces, vous opposere-je comme 
argument A part PLG machin. 
qui est Id pour confirmer la 
regie. C'est done gratuil, vous 
pouvez tous en avoir un, y a les 
adresses en dessous 
J'ai plus de place, au secours ! 




de loeil mais je m'ecarte. II y a 
Thiriet, que vous connaissez 
aussi grace a ses Poly games, 
de temps en temps on se re- 
garde et je sens que quelque 
chose passe mais merde j'arri- 
verai pas a ftnir si je m'arrete a 
tous les gens que je connais. En 




bref, il y a Stanislas, Mattt Kon- 
ture, Lamy, Sylvie Picard (etin- 
celle), Casanova et d'aulres. 
Ca a 84 pages, ga vaut 20 
balles et ca les vaut v raiment. 
ga a du papier glace, une cou- 
verture en couieurs. e'en est au 
numero 5, c'est tres beau. 
Je reste presque dans le meme 
sujet avec "Le Journal de 
Lapot ". car c'esl un "megalo- 
zine" cree par le J.C. Menu du 
precedent. Alors la, il n'y a que 
du Menu. Si vous n'aimez pas, 
inutile de vous y risquer, cest 
du super-concentre. 10 balles, 
belle' impression, Seme numero. 
28 pages et pas de trace de 
confiture sur la page 13. ce qui 
est proprement excepfionnel, car 
Menu a I'habilude de manger 
des tartines de confiture en reli- 
sant la page 13 quil affectionne 
toul parti culiere me nl. 
Rouge Viande n'a pour linstant 





Thrills est un zine qui est aussi 
gratos. mais dont lauteur est 
fan de Hard-Rock. Resultat : ca 
ne parte que de Hard. Mais c'est 
inleressan! a lire. 
Scarce esl presque pro. Frede- 



tie du canard est consacree a la 
science- fiction et a la litteralure. 
On y trouve aussi des critiques 
cine et une revue des fanzines 
concurrents. 8 Irancs, c'est a 
dire pas cher. C'est bien docu- 
ments. 

Vomit est un zine destroy, punk, 
kill, comme son nom lindique. 
Mais je ne peux rien vous en 
dire : les auteurs. pour se de 
marquer, ont omis de marquer 
leurs noms. leurs adresses, le 



d'edito. juste des dessms dune 
page. II y a des noms connus. 
comme Willem ou Placid el 





ric Blayo. lauteur. y eludie en pnx m quoi que ce SOU qui 

detail la bande dessnoo amen- pu>sse nous mettre sur la vole, 

caine. 60 pages, couverture En tout cas. si vous fe voyez 

gauffree en couieurs. papier dens une libra me sautez 

luxueux, mais 40 balles quand dessus. 

meme. Cect dit. c'est une mine Au Sec 3 est le troisiQme nu- 
de renseignements mero d Au Sec Elonnani. non ? 
Le dernier numero de Melmoth La. on sort un peu du fanzine : 
conlient une Interview de Robert c'est un grafzine II n'y a pas 
Bloch. Normal, une grande par- d'histoire. pas de texies. pas 



Muzo, d'aulres que vous ne 
connaissez que depuis le debut 
de eel article comme Mattt Kon- 
ture. C'est quand meme tres 
branche. Ires "new wave", 
comme dessm. Ce qui est une 
maniere polie de dire que je 
n'aime pas. 40 balles. en plus. 
RBmarquez. ca fait comme un 
album, saul qu'il y a plusieurs 
dessinateurs 

Ai-je parte de lout ? Non, certai- 
nement pas. II existe en France 
plusieurs centames de zines. Si 
vous avez un jour fait un petit 
lournal a lecole, c'est un zine. 
On ne peut pas parter de lous. 
Ceux qui sont cites plus haul 
sont soit bons, soit representa- 
tifs de tendances generales. 
Mais oil les trouver ? La piupart 
du temps, le mieux est de 
contacter les auteurs par cour- 
ier. En general, ils sont tene- 
ment megalos qu'ils veulent 
vendre a toul prix, done ils re- 
pondent le jour meme. Sinon, il 
existe a Paris quelques librairies 
specialisees, dont Actualites 
(rue Dauphine. je ne connais 
pas le numero mais la rue n'est 
pas tres longue, vous trouverez 
facilement] et Super Heros au 
175, rue du faubourg St Martin, 
Voici la hste des zines cites plus 
haul, avec le moyen de contac- 
ter ies auteurs Si vous etes 
vous-meme auteur, n'hesitez 
pas a nous envoyer vos produc- 
tions. 

Milou 



PLGPPUR ; Philippe Morin, 16 rue Gabriel Perl, 92120 Montrouge. 

Le Lynx a tlfs et Le journal de Lapot ; JC Menu, 56 bd de la Republlque. 78000 Versailles. 

Rouge Viande et Kokass Komix : Jean-Yves Duhoo. 14 rue de I'echlquier. 75010 Paris. 

Thrills ; Thierry Gloux, 6 rue de lanclenne prison, 76000 Rouen. 

Melmoth : Association Thomas Carnacki, 23 rue du Leon, 78310 Maurepas. 

Vomit : J'en sais rien. Destroy. No future. 

Au Sec : Gerbaud. 5 rue Volta, 75003 Paris. 

Hebdoglciel : 160, rue... Ah ben non, c'est pas un fanzine. 




ebdito 



Ce mois-ci... Tiens, pour une 
fois. au lieu d'etre "cette se- 
maine" c'est "ce mois-ci" Ca 
me fait bien plaisir 
Ce mois-ci, il y a du tres bon. 
du bon, du moyen. du mauvais 
et du gerbos. Comme d'habi- 
tude. quoi, sauf qu'il y a vrai- 
ment beau coup de gerbos. 
Allez zieute' du cote de la 
page Shelton que je vous ai 
amoureusement mitonnee. 

faites un lour par les fanzines 
el revenez . c'esi ici que se 
trouve lacluahte. Ne ratez pas 
Reglement de contes et le Gla- 
mour book de Liberatore 



Ratez Elf Quest, Aulonomes, 
Incidents et La molaire de Min- 
danao. Pour le reste, c'est 
vous qui voyez : vous passez 
devant la librairie, si en voyant 
la couvertute vous avez un 
flash d'enfer. des trompettes 
celestes qui resonneni, la 
vierge qui apparait, un coup de 
tonnerre qui ebranle les cieux 
et tout le folklore, c'est bon, 
vous achetez, sinon laissez 
lomber 

Le mois d'aout est tradilionnei- 
lement calme en nombre de 
sorties, mais altenlion en sep- 
lembre : ga va chier des 
bulles I 



BD-PARAD 




TR AGIQUES DESTINS 


VUILLEMIN 


17 


FOLIES ORDINAIRE S 


SCHULTHEISS 


17 


HISTOIRES A LA CON 


CARALI 


16 


DOCTEUR VENTOUSE. BOBOLOGUI 


BRETECHER 


16 


GLAMOUR BOOK 


LIBERATORE 


16 


CE QUI EST EN HAUT 


MOEBIUS 


15 


CHEZ LUCIEN 


MARGERIN 


15 


CLARKE ET KUBRICK 


FONT 


15 


SUPER PHACOCHERE 


SHELTON 


15 


CARAGAL 


PAAPE 


15 


HANS 


ROSINSKY 


15 


DESTIN FARCEUR 


PTILUC 


15 


REGLEHENT DE CONTES 


TAFFIN 


15 


LA TERRE CREUSE 


SCHUITEN 


15 


LOVE TO TEN 


CRUMB 


15 


OPERA NOIR 


SANAHUJAS 


15 


NATHALIE 


DE BOER 


15 


JE VEUX RETOURNER A PECS 


FRANZ 


15 


GUERRES FROIDES 


SCHULTHEISS 


14 


SANG DARMENIE 


CLAVEVIDAL 


14 


NOUVELLES DU FRONT 


GOLO 


14 


GWEN D'ARMOR 


ROUGE 


14 


JOHNNY FOCUS 


MICHELUZZI 


14 


JOHNNY FOCUS A TEHERAN 


MICHELUZZI 


14 


SERRE-MOI FORT, FRED FALLO 


WILLEM 


14 


TOUT DANS LA TETE 


BARBE 


14 


LES DESSOUS DE LA VILLE 


MASSE 


14 


LA DENT DU LOUP 


FAURE 


14 


LE JEUNE ALBERT 


CHALAND 


14 


LE PETIT PEINTRE 


DUPUY 


14 


UGAKI 


GIGI 


14 


COLOMBO 


ALTAN 


13 


NOCES DE BRUME 


SOKAL 


13 


LE MON AU LOTUS DE SANG 


MICHETZ 


1 3 



ACCIDENT 




D'aucuns poufront prelendre 
que non. qu'il surfit de rentrer 
dedans, que c'est pense\ tra- 
vaill6, machin-lruc eh bien je dis 
non. 

Non, Mesdames et Messieurs, 
je ne ferai pas cet effort, parce 
qu'il y a plein d'autres trues qui 
son! mieux et qui ne necessitent 
pas d'efforts En plus, c'est mal 
dessine, je me fous de rob- 
lectivite. JE trouve que c est mal 
dessine , OONC c'est mal des- 
sine. On va pas y passer deux 
heures. 

Et puis, ca se passe en Italie, 
dans un milieu hyper-branchos 
dont le langage est complete- 
men! hermetique a quiconque 
n a pas passe quinze ans dans 
la milieu en question. Pauvre 
Mattotti, II ne s'est pas apercu 
que pour taire du grand public, il 
'aut faire des concessions. Tant 
pis pour lui, 



INCIDENTS. de LORENZO 
MATTOTTI chez ARTEFACT, 
59 claques dans le 
que je lul mettrals, tlens. 



PHOTOCOPIEUR 
DESANG 



Ames sensibles et fauchees, at- 
leniion ; cet ouvrage nest pas 
pour vous. mais alors pas pour 
vous du tout. Le petit Vuillemm 

3ui est deja bien agressil et bien 
erangeant comme il faut nest 
qu'un tendre enfant de choeur a 
cote de Liberatore. 
Ce genial dessinateur italien a 
tenement affole les meres de fa- 
mine et les esprits chagrins avec 
son robot cultunste Ranxerox 
que les bandes parues en llahe 
et aux Etats-unis son! encore 
dans les cartons des editeurs 
francais : lis ont la trouille I 
Pourtant, ni la porno, ni la vio- 
lence ne les effraient, mais du 
Liberatore. c'est autre chose, 
son dessin, que dis-je son des- 
sin : sa peinture est si reahste. 
si sanglante. si malsaine qu'ils 
redoutent les teux de la censure 
et preferent attend re. Attend re 
quoi ? Satan seul le sail I 
Ce "Glamour Book' de libera- 
tore, edite par des italiens nest 
pas un album de BO, mais des 
esquisses, des exlraits de 
bandes parues dans differents 
pays, des pages inedites et 
meme des pochettes de disque 
dessinees par le maitre. Ce livre 
est fantastiquement beau : 204 
pages dans un formal allonge. 
un papier glace d'une qualite ex- 
ception nel 1 1;. un rendu des cou- 
leurs sans faille et une couver- 
ture souple et sensuelle. Je 
rigole pas. il y a un plaisir cer- 
tain a manipuler un livre dart de 
cette qualite. Jar bien dit "art", 
e'en est. 

L'interieur de lalbum, c'est I'hor- 
reur, ga remue les tripes, les 
yeux. la cervelle et on a partois 
du mal a regard er en face les 



per son nag es qui nous fixent de 
leur regard glace. 
Les bandes sont en ilalien ou en 
anglais mais tous les commen- 
taires sont Irihngues : italien. an- 
glais et francais. 

Regardez en haut de cet article, 
j'ai deconseille ceite oeuvre aux 
fauches : c'est 215 balles. pas 
un rond de moins Ca les vaut 




LE GLAMOUR BOOK de Libe- 
ratore 4dite par Glamour Inter- 
national Production. Je ne 
sals pas qui les dlstrlbue en 
France, leur telephone en Ita- 
lle : 055 352450. Le prlx ? 215 
massacres mais ca les vaut. 



HARDY 
FAINEANT 

Tres. Ires special cet album. A 
premiere vue. c'est nul : des his- 



® 




toires bizarres de machines, de 
jeunes filles volantes. de mecs 
qui courent sans arret ou qui 
s'enfoncent dans le macadam 
des trottoirs el, par-dessus le 
marche, un dessin megal. sou- 
vent bade. Mais, en regardant 
de plus pres, on trouve une 
foule d'ldees. de trouvailles qui 
ne demandant qu a devenir ge- 
niales. Je ne connais pas Vin- 
cent Hardy, mais il doit avoir un 
mechant poll dans la main, si il 
se remue un peu, il va tout faire 
peter 

Merde. voila que je me mets a 
avoir des discours de prof I Si 
9a se trouve, il a 50 ans et i! 
dessine depuis 30 ans en bos- 
sant comme un fou. 

Le Courseur et autres hlstol- 
raa droles de Vincent Hardy 
aux Editions du Mlrolr. 50 
starting-blocks. 



TORRIDE 



Comme son nom lindique. cet 
ouvrage (qui fera date dans 
Ihistoire de la Bande Dessinee 
avec un K majuscule) relate les 
aventures dun monsieur qui se 
trouve soudain en instance de 
panne seche sur une autoroute. 
Or, il possede deia 9 poinls- 
Schiroumpfs et doit done trouver 
une station-service Elf pour pou- 
voir en obtenir un dixieme afin 
de gagner lalbum a colorier 
"Rions avec les Schtroumpfs" 
(d'ou le titre ; Ell Quest sigmfie 
"la quete dune station Elf") 
Mais, car tout nest pas si sim- 
ple, il a beau s'exorbiter les 
yeux comme un malade, il ne 
Irouve pas de station-service Elf 
II y a Shell, Esso. BP. Gulf. 
Texaco et d'aulres. mais pas 
Elf. Voila de quoi troubler le plus 
resistant des hommes 
Alors que lout semble perdu, 
soudain. il apergoit au loin la ce- 
lebre pancane lummeuse van- 
tant les merites de la marque 
qu'il recherche. Fou de |Oie. il 
accelere et paf ! torn be en 
panne seche. pour le coup, 
puisqu'il foulail sur la reserve 
depuis deja dix bornes. Parce 
que les reservoirs, c'est iamais 
la meme chose. Quand laiguille 
est dans le rouge, des fois on 
peut encore faire cinquante 
bornes. d'autres fois presque 
hen, quoi C'est a cause du sys- 
teme qui evalue le niveau d'es- 
sence restant. c'est un machin 
en polystyrene qui flotte. mais 
des fois, la voiture est secouee. 
alors le niveau mdique nest pas 
le bon et on se fait avoir, tout 
ga. Et c'est precisemenl ce qui 
vient d'arnver a notre bon- 



homme. quoi. Voila 
Comment cette passionnante 
histoire va-t-elle se terminer ? 
Vous le saurez en lisant le tome 
4 de "Elf Quest". 




SAIGNANT 



Voyez comme la fatalite fait bien 
les choses : cet album est la 
suite du precedent. Nous repre- 
nons Ihistoire alors que noire 
heros s est tres bien sort de son 
aventure precedente Rappelons 
pour memoire qu'il a reussi a 
trouver une station -service Elf, 
qu'on lui a propose un |ob de 
pompiste. qu'il a accepte. quil 
est monte en grade et est de- 
venu directeur de la Ell 



POUR LES 
JEUUUUUNES 



Ca ressemble a du Tabary mi- 
tige de Spirou melange a du 
Uderzo, mais surtoul a du Ta- 
bary C'est pour les jeuuuuuu- 
nes C'est paru dans Tmnn. mai- 
gre le style spirouesque (quel 
bei adjectit ') Ca cause d Ah 
Beber qui trouve une lampe a 
huile magique (tu frotles, | ar- 
rive) dans laquelle reside un 
djinn flemmard, cardiaque et 
choiesterole. Ah demande un 
bateau au djmn pour aller ven- 
dre ses merchandises aux an- 
glais. Tu las voulu, tu las eu . 
le djinn lui refile une vieille 
epave pourne que notre heros 
s empresse de remettre a flot 
lis partem done pour commercer 
comme des fous. mais naturelle- 
ment, un mechant se trouve en 
travers de leur route et va les 
embeter jusou'a la fin de lal- 
bum. ce qui paralt un delai rai- 
sonnable. Tout plein d aventures 
vont sen suivre. comme d'habi- 
tude. 

C'est joli. le dessin est assez 
beau, c'est pas trop con, cest 
quelquefois ngolo. ga convient 




partaitement aux jeuuuuunes 
D'ailleurs. c'est la cible visee. 
Ca tombe bien. en plein dans le 
creneau. 

ALI BEBER - LE SCORPION 
NOIR de BEDU et BLAREAU 
chez LOMBARD, 25 francs 
mais que 30 pages, leger. 



ARMECHIENS 



A Constantinople regne le Sul- 
tan Abdul Hamid. le Sultan 
rouge. Law Breaker, photogra- 
phe americain, a pris pension au 
"Raffi", le bordel local de rile 
d'Ohanian et il va parttciper acti- 
vement a la lutte desesperee 
des armeniens. les sous- 
hommes des turcs de lepoque, 
D|emal Nazim Pacha, le gouver- 
neur de i'ile. le Vali comme i ap- 
pellant ses compatriotes turcs. 
n'aime ni les chiens, ni les ar- 
meniens. Fori de son pouvoir 
arm6, II va faire d6porter las uns 
et les autres sur une tie desolee 
au large de la ville et ils vont y 
crever. comme des chiens. Les 
chiens et les armeniens, comme 
des chiens, 

Cette histoire, a peine roman- 
cee. retrace les massacres des 
armeniens par les turcs en 
1915 lllustre de main de maitre 
par Clave, le scenario de Vidal 
est assorti de huit pages de 




Company, Ca, cetait lalbum 
precedent. Desormais. il va 
consacrer sa vie a chercher de 
nouveau gisements de petrole 
(d'ou le titre : Elf Quest sigmfie 
"a la recherche de petrole pour 
Elf"). Va-(-il y arnver ? Vous le 
decouvrirez en lisant la suite de 
cette passionnante saga. Elf 
Quest 5". 

Non, assez deconne. Ca cause 
d'elfes, c'est pas beau, chiant 
au possible, un peu comme si 
"Bilbo le Hobbit" setirail sur 115 
volumes. On en est deja au 
quatrieme tome, rien ne prouve 
que ce soil foil el c'est bien 
dommage. En plus, les deux vo- 
lumes font 30 pages (chacun. 
quand meme) et je n'aime pas 
les albums de trente pages 
Allez savoir pourquoi, c'est 
comme ga. Ca me donne hm- 
pression de metre fait avoir 
Mais plus que tout, c'est vrai- 
ment chiant. 



textes et de photos authentiques 
a la fin de lalbum. Attention. D 
ne s agit pas d'un album peda- 
gogique, rien de chiant dans 
cette aventure : la documenta- 
tion est fournie en plus, gratos. 




SANG Darmenie de Clave et 
Vldal chez Dargaud. Inltiale- 
ment paru dans la collection 
Pllote sous le titre "file aux 

chiens". 56 clebards. 



BREF 



C'est pas parce que son nom 
est constitue des six premieres 
lettres de "GoossBns" qu'on est 
genial. 

Jaime ni les dessins ni le sce- 
nario. Ite critiqua est. 



LE BOIS DES PAIENS de 
GOOSSE chez BEOESCOPE. 
42 paysans battant la campa- 
gne. 



ELF QUEST 4, LE CHANT DES 
LOUPS de WENDY et MACHIN 
(c'est marque plus haut) chez 
MACHIN. 35 albums en prepa- 
ration. Merde. 




TRIBUTAIRES 



ll y a tout pour que j'aime. Ou 
cul en abondance, de luiopie 
com me s'il en pleuvait. un sys- 
tems politique "lout le monde a 
poil et on partage lout", des 
groupements revofutionnaires, 
des heros qui ressemblenl a De- 
waere. Depardieu et Miou-Miou 
et des relents de Mai 68. 
Mais c'esl nul. C'est tres mal 
dessinfi, voyez-vous. Tres 
mal. El le scenario est un pen 
infantile, com prenez -vous El 
puis luiopie. si ce nest pas 
elaye par des bases sohdes, on 
n'y Co it pas, n'est-ce pas. Alors 
voila. I'album nest pas tres bon. 
en fail. Ca me gene un peu de 
le dire. pa<ce que ce sont vrai- 
ment mes preoccupations de 
chevet. mais les (aits sont la. 



quoi. II est preferable de ne pas 
le lire, en fait. On peut de la 
sorte gagner du temps. 




AUTONOMES de SANTI et 
BUCQUOY chez ANSALDI, 42 
cocktails mototov. 



EN b AbK Eld *i* lu: l fitez un coup doeil 
amuse chez voire libraire. 



Pot Mallet 

AINSIfSl I AMI 



CD 



TOUT 
DANS LA 
CULOTTE 



BAR^ 



Qb 



La couverture du dernier bou- 
qum de Barbe est explicite : ce 
qu'il a dans la tele, c'est pas 
tres innocent. 

Barbe, c'est ce type qui fait de 
la "bd-diapo", des femmes qui 
se Iransformenl en fumee de ci- 
garette, qui se transform e en 
pay sage, qui se transforme en 
femme. II a un coup de patte 
toul a fait particulier, et tres bon. 
Bon. La, c'est bien aussi, mais 
ca fait un peu "on doit sortir un 
album, on prend tout, y compris 
les ebauches pour remplir les 
pages. On a pas assez de 
pages ? Alors on met des 
blancs artistiques partout". Alors 



it dans Lui et dans d'au- 
Ires canards, en taisant des 
gags sur ce qu'on a vraiment 
dans la tete, sur les contrastes 
entre les desirs et la realite. 

II avail deja fait dans les mar- 
tie ns qui observaient notre pla- 
nets, cette fois pas besoin de 
pet its horn mes verts pour de- 
nonce r rinconscient. Sa sen ti- 
ne lie anglaise qui garde son 
caime impassiblement mais se 
detoule com me un malade une 
fois les louristes partis est 
sympa, mats peut-etre urt peu 




AINSI VA LA VIE de Pat MAL- 
LET chez GLENAT, 45 souri- 



VOIR PAGE 66 




HARD 



CD 



Le cul a de plus en plus de 
suceds en France, probablement 
parce que les francais devien- 
nenl enfin adultes et laissent un 
peu torn be r le com pie xe |udeo- 
chr6lien qui leur paralysait le 
dessous de la ceinture depuis 
des siecles et des siecles. 
amen II seratl temps, on est en 
85, ca fait bientol 20 ans qu'elle 
est commences, la revolution 
des culottes I 

Pour Manara. no problem : le 
cul, c'est son true. Depuis son 
album 'Le declic" et le film qui 
en a ete tire, il a trouve la 
combine et ses nanas exhibi- 
tion ntstes fleurissent dans to us 
les machins a la mode. II a 
meme eu droit a un encart spe- 
cial dans LUI ce mois-ci. Et c'est 
bien qu'il soit paru dans LUI. il a 
tout a fait I esprit de la maison : 
le cul avec un alibi. LUI c est 
beaucoup de cul avec un pre- 




lexte culture! pour que te lecteur 
puisse demander le canard a 
son marchand de journaux pour 
les "bons articles' qui y passent 
alors que toul le monde sail que 
c'esl pour les super nanas avec 




qu'on etail habitues a de longs 
strips petits et serres, on a un 
peu I' impression de se (aire 
avoir ici. C'est pas mal quand 
meme, ca reste Barbe. 

TOUT DANS LA TETE de 
BARBE chez ALBIN MICHEL, 
55 polls. 



OUI, 

J'AI FAIM 
(c'est nul) 



"Reglement de conies" fait partie 
de la grande serie des litres que 
j'aurais bien aim£ trouver moi- 
meme. Taffin me la piqu6. sa- 
laud. Ca augure bien pour I'al- 
bum. 

Premiere histoire : nul. Ah. dur. 
dur. Pas nul vraiment. y a de la 
couleur et tout. mais... c'est un 



PEUT MIEUX 
FAIRE ^-^ 

CP 



Ah ca, c'est con. Voila un album 
dont le scenario esl genial, el )e 
pese mes mots. Un bon point. 
Le dessin est complelement ori- 
ginal. Seulement voila. tl lest 
tenement qu'on a du mal a re- 
connailre les personnages. 
C'est dommage. parce que si 
j'avais tout compris, je suis sur 
qu'il se serait trouve catapults 
dans les hauteurs du bd -parade. 
Ca cause d'un prive qui enquete 
sur la dispahiion de plusieurs 
types. II monologue a lout va, 
comme tous les pnves mais lui 
I'exphque : un detective ne parle 
a per sonne. done il est oblige de 
se parler a lui-meme. II evolue 
dans un milieu pseudo- artist ique 
a St Germain des Pres. ou tou' 
le monde se prend pour un ar- 
tiste. 
C'esl lout ce que j'ai compris. 



peu embrouille, quoi 
Deuxieme histoire : Ah I Genial ! 
Troisieme histoire : Ah ! Genial f 
Qua... Bon, j'abrege. ca conti- 
nue jusqu'a la derniere. 



Vraiment. c'est dommage, parce 

que les dialogues sont en beton. 
Vous pouvez peut-etre essay er 

de le tire, en numerotani les per- 
sonnages. Ca vaut suremsnt le 
coup 





SAINT GERMAIN DES MORTS. 
de BODART et STRENG Chez 
BEDESCOPE, 42 francs et une 
palre de lunettes. 



II y a I histoire du condamne qui 
esl en train de rever dans sa 
prison a un couple en train de 
faire lamour. Au m£me moment, 
un gardien approche de la cel- 
lule, avec un trousseau de cles 
a la main. Le couple se roule 
par lerre. Le gardien introduit la 
de dans serrure, la tourne et ce 
couple on ir ique se fait ecraser 
par la ce geante. Fin du reve, 
retour a la realite, te gardien dit : 
"vous etes libere". Je m'atten- 
dais a tout sauf a ca. C'est dom- 
mage. mainlenant vous savez la 
fin. Mais il y a plem d'autres his- 
toires a decouvrir. 
En bref. chers amis, je vous re- 
commande la lecture de cet ou- 
vrage. 



REGLEMENT DE CONTES. de 
Olivier TAFFIN chez GOUPIL. 
34 francs et la photo de I'au- 
teur en prime. 



les jambes en lair qu'il lachete. 
Doivent se maner. les mar- 
chands de journaux. "Bonjour 
Monsieur le cure, je vous ai mis 
LUI de cote, il y a une interview 
de Monseigneur Machin, ce 
mois-ci ". L'encart de Manara 
dans LUI esl assorti d'un 
poeme : le pretexle est la, sur 
qu'il y a des mecs qui vont trou- 
ver de la pc-esie chez Manara. 
Son, bref. Manara. ca me plait 
pas. C'esl bandanl. mais ga me 
plait pas, c'est toujours pareil. 
ses obsedees ont toujours la 
meme gueule lordue par le plai- 
sir, les memes lesses plates, les 
memes roberts birkinesques, les 
memes obsessions et on s'em- 
merde. 

Ce "Glamour book" a la meme 
qua lite que celui de Libera tore 
mats il est beaucoup mo ins 
epais 63 pages seulement. 
C'est gacher un aussi beau pa- 
pier que d'y mettre du Manara 
En plus, ga couie la peau du 
cul. ce qui esl un comble. 

GLAMOUR BOOK de Manara 
(edlteur : voir article Llbera- 
tore). 185 petites culottes 
beaucoup trop cheres. 



JIMMY GUIEU FAIT DES EMULES 



Jimmy Guieu est sans contesle 
possible le plus mauvais auteur 
de science-ficlion du monde en- 
tier. II lait de la si pour les 
m6mes, c'esl completement de- 
bile, mal ecril et sans imagina- 
tion. II puise dans les bons visux 
themes qui ont fait leurs preu- 
ves. comme le voyage dans le 
temps ou le Yeti et brode autour 
une histoire slupide mettant en 
scene des heros qui ont le lort 
d' avoir toujours raison. 
Pourquoi eprouv6-je le besoin 
de parler de ce cretin ? Parce 
qu'il m'enerve prodigieusement, 
et que j'ai perdu 12 balles la 
seule fois ou j'ai achete un de 
ses bouquins. Et aussi parce 
que "la motaire de Mindanao' 
ressemble beaucoup a ce qu'il 
ecrft. 

Une expedition decouvre une 
tribu qui connail la planste Sinus 
B. Comme ca leur prend deux 
pages, ils en profitenl pour trou- 
ver des dents qui ont le pouvoir 



de creer un champ de lorce 
lorsqu'on les trempe dans leau. 
ainsi qu'un hominide neander- 
thalien, un Yeti, les preuves qu'il 
y a eu une visile extra-Terrestre 
sur Terrs >l y a quelques dizaines 
de milliers d'annees et finale- 
men! trouvenl le dernier ET. vi- 
va nt. 

C'est nul au possible. D'abord. 
la sf est un genre litteraire tres 
complexe. A partir du moment 
ou on decide d'eenre une his- 
toire fausse, il taut se demerder 
pour que ca ait lair realists La, 
rale. D'abord, Worcestershire ne 
se prononce pas comme ga 
sec hi. mais "Weursteucheure" 
Meme avec lacceni d'Oxford. 
monsieur le scenariste, Ensuite. 
quand on me dit que sur Sinus 
B un metre cube pese 20.000 
tonnes, j'aimerais bien savoir ce 
qu'il y a dans ce metre cube. 
N'achetez pas, meme pour les 
momes. 




LUNETTES- MASSE 



® 



Masse est fou 

Cela ne fait aucun doute. 
D'abord, c'esl un monsieur qui a 
fait plein de bd, dans les pre- 
miers Echos des Savanes. dans 
Fluide Glacial, un peu partout. 
Un jour, il a decide de faire du 
dessin anime. et ga a donne "Le 
Cagoince Migrateur" pour lequel 
je donne sans tiesiter TOUT Tex 
Avery (vous I'avez peut-etre vu 
a la television ; on voyait un vul- 
gaire pelehn faire une partie de 
"je te liens, tu me tiens par la 
barbichette" avec Dieu). II a fait 
une encyclopedie qui s'appelle 
TEncyclopedie de Masse". II a 
tait aussi des planches pour un 
obscur |Ournal d informal ique qui 
s'appelle "Hubdagecior. ou un 
true dans le style. 
La. il fait un album plem d'illus- 



trations grand formal, toules se 
rapportant a la vie citadine. 
El c'est la que les Atheniens 
sen prennent plein la gueule ; 
comme il est tou. rien dans sa 
ville nest normal. II y a des su- 
permarches de ta psychanalyse 
qui ne vendent que des divans. 
II y a des boulevards peripheri- 




LA MOLAIRE DE MINDANAO, 
de MAGDA et LAMQUET chez 
LOMBARD. 33,50 francs de 
plus que ce qu'il vaut. 



ques au-dessus des cathedra- 
les. Les arcs de Inomphe por- 
lent des couches-culottes. II y a 
des maralhons sedenlaires sur 
des paillassons. 

C'esl genial Ca se regard o 
comme des gravures d'Escher, 
ou comme un album de Dah. 
Plus lard, ga vaudra surement 
beaucoup de ronds. 

LES DESSOUS DE LA VILLE. 
de MASSE chez HOEBEKE. 64 
petits velos dans la tete. 
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LES FABULEUX FREAK BROTHERS 

ET LEUR DROLE 

DE FAT FREDDY'S CAT 





WMo 




Meme si vous n'avez jamais foutu les 
pieds au Texas, vous en connaissez 
les vedettes : le cowboy au grand 
coeur. I'indien plein de plumes. I'in- 
lame JR affuble de ses puits de pe- 
trote et les caiculettes de Texas Ins- 
truments. Pourtant. la veritable star 
texane, celte qui a lavantage d'etre 
nettement plus marrante que les 
autres, c'est Gilbert Shelton ou plus 
exactement ses trois fabuleux Freak 
Brothers et leur drole de chat 
Gilbert SHELTON et ses heros sonl 
des hippies, des babas-cools. comme 
on les appelle ironiquement au- 
jourd'hui. trisle epoque ou ton ne res- 
pecte plus rien. ni les gentils soixanle- 
huitards, ni les heureux hippies, ni les 
tendres CRS. 

Avant, avant... c'etait autre chose. 
Shelton vivait dans une communaute 
avec Janis Joplin. les fleurs. I'herbe 
tendre. les coussins mauves, I'herbe 
moins tendre, I'amour, les waterbeds. 
I'herbe encore moins tendre. Les che- 
veux longs. I'herbe plus tendre du 
tout. La barbe, les favoris. I'herbe 
hard. Les fringues chamarrees. putain. 
elle est bonne celle-la. A bas I'armee. 
c'est du libanais ? Nous sommes tous 
freres. ma soeur. on baise ? Wouah ! 
Super, du nepalais, ou tu I'as eu ? 
Travailler ? Moi ? Ca va pas ? Re- 
passe-moi Hendrix, m'emmerde pas 
avec ces idees saugrenues. C'etait le 
bon temps, mon p'tit gars, aujourd'hui 
c'est foutu. y a plus d'amour, plus de 
poetes. tout tout le camp sauf pour 
eux qui n'onl pas change, ni Shelton 



ni Phineas. ni Freewheelin' Frank, ni 
Fat Freddy, leur preoccupation essen- 
tielle reste le ravitaillement en dopes 
diverses. ils continuent a se faire avoir 
par des dealers roublards. a pHler des 
magasins de bouffe en se faisant pas- 
ser pour la camera invisible, a faire la 
course avec des flics et des mdics de 
toutes sortes. a piloter des voitures te- 
leguidees grandeur nature et a en per- 
dre le contrdle dans les rues de New- 
York, a cambrioler des banques et 
des commissariats, a gagner 500 mil- 
lions de dollars et a les claquer en un 
seul jour, a concurrencer les chemins 
de fer americains avec leur vieil auto- 
bus mauve tout pourri. ils n ont pas 
change dun poll de barbe. Les ameri- 
cains soni toujours morts de rire en li- 
sant ces bandes. 

En France, les Freak Brothers ne son! 
pas encore des stars, je ne sais pas 
trop pourquoi : Artefact les publie 
depuis 1 981 , Actuel a passe des 
bandes de Shelton des 1975. et tous 
ceux qui ont lu le premier album ne 
peuvent pas ne pas se ruer sur les 
suivants. Le sujet principal etant la 
drogue, les editeurs et les journaux 
ont peut-etre boycotte les albums ? Va 
savoir I De toute facon, je vais avoir 
aussi du mal a vous convaincre que 
c'est tout bon ; sept bouquins. c'est 
trop pour un seul homme. surtout 
quand c'est un Milou faineant qui 
n'aime pas les choses difliciles. 
Comment arn'ver sans se casser la 
tete a faire passer dans un seul petit 
article tout le talent de ces quelques 



450 pages de Shelton ? Comment 
choisir parmi ces sept bouquins si 
vous ne voulez pas les acheter tous 
d'un coup ? 

Et le chat, si je vous dis qu'il sort lui 
aussi rarement de chez lui, que ses 
seules occupations consistent a em- 
merder Fat Freddy en lui ray ant ses 
disques, en lui chiant dans les bottes, 
en lui bouffant ses plants de hash, en 
jouant comme un fou avec ses 
bandes magnetiques, en crevant regu- 
lierement son waterbed ou en bouffant 
son canari. Si je ne vous dis que ca, 
ca suffit pour que vous vous precipi- 
tiez sur ces trois albums ? E! que, 
pendant que vous y etes et que c'est 
les vacances et que vous n'avez rien 
de mieux a faire, vous achetiez aussi 
les sept autres ? Oui ? Ca suffit ? 
Vous me faites confiance ? Banco, 
c'est tout bon, precipitez-vous et !a- 
chez-moi cinq minutes, je retourne 
tirer sur mon joint. 



Les fabuleux FREAK Brothers, inte- 
grate - Tome 1 a 4, Nolr et Blanc, 39 
paplers a rouler. Tome 5, couleurs, 
39 bouftees. Tome 6 et 7, couleurs, 
44 taffes. 

Les a ventures du chat de Fat 
Freddy, Tome 1 a 3, nolr et blanc, 
39 caisses a chat plelnes. 



C'est Shelton lui-meme qui a fait ce 
dessln pour I'HHHHebdo. Sympas, les 
babas, n'est-il pas ? 
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GRAPH IK STRIP 



DU PETIT CACA DES HUIT BITS A L'ECLATE TOTALE DU CRAY, 
MATEZ LES REALISATIONS GRAPHIQUES DU SIECLE ! 



LA BOUUMIE VISUELLE 

Limagene intormatique. lout comma 
linformatioue en general, subit une 
evolution permanente qui ressemble 
partois a un sprint Vous sounez au- 
jourd'hui en rogardanl un Pac-Man ou 
un mur de bnques "> Normal : en quel- 
ques annees ces jeu« au dessm aim* 
plist* sont devenus des morceaux an- 
thologie tool juste dots a figurer a cut* 
de la machine a vapeut de Dents 



B vous acquerez un 

de voire choii resin 
alite graphique de celui-O, tout 
e lorsque vous avez achat* voire 



pacnes de resolution des diflerentes 
machines du march* Le graphisme de- 
vieni I'un des arguments maieurs pour 
la promotion dim matenel informatique. 
accompagne par le son at la capacte 
memoire Nimaginez pas pour autani 
Aire las seules personnes a exiger des 
qualnas graph iques Oe plus an plus 
hallucinanies . du sctentrfique au r*ali- 
saleur de cinema an passant par le pu- 
blioste ou I artiste lous desireni profiler 
de nnegalab*e rapidiie et de I immense 
contort de manipulation ofleris par rin- 
formatique dans ce domaine 



Vous aval peut-etre vu Starfighier. le 
premier film a falre appei largement 
am caps cites des ordinateurs. A moms 
que vous ne vous vous soyez extasie 
en retoumani pou' la dixieme Id is vol' 
Tron Ces Mms ftrent appel a un mate* 
nel informatique tourd tola lament in- 
compatible avec les moyens d un parti- 
culier Pour nous pauvres personnes. 




De I'Onc a r Apple, de i Amstrad au 
Comrnodonj 64. pas de tnyetsr* : les 
definitions do ces machines, du fait de 
leurs faibles capacites memoire et do la 



pourront jamais revolutionner le monde 
de limagerie tynttieeque. Des pro- 
gramme* com™ Dazzle Draw (Apple} 
ou Koala (Commodore, Apple} taciliteni 
la creation graphique mats n 'augmen- 
ted pas pour autani le nombre de 
points detinis sur lecrnn. M*me si les 
resultals semWent eictraordinaires pour 
ces mactiines grace a ces program- 
mes, les creations ne sortiront pas du 
domicile de leu' euteur. Aucun aventr 
pour la synthase dimages sur ces 
micro-ordinateurs. ii nous laudra done 
trouver autre chcee I 



LA VITESSE SUPERIEURE 

Avec rapperibon des nouvelles genera- 
tions de moo-orumatou'S cette situa- 
tion se trouve sur le point d'etre modi- 
fiee L utilisation de plus en plus 
courante de micrc-proceeaevrs seize 
bits permet d'oblenir des definitions at- 
teignanl 250.000 points La preeenc* 



Image* Lee prerruaaes a 



oiusieurs 
i page soparais- 



Les Alan 520 ST et Macintosh bases 
sur le 68000 de Motorola ou les Victor 
SI el IBM PC tournant sur le 8066 ou 
le SOBS d Intel gerertt jusqu a plus d un 
mega-octet de memoire Cette lois les 



le la quaine de defi- 
nition proportionnelle au nombre de 
couleurs uliiisees Queiques realisa- 
tion* surprenantes. monochromes, ont 
malgre tout ei* reaiiseos rocemmeni 

Sur Victor, un programme de demons- 
tration de synthese voeeJe presenle 
une bouehe articulanl. en temps reel, 
louies Me paro-es emanant du haut- 
partem Du cot* d IBM. un programme 
i oflre de se promener 



construction en hi de ter encore insul- 
rtsante per son manque de mabere : 
lutiliaateur don encore (aire un effort 
d imagination pour voyager veriuble- 



Le. encore ces ordinateurs de relathre- 
ment faible capadte de calcul ne peu- 
venl donner plus que eel a Leur aspect 
mutli-tonctions en fan des machines in- 
sutfisamment puissant 
moine specif ique con 
dimages, grand co 
place memoire el de 



video. L'inlormalique aulorise la 
verte de perspectives nouvellc 
les domamoB de 1'imaginaire me 



these L OVERDRIVE 

;alcul L image Informal Ique passe actuelle- 

ss Qn " ment de letat de cobaye de laboratoire 

A ceiui de produit commercialisable 

Cette evolution valabie dans tous les 

implique la 



LE GRAND BRAQUET 

Les premiers ordinateurs video-graphi- 
ques I en tent une percee actuelle merit 
darts noire pays, me me si elie se oe- 
roule plutet lentement Les difierenles 
configurations otterles au public comp- 
tent autant de differences entre elles 
que l ensemble du pare des miero-ordi- 
nateurs. Les possibililes des unes et 
des autres vanenl lodemenl, toujOu'S 
en fonclion du moleur utills. 




Le SMC 70 G de Sony sera bten la 
seule machine a user se presenter 
dans cette competition avec un arma- 
ment desuef : un ZS0 A de chez Z-iog 
lul donne acces a trois zones distinc- 
les : la page de texte, ceiie graphique. 
elfin Ii BoiauiQ Oecian La resomiion 

atteinl 256 000 pixels en noir el Wane, 
chulant i 126000 points en qualre 
couleurs Avec seize couleurs et quatre 
pages yaphiques auperpoeeea. ii ne 
you* resfera guere que 16000 polnta 
par page pour feekaer vos phantasmes 
Le reccordemeni a un magrieloscope 
ouvre la voie a la creation de detains 

moment longs A mettre en oeuvno Col 
ancelre de ZB0 sessoulfle a lout bout 
de champ, perdant sen temps dans des 
caJculs terribiement longs et des appels 
aux penphenques de stockage (dis- 
quette 3.5 pouces}. 

Autre machine virJeographique, f'an- 
caise cette tois (cocorico). le De Grate 
about cenames des llmrtee (encore trop 
senelc-ie*} de la manipulation de gra- 
phlques haute resolution grace a sa 
conception revoiutionnaire. Con*truit 
aulour d une architecture multi-proces- 
seurs (un 64 bits pour la video, un 32 
brtt pour lea caJculs. un 6 Ms pour le 
graphique) le De Grate accepte de re- 



el de numenser les images au n/ihme 
de 16 images par secondes Le temps 
reel n'esl plus loin ; la numensation 24 
Images par seconde devrait etie opera- 
tion neite did la fin de lannee. Avec 
ses huii page* superposees et interver- 
tibles, ses deux aources video fixes e< 
cede en temps reel, ce micro oflre des 
posalbilHae pharvnirteusee En quatre 
couleurs (choisies dans une palette de 
16 millions}, presque 260.000 points 
sont sdressabM* separement. alora 
qu'en 256 couleurs la definition lombe 
a 64000 points Lee 64 togicieis (pour 
un total dun mega octets de softs utih- 
lalres) connectaWes sKnuitanement 
permenent de oombler les lacunas pro- 
pres I linlormatique : le lissage des fi- 
gures, par example, supprime les esca- 
liers par trop genants » loeit Un 
panpnerique de masse stocke deux 
cents Images (sur 25 Mo) decouvmnt 




Encore axes Sur le domains video, ces 



gigantesques progres accompiis dans 
les domainos de I algonthmique et du 
materiel au service de la synthase 
d'imagee Mais pourpuoi tant d efforts 
de la pert d'autant de constructeurs dif- 
ferent* ? Simplement parce que I image 
set un produit Industrie! depute la nais- 



nement des akjonthmes de calcul et de 
desain tel quit seta difficile de distin- 
guer la photographic de limage de syn- 



CLIENTELE EXIGEANTE 



Toutes ces sooetes produisenl 
Images pour une clier"'- - 
mam dfvtsee en deux groupes : dune 
pari les agences de puhticite. de plus 
en plus portties sur ce genre de rendus 
giaphioues. d'aulre pari les enireprises 



ges, lout comma lappanlion de verv 
deurs repondant a I appel des premiers 
Les sodeies de creation dimages par 



ques, de rasutlats financiers ou de pro- 
duction} forme la plus grande part de 
leur travail. Environ soixanie pour cent 
de leura travaui ne comporie pas de 
reel travail de creation graphique En 
effet mettre an page du texte ou des 
chlftres restraint conslderaWement res- 
pace reserve a I imagination de rau- 

Heureusement les quarante pour cent 
restarts se separent en deux acttvrtes 
distinctes. D'une part les producteurs 
dimages informallques preparent lave- 



cuments chiffres (courbes de crois- 
sanoa, resultals d'explollation } Les 
tmvaux. apres une realisation sur 
eetan. sont diredemem envoyes sur 
des pellicules de type di a positive pat 
I ordineleur apres une analyse quanula- 
tive de la proportion presente dans 
limage de chacune des Itois couleurs 
fondamenlales (cyan, magenta el 
|aune) Oe ces dlaposiflves seroni tires 
des documenIB sur papier, des iranspa- 
rents (pour les retrpprojecleurs) ou de 
courles sequences videos. 

Un important travail d archivage esl ne- 
cetaaire : les diaques dure supporteni 
deja foute la partie logicielle de ces 
systemes. la disquetle resle la moyen 
privliegie de sauvegarde 



banques d' Images. Ces banques per- 
metient de disposer dun stock crois- 
sant de representations dootets cou- 



d'une image de type aide visuelle 
pourta demander a son foumlaseur de 
lui preparer une traduction de ceitalns 
travaux II parail nettement plus ration- 
nei de laire appel a limage archivee 
qu'a une reconstruction a partir du do- 
cumenl final sur papier ou sur un autre 



t dernier aspect de cette i 




consacror leurs effort* el lours recher- 
che* t la transcription de leur imagina- 
tion sur le support inrormatlque La pro- 
duction d images SrtisVquSS dans ces 
entrepriaes correspond a une demand* 
croissants. Le public montre une vora- 
eiie impressionnante vis-a-vis de la 
quaine des travaux realises 

MATERIEL LOURD 

Ces producteurs dimages synthetiques 



des materials du type compatibles 
MS-'DOS (IBM PC) dedies au gra- 
phltme. Que ce SOU la SNAP (VI Star- 
burst I. Bizgraph (Jupiter 7) ou France 
Images (OAIIM). ces enlreprises se 
sont lanceea aur ce marche de limage 
en s'appuyanl sur des meteriels re- 
cent* de capacites fort similaires. seuls 
les loglciels variant dun systeme A I au- 
tre Les definitions voni de 1024 a 4096 
polnta sur 77S ligne* (de 600 000 a 
3.200.000 points I), avec des palettes 
de 256 couleurs parmi queiques mil- 
Ions Les degrades. Iissages. zooms, 
montages, nu mens a lions dimages 
video, realisations d animations sur 
support video se deroulent pratique- 
ment de la meme lacon dun materiel t 



ne aortent pa* encore des labos Si 
luno des ma i sons profile dun togiciei 
nouveau. les concurrents houspiUenl 
leurs fournisseurs en materiel informeii- 
que Jusqu a obtenllon dun equivalent 



de recherche, i 



si pas encoie dramatique vu limpor- 
ce croissante de la demande, lor- 
a les mtoimaticiens a un pertecbun- 



tante dans le cinema et la pubucrte La 
societ* amencaine Digital Production a 
acquis la configuration la plus impor- 
tante de Chez Cray (le mode I e X-MP} 
dan* le but de vendre des animations 
syrithetiqum JusquA present, les deux 
realisations les plus importantes ont ete 
les sequence* de vols et de comuats 



spabaux dans le troisieme episode de 
la Guerre des etoiles et dans Starfigh- 
ter L inv oallaa emeni dune quinzalne 
de millions de dollars 



conde (vrtesse largemeni sutlisante 
majorita des 
112x512 (un 




peu plus de 260 000 points), tt 
couleurs Le systeme delin.t par JF 
Colonna s onente aulour d un noyau de 
programmes ouvrant la porle aux pos- 
sibilites suivantes : synthese bi ou Iri-di- 
mensionnelles, ttaitemem et transfor- 
mation dimages. generation 
d animations, description de structures 
el experimentation soentifique A lave- 
nir les oojectifs sorientent autour des 
options do oeveloppement de la defini- 
tion (jutqu a 2048x2046. plus de 4 mil- 
lions de points), d amelioration des ani- 
mations Ousoju'S 24 images seconde} 



exemple Irappant de I'ai 
deja dans les salles de cm 
television trancaise : la promotion du 
dernier apoaroii 24x36 de Canon a etfi 
: reelisee par Informatlque 
Un film video du bofber a 
toume, pule numense Le decor a 



billies a duel les 



lion das algorithmes de production 
dimages synthetiques, les scientlliques 
et le* cnercheurs n'ont pas a repondre 



le cout dune image de synthese Le 
calcul du prix dune image ne releve 
pes de i oxorcica d'apothicaire : le fac- 
teur principal resle le temps consacre 
par le graphiste n la conception et la 
realisation de I image. Dans lo domaine 
de raid* visuelle. un produit depasse 
raiemem la somme de 500 franca elort 
qu'une ilkistration travaiilee sans aucun 
appel a la benque dimages. necessi- 
tant jusou'a une domi-journse de tra- 
de 5.000 francs. 



La caracterisbque commune a toutes 
ces societes de production d images de 
synthese reste leur Incapacitti. en puis- 
sance de calcul comme en temps de 
realisation, a orlrir des animations en- 
tierement synthetiques en 24 images 
par seconde Pout atteindre cette qua- 
lite de definition, un materiel Informatl- 
que largement plus important devienl 
nacessaire Les super-calcutateurs lets 
lee systemes multi-proceeseurs comme 
lee Vax. lea Nee ou lea Cray I devien- 
nent rapidement indispensables 



plan commence A prendre vie, laissant 
tomber dans loubll le* forets statques 
des productions Watt Disney ou equlva- 



Malgre tout la production dimages ar- 
tittiques ressemble fort A la partie 
emergee de* icebergs. Aujourdhui. 
dans de multiples domainos de la re- 
cherche scientifique (mecanique des 
fhjides. tneorie des nombrea. prevision 
meteorotogiqije. astrophysique. biolo- 
gle...) la repreeentanon des reaurtata de 
caJculs etlectues sur des ordinateurs 
tels que le Cray 1 ne se pratique plus 
autremeni qu'a I'alde du graphlsme en 
deux ou trois dimensions. Le pouvoir 
d integration de loeil permet la saisie 
dune masse dmlormatlons largement 
plus comprehensibles et compactoes 
sous la forme dun ou de piusieura dei- 
sms que sous cxHie de cotonnes de 



Le probleme ossoniiei a resoudre reste 
la performance des algorithmes de re- 
presentation en animation t>i ou tri-dl- 
mensiorinelle Cheque informaticien 
joue. dans ce domaine, le r6le du 
Chritsophe Cotomb de la programma- 
tion. Pour cheque nouvel aJgorrthme, 
un secret iaJousement garde vellle A 
assurer la notorieht de son decouvraur 
tors des rencontres Internationales des 
producteurs dimages synmetiques 
L riistoire de I'un de ces pionniers de 
limage arbficieee vous fixera un peu 
les idee* dans -e domaine. 



UNE VIE EXEMPLAIRE 

Jean-Francois CcJonna a londA le LAC- 
TAMME en 1974 Le laboratoire. ins- 
tee* a I'Ecofe Porytechnique. a tout 
d'abord ete consacre a la conception 
de deux systemes dense -gnemont 
multi-medias assislA par ordinateor Par 
la suite le laboratoire a devettppe ses 
activites aulour da qualre axes eeaen- 
tiets : la production de films pedagogi- 
ques, la gestion de banques dimages. 
la visualisation de resurtats do calculs 
(en relation avec le C2VR. le centre de 
calcul da I'Ecote. dot* o'un Cray 1 et 
bierMOt dun Cray 2. si tout se passe 
bien} et enfin le creation artisbque. 



Eniin it consacre une partie de son 
temps a la production dimages artisti- 
ques Ses planoies Imaginaires. toul 
comme ses momagnes ont deja tail le 
lour du monde de par leur exception- 
nelie quaMe II parart regretlable qu une 




puisae protnor d un materiel performani. 
mais deja le plaisir de contemi ' 
payaages tantasmagonques 



trontieros lusqu'alors intranchissables 

UNE PART DE REVE 

Vous souhrataz en savoir plus Ou profi- 
ler Oe ce riouvel univers 7 Pour le mo- 
: encore trop 



aller admirer (si vous etas de passage 
dans notre capitals) le film dune ving- 
taine de minutes projet* a ia Geode 
En provenance de luniversite du Mine- 
sola, II regroupe la majorit* des techni- 
ques employees actueflement dans le 
domaine de la synthese dimages Un 
must dans le domaine que vous vous 
devez imperativement de connallre si 



Une autre methode pour vous tenir au 
courant ccnsisle a survre les compte- 
rendus, dans les magazines sOenlifi- 
quee, des rencontres entre scientifiques 
comme le Siggraph (conference mon- 
diale sur rimage de synthase} ou Euro- 
graphics (qui se beridra cette tnnto A 
Nice Ou 9 a. " 
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JF Colonn* a devetoppe ses propres ton : 



PHOTO EN TETE DE PAGE 

Cinq Atapes de la renoomre fort hy- 
potnetique. bien qu'au *ommet. entre 
un noyau superbe de Lanthene et un 
noyau non moine admirable de Kryp- 



que depasse : une configuration Solar 
16. datant de pru* de dix ans. Les re- 
sultals obtenus en surprendront phis 
an 9 images par 50- 



lemps de dire out - pas plus de It 



LE LOGICIEL QUE VOUS NE POUVEZ 
PAS NE PAS POSSEDER 



Depuis bien des generations, 
noire celebrissime famiile se 
consacre a letude des scien- 
ces, considerees par nos igna- 
ros de contemporains. comme 
occultes. Dernier rejeton dune 
lignee immemonaie. le temps 
vient pour moi de coucher 
par ecrit les tails et gestes de 
mes ancetres. Lointames sont 
nos racmes, etranges les le- 
ge ndes qui les enlourent. 
D'aucuns soupconnent des 
marches avec le diable ou 
d'autres entiles encore plus 
maltaisantes. mais rien de toui 
cela n'est vraiment londe: mais 
comme dans loute legende, 
une part de verite git dans les 
racontars des bonnes fern mes 
murmures a voix basse au 
coin des cheminees lors des 
longues soirees d'hiver. Certai- 
nes m'onl permis de relrouver 
la trace d'aieuis oublies, d'au- 
tres m'ont egare dans des re- 
cherches longues el vaines 
mats la patience vient a bout 
de tout, me me de I'histoire de 
ma (ami lie. en voici le recil. 
Vous ne pourrez m accuser de 
dissimuler ou d'invenler cer- 
tains des faits, par trop surpre- 
nants, que je rapport e icl. Je 
n'ai (ait que rassembler. anno- 
ter. verifier, collecter et trans- 
crire ces mythes qui ne se 
transmettent qu ' o r a le men t 

depuis des sidcles. 

LA GESTE DE BILBO (1) 

Loin dans le passe le plus obs- 
cur de la Terre du Milieu re- 
pose le corps d'un etre 
elrange, ni homme ni bete, 
doue de raison lorsqu encore il 
foulait de ses pieds poilus les 
douces col lines de son pays 
natal, la Comte Son domicile, 
soigne use ment enlretenu el 
amoureusement amenage 

contenait de nombreux objets 
in so files venus des centre es 
les plus lointames. Bilbo, tel 
etait son nam. parcourut dans 
sa prime jeunesse nombre de 
lleues accompagne d'autres 
representants de races dispa- 
rues. Dix nains I'emmenerent 
dans une a venture singuliere 
sous la press ion dun magicien 
de ses amis nomme Gandalf. 
ou le Magicien Blanc. 
Leur quete les mena lout 
d'abord dans une region intes- 
tee de Trolls, sombres brutes 
tout juste capables d'amasser 
les richesses des gens quits 
devoraient. Ces Trolls man- 
querent de peu daneanlir 
lequipee, mais un soleil res- 
plendissant detruisrt toute vel- 
iei'te combative en tes meta- 
morphosant en pierre. De la 
suite du voyage, bien des 
bribes disparurent Des semai- 
nes plus lard ils echouerent 
dans le domains des eltes de 
la torel. elfes particulierement 




jx puisque ne suppor- 
tant ni la vue ni I'odeur des 
nains, ils smprisonnerent toute 
la compagnie pres de sa cave 
a vin. 

La encore le til de leur quete 
se brise pour se reconstituer 
alors qu ils atteignent I'antique 
cite des nains alors occupee et 
dominee par un dragon aux 
mille pouvoirs. le ruse Smaug. 
Aides par les humains de la 
ville du Lac et par un Gandalf 
survolte, ils vainquirent apres 
de lourdes pedes ce demo ma - 
que reptile. L'or des nains re- 
trouve. Bilbo retourna dans sa 
Comte bien decide a ne plus 
jamais partir a lassaut de lin- 
connu. 



LE VOYAGE DE L'AGENT 
2047(2) 

Parti dans un univers parallels, 
Howard Smith arriva dans un 
monde curieux peupie d'ordi- 
nateurs et d'humains agressils 
plus portfis sur la deslruclion 
de leur monde que sur letude 
de I'harmonie universe Ne. 
Oblige de travailler pour sub- 
sister dans cet environnement, 
il reussit a s'engager dans les 
troupes d'elite de fun des deux 
beliigerants. les denomm6s 
Amenksns Une lutte sauvage 
et auto-deslructrice les oppo- 
saient a ce moment non pas 
aux Sauvietiks, mais a Tun des 
leurs, un scienlifique determine 
a detruire la planete. 

Howard, dissimute sous le pa- 
tronyme d' Agent 2047 fut le 
dernier espoir de THumanite 
pour faire echouer les projets 
du dement. Introduit dans la 
rorleresse soulerraine de cet 
insense. il partit a la recherche 
d'un ensemble de cartes ma- 
gnetiques don n ant acc6s a la 
salle de controls. Dans chaque 
salle des robots tueurs I'atten- 
daient prolitanl de chaque ins- 
tant d' in attention pour all enter 
a la vie de 2047. Chaque meu- 
ble, chaque objet etail suscep- 
tible de dissimuler un element 
des cartes magnetiques. Cha- 
que seconde qui s'ecoulatt rap- 
prochail de Tissue fatale En 
moins de six heures. 2047 de- 
vaft realise r ce qu'aucun de 
ses predecesseurs n'avait 
reussi : arreter a temps le 
comple a rebours qui declen- 
cherait le vol massif des missi- 
les intercontinentaux. 




Luttant contre la panique il par- 
courut nombre de pieces, 
toules semblables n etaient la 
couleur de la peinture et les 
occupants. Bondissant dun 
distributee de boissons a un 
sofa, il fouilfa fr6netiquement 
chaque centimetre carre de 
I' univers metallique du savant. 
En possession de vingt quatre 
morceaux de plastique, il dut 
ensuite reconstituer les cartes 
magnetiques. Pour reussir ce 
casse-tete il fit appel a Tordina- 
teur central de son service de 
secunte pour I aider a assem- 
bler correctemenl les pieces. 
Ouelques minutes a van! 
I'heure fatidique il poussa un 
long cri de joie : la serrure de 
la salle centrale aliait subir les 
seuls assauts capables de la 
detruire : ceux des cartes pre- 
vues pour t'ouvrir. La victoire 
remportee par Howard sur le 
savant le rendit surtisamment 
ceiebre pour qu il disparaisse a 
tout jamais de I'histoire. 



LES OIAMANTS MAUDITS (3) 

Le peuple des Rorkams se 
destmait, des la naissance, a 
la collecte de diamants gigan- 
tesques. qu'eux seuls savaient 
ramener sur la planete des 
hommes. Les Rorkams deve- 
loppaient durant la plus tend re 
enfance de leurs rejetons une 
faculte de projection menlale 
leur donnant acces aux mines 
secretes dun etre puissant et 
indicible, Molfar 

Chaque expedition dans ces 
mines ne s'accomplit que seul. 
L'aide de son intelligence, de 
sa promptitude et de ses re- 
flexes est completement ne- 
cessaire au Rorkam parti a 
Taventure. Le monde des 
mines, protege par des char- 
mes puissants. empeche le vi- 



siteur de ressortir vivant de sa 
quete s'il ne parcourt pas les 
quarante galeries ere usees 
voici des eres par Molfar Ve- 
lion dfisirait prouver que son 
nom etait digne de la race des 
Rorkams. Son courage n'avarl 
d'egal que sa generosne el 
son endurance quasi legen- 
daire en faisait un diamantaire 
possible. 

Velion partit un matin, accom- 
pagne par les esprits de sa fa- 
milTe. Seul il parcourut deux 
galeries, expedient dans son 
monde natal plus de vingt pier- 
'- beauie. 




Dans la iroisieme. un souffle 
de panique effleura son cer- 
veau : bloque dans un cul de 
sac il vit sa fin arriver, lorsqu il 
apercut une solution, fort ris- 
qu6e certes. mais quelchoix iui 
restait-il ? Dun geste rageur il 
arracha le dernier bloc de gra- 
nit retenant la voute de la gale- 
rie et plongea vers la parol. Le 
fracas de tonnes de roc her se 
fray ant un passage vers le bas 
le rendit sourd jusqu'a la fin de 
ses jours. Par le passage ainsi 
degage, il parcourut les autres 
galeries de Molfar, rapportant 
plus de gemmes qu'aucun de 
ses ancetres. 

AU ROYAUME DES KATAS 
(4) 

L' ignoble Akuma vena i I d'em- 
prlsonner la douce et belle 
princesse Mariko. Seul face a 
I'armee des fiers combattanls 
d' Akuma le sombre. Yoshigo 
partit a lassaut de inexpugna- 
ble forteresse du felon. Grim- 
panl de rocher en rocher, sur- 
plombant le vide de plusieurs 
centaines de metres, Yoshigo 
atteignit I'allee au point du jour. 
Le Fuji San, T6ternelle monla- 
gne veillaii sur ses pas. admi- 
ranl la souplesse feline du 
corps de Yoshigo. ■ 

Se retabllssant dun bond sur 
la route pavee d'ardoise, Yo- 
shigo salua le soleil levant se 
pr6paranl a combattre. sans 
peur, sachant que la mod pou- 
vall venir le faucher dans les 
heures suivanles. La voie du 
karateka le rapproche du Tao : 



lequilibre regne en maitre. 
lenergie doit etre catalyses 
pour atteindre une sagesse su- 
pe rieu re a celle de I'adver- 
saire. Trois combats, a Tissue 
fatale. furent necessaires a Yo- 
shigo pour atteindre le Tori 
gardant f entree du domaine 
d'Akuma. 

Des Tentree Iranchie, Taigle 
malfaisanl du maitre de ceans 
tenia d'aveugler Yoshigo dun 
coup de ses serres puissantes 
D'un tsuki terrible, Yoshigo eii- 
mina le volatile, alors qu'un 
nouveau garde s'appretait au 
combat, poussant son cri de 
guerre. Combat apres combat, 
Tepuisement gagnait Yoshigo 



lorsqu enf in Akuma se pre- 
sents lace a Iui. De I'heure du 
colibn a I'heure du rossignol, 
les deux mail res du karate 
s affronterent dans une lutte fe- 
roce. Dun dernier mawashi- 
geri. Yoshigo mit fin au regne 
d'Akuma. Tenvoyant dans le 
territoire des ombres. Mariko 
d6livree. Yoshigo se permit de 
S'effondrer a me me le sol. 
pnve de toute energie vitale 
Sorti de convalescence il 
6pousa la princesse, vivant 
heureux et elevan! ses enfants 
dans le respect de la voie du 



Tool le monde n'arbore pas 
forc6ment des tilres de gloire 
guerriers Cleveland Porter, 
pour sa part, lirait une legitime 
fierte de loeuvre discrete mats 
eprouvante qu'il avail mene a 
bien dans sa jeunesse. Pilote 
d'heiicoptere de formation, son 
boss T avail charge du net- 
toyage d'une gigantesque cite 
souterraine infestee de cham- 
pignons luminescents du plus 
mauvais effet. Arme de quel- 
ques bombmettes. Porter partit 
sous terre un matin d'Avril, fer- 
memenl decide a en finlr avanl 



toire de Tennemi. Place dans 
un vaisseau de nouvelle 
conceplion, il partit accompa- 
gne de son equipage la von 





Plongeanl sous des hanes pe- 
trifiees par le temps il debuta 
son travail dans les conditions 
les meilleures I les obstacles a 
franchir tenaient plus du jeu 
d'enfant que de la prouesse de 
pilotage. Mais avec le temps el 
en seioignant de la surface il 
decouvrit des passages som- 
bres el humides. repaires 
reves pour des araignees 
geantes. Des installations de- 
fensives puissantes menace- 
ren! plus d'une fois de reduire 
son appareil a un petit las de 
cendres. 

Le ou la surprise le trap pa de 
plein fouet, ce fut lors de la 
rencontre des locataires hu- 
mains de la cite. Equipes d'en- 
gins similaires au sien, les 
bandits chercherent a maintes 
reprise de le chasser de leur 
domaine. La tenacite de Porter 
Iui permit a echapper a une 
mort certaine. tout en accom- 
piissani bhllament la mission 
qui lui avait eie confiee. De ce 
jour, il put vivre de ses rentes, 
louanl son heiicoptere aux tou- 
ristes prets a visiter ce do- 
maine souterrain. Une bien 
belle histoire pour ce fils de 
lermiers du Berry profond 



La conquete spa Male debutee 
depuis maintenant plusieurs 
mi 1 1 en a ires semblait en passe 
de s'arreter. Pour la premiere 
fois une race civilisee semblait 
vouloir regner sur les Qa'axies 
dominees par la race humaine. 
Durant des annees. THomme 
lutta contre ce nouvel ennemi, 
detruisant systematiquement 
tous les postes avances batis 
sur son territoire. 

Olmar Golfaim. pilote de croi- 
seur connu sur lous les fronts 
de la guerre fut nomme par le 
gouvernement galaclique pour 
mener a bien la premiere 
contre-offensive dans le terri- 




dans une mission que la majo- 
rity des mililaires considerait 
comme un suicide. Franchis- 
sant d'un bond hyper-spatial 
les centaines d'annees-lumiere 
le se pa ran i de son objectif, 
Olmar debuta une guerilla 
sanglante contre toutes les 
planetes de Tlmperium Sulvi- 
rien. 

Eradiquant loute vie sur les 
planetes qu'il rencontrart, il ac- 
compli! ce que des annees de 
lutte ouverte n'avaient pu reus- 
sir : il epuisa economiquement 
Tlmperium. bloquant les cen- 
tres de production, massacrant 
toute construction spatiale ou 
terrestre d'ongine Sulvirienne. 
Apres quelques minutes- 1 u- 
miere de ce style de combat, 
Olmar assista en personne a 
la reddition de I'Empereur Sul- 
vir V et finit sa vie dans T opu- 
lence, le luxe et le stupre. sur 
Aphrodisia la planete des plai- 



La vie dun magicien n'a rien 
de facile ni de rejouissant 
Pensez done, Tilluslre Meryam, 
sage parmi les sages, a passe 
I ensemble de sa longue vie a 
etudier les a r canes de la 
magie. ne saccordant pas la 
moindre seconde de repit. pas 
le moindre 6cart de vie. pas le 
moindre plaisir si commun aux 
humains. Sa seule joie. son 
seul plaisir : creer de nouveaux 
charmes, des sortileges puis- 
sants capables d'emprisonner 
la volonte, lenergie vitale ou 
Tame de Tetre de son choix 



De tels pouvoirs auraient 
communique la soil du pouvoir 
a nombre d hommes, mais pas 
a Meryam. La seule occasion 
oil il dut mettre la theorie en 
application dans le monde reel 
fut lors de 1 enlevement de 
tous ses eieves par les sor- 
ciers des lies. 

Parcourant les chateaux et les 
masures, les col lines el les 
plaines. il lutta contre les 
chime res envoyees par les 
sorciers prodiguanl les en- 
Chantements aussi sou vent 
que necessaire. De ce combat 
phantasmagonque, les arbres 
calcines et les ruines des iles 
en diront plus long au voya- 
geur que le meilleur des reals 
du plus fabuleux des contours. 
Ce voyage epique qu accomplit 
Meryam se chante encore 
dans bien des conlrees. mais 
d'aucuns pretendent qu'il conti- 
nue encore dans des spheres 
sup6neures et qu'tl n'est pas 
encore temps de do re ces 
recits. 




De Meryam, pas la moindre 
trace subsiste ses etudiants 
rfiapparurent les uns apr6s les 
autres. tous dans un eiat pi. 
toyabie. tous incapables de 
formuler d'autres mots que des 
actions de grace en vers leur 
Mailre. Les uns dirent que Me- 
ryam avail succombe a un dra- 
gon, d'autres pretendirenl 
I'avoir apercu. chevauchant 
une licorne et poursuivant une 
armee de satyres aux sabols 
fourchus. Nul ne saura la ve- 
rite avanl que Meryam re- 
vienne parmi nous. 



VOILA LES BONS : 

(!) The Hobbit de Melbourne House pour One i et Atmos. Ce 
logiciel contient ialgorithme le plus tabuieux jamais cree pour un jeu 
d'aventure. Base sur le conte de Tolkien, Bilbo le Hobbit, it vous 
permettra de p&netrer dans iallegresse ce monde merveilleux peu~ 
pie de gnomes, nains, elfes, trolls et aulres monstres 

(2) Impossible Mission d'Epyx pour Commodore 64 Ce prodigmux 
melange d'arcade et de reflexion vous transporter de bonheur lant 
le graphlsme et le son sont excellents une production prodigieuse 
de quallte et d'originalite. 

(3) Boulder Dash dOrpheus pour MSX La premiere adaptation 
parfailement reussie dun hit sur le micro japonais. Le principe lode 
runnerien du jeu ouvre la porte a des heures de plaisir devant les 
casse-tetes poses par les quelques quarante tableaux ofterts a voire 
reflexion, dans un contexte graphique et musical parfailement 
reussi. 

(4) Karateka de Broderbund pour Apple. Un summum du jeu d'ar- 
cade sur cette machine gene'ratement dddiee aux jeux d'aventure. 
Ce logiciel a /'animation fabuleuse vous entrainera dans une arcade 
epoustouflante de realisme. 

(5) Fox de Machbro Software pour Thomson. Le premier ieu d'ar- 
cade valable sur ce micro abandonne des programmeurs. Un en- 
semble de seize tableaux, tous plus diaboliques et pieges les uns 
que les autres. vous tend les bras A vous de creer vos tableaux 
des que ceux toumis par I'auteur vous semblent trop simples. Une 
qualite de realisation exceptionnelle que vous ne retrouverez pas de 
si tdt. 

16) Dark Star de Design Design pour Spectrum. La balade la tete 
dans les etoiles s'accompagne de plongees au ras du sol lors d'at- 
taques de planetes. Vous vous ectaterez a visiter les trous noirs 
comme si vous y etiez. Une qualite graphique incomparable et le 
vide sonore de I'espace sont parfattement restitues. 

(7) Sorcery de Virgin pour Amstrad Le combat de titan que vous 
menerez contre les sorciers pour liberer vos emules vous transpor- 
tera de joie : le graphisme soigne et le son parfailement genial ren- 
dent /atmosphere de ce ieu d'arcade suttisamment oppressante 
pour justitier un acharnement a toute epreuve. 
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LOGIZIQUE 



Berroyer 



IAN CURTIS 
EST MORT 



On ne va pas loujours (aire comme si tout le 
monde avail tout vecu. Si on parte de New 
Order it fau! rappeler quit s'agit du groupe 
Joy Division ampute depuis cinq ans (deja) ? 
de son chanteur Ian Curtis qui s'est pendu 
on ne sait trop pourquoi. alors quit avait un 
peu plus de vingt ans. C'est bizarre d'ail- 
leurs, je m'occupe dune rubrique sur la morl 
dans le mensuel Hara-Kiri, j'ai eu pour le 
numero d'aout a parter de cinq morts un peu 
proches. A cette occasion je me (aisais cette 
reflexion : les femmes se pendent rarement. 
Elles prennenl des cachets. Ce sont les 
hommes qui se pendent. II y a peut-etre 
quelque chose la-dessous. Une phallique rat- 
son. L'erection, le pendu n'en prolite pas. Je 
ne sais pas s'il y a ejaculation lorsqu'un 



etait un crilere de qualite artistique. 
L'ennuyeux ne depend pas du sentiment qui 
emane d'une oeuvre. 

D'ailleurs. Ian Curtis n'etait pas le tenebreux 
affecte. II parail meme qu'il elait plutdt 
joyeux et letard dans la vie. Son acte en a 
surpris plus d'un. Ce qui pourrait d'ailleurs 
nous opposer un certain "Ah tu vois bien V 
des detracteurs. mais lisons plutot un pas- 
sage de I'article que lui consacrai! Patrice 
Bollon dans Liberation du 10 Mars 1982 : 
"C'etait (Ian Curtis) un individu "normal", plu- 
tot terne et banal, sans signe distinctif. parce 
que rien - une culture, une soutfrance, un 
background- ne semblait pouvoir expliquer 
qu'il en soil I'auteur (de son art), tout un 
contre-mythe s'est developpe ; "Ian Curtis 
n'etait qu'un rustre, un brave buveur de 
biere, amateur de pubs, de foot et de filles, 
qui aurait fait cette musique renversante par 
hasard ou par spontaneite... Sans que cela 
I engage plus que de distiller un disco raco- 
leur ou bien des chansonettes bien construi- 
tes." Jaimerais pouvoir applaudir a la de- 





tausse pop synthelique, dans laquelle se 
cache quelque chose de grave, de doulou- 
reux. Et une enlite subsiste. C'est pourquoi il 
n'y a loujours pas les textes des chansons 
dans les pochettes. Les gens de Joy Division 
ont decide de ne rien imprimer nulle part 
parce qu'ils pensent que les lextes ne doi- 
vent pas etre separes de la musique. Pour 
ne pas detruire I'entite justement. Peut-etre 
qu'ils en font un peu trop. Personnellement. 
j'aime ecouter les chansons qui me plaisent 
avec le lexte sous les yeux. Quand ce nest 
pas chanle dans ma langue, je men irouve 
plus pres. Je ne suis pas le seul a voir les 
choses comme ca. J'ai la un pelit bouquin. 
sur Joy Division fait par les fans pour les 
fans. Les textes des chansons sont repiques 
a I'oreille sur les disques. Devoir de vacan- 
ces : vous allez vous offrir le premier album 
de Joy Division. "Unknown Pleasure". 

Je vous donnedes textes des chansons de 
cet album. A la renlree. si I'ensemble vous 
plaH, il ne vous reslera plus qu'a acheter 



DAY OF THE LORDS 



homme se pend. D'ailleurs c'est peut elre 
une ejaculation et pas d'erection. Ou bien ies 
deux. Les pendus ne sont pas la pour en 
parler. On sait toutes ces choses-la vague- 
ment, mais il faut avoir pendu pour en etre 
sur, Personnellement. je n'ai jamais pendu 
personne. Je me faisais cette reflexion et 
puis je passais a autre chose, je suis tres 
disperse. D'ailleurs, revenons a nos ros- 
beels. Joy Division est apparu en pleine re- 
naissance rock. Enlre 75 et 80 quand il en 
sortait de partout de toutes les influences. 




mystification ainsi proposee. Le seul 
probleme est quelle ne resisle pas un seul 
instant a une ecoute meme distraite de Still 
{album Live posthume). 
N'importe quel cretin dipldme vous le dira. II 
y a de la lolie dans cette facon de se retran- 
cher du monde. Et de s'engoulfrer dans un 
univers d abstractions, de se meltre en co- 
lere contre soi. de se mutiler afin de s'obliger 
a se depasser. de se revolter stupidement 
conlre sa condition. 

Que Ian Curtis n'ait pas eu la tete de I'em- 
ploi. qu'il ait meme cherche-en vrai fou-adis- 
simuler son malaise c'est tant pis pour les 
cretins qui ne jugent que sur les apparences 
et lant mieux si cela peut apporter de la sub- 
tilite dans ce monde debile et immature du 
rock. 



y en avait de tres originaux a qui il etait diffi- 
cile de mettre des etiquettes, lis etaient neo- 
rien. C'etait le cas de ce groupe. On ne I "a 
pas connu sous son premier nom "Warsaw", 
Le disque est sortl plus tard, pour les collec- 
tionneurs. II y manquait la production, avec 
la Reverb outretombesque qui est venue 
ajouter au charme. II y avait quelque chose 
de tolalement nouveau et poetique la- 
dedans. Certaines personnes n'ont jamais 
compris ou etait le charme. Elles trouvaient 
ca morbide et chiant. Mais il y avail une 
sode de naturel dans cette musique. Eiie 
etait reellement inspiree. Le morbide chiant 
est venu apres tous les groupes qui se sont 
engouffres dans la breche et qui nous ont 
fait du Joy Division sans ame. 
Pour avoir lessentiel de ce groupe, suffit 
d'acheter les deux albums "Unknown plea- 
sure" et "Closer". C'est vrai que fe fond n'est 
pas joyeux. Et alors ? Comme si la gaile 



JIM MORISSON 
EST MORT 



Ian Curtis n'est plus la, plus la. Joy Division 
est devenu "New Order". Depuis, c'est A!- 
brechl le guitariste qui chante. Il n'a pas 
cette voix grave et emouvante qu'on avait 
comparee a celle de Jim Morisson -c'est vrai 
qu'il y avait un peu de ca-. il a un mal fou a 
chanler, mais un charme sen degage tout 
de meme. Joy Division n'etait pas que Ian 
Cudis. II y avait comme un espril commun, 
une intelligence oo groupe. El les rifts de 
guitare d'Albrecht ne sont pas pour rien dans 
I'affaire. lis sont tout aulant charges de me- 
lancolie. Les disques de New Order son! 
etranges tout de meme. C'est une sorte de 




This is the room, the start of it all 

No portraits so fine, only sheets on the wall 

I've seen the nights, filled with bloodsport in 

vain 

And the body's obtained, the body's obtained 

Where will it end. where will it end ? 

Where will it end, where will it end ? 

These are your friends, from childhood lor 

you 

Who goaded you on. demanded full proof 

Withdraw maiden's heart, and do you right in 

So distorted and Ihin, distorted and thin 

Where will it end. where will it end ? 

Where will it end, where will it end ? 

This is Ihe car, at the edge of the road 

There's nothing disturbed, all the windows 

are closed 

I guess you were right, when we lalked in 

the heat 

There's no room for the weak, no room for 

the weak 

Where will it end, where will it end ? 

Where will it end, where will it end ? 

This is Ihe room, Ihe start of it all 

Dreamt I fled from you. I remember it all 

Oh I've seen the nighls. filled with bloodspod 

in vain 

And the body's obtained, the body's obtained 

The body's obtained 

Where will it end, where will it end ? 

Where will it end, where will it end ? 



NEW DAWN FACES 



A change of speed, a change of style 
A change of scene, with no regrets 
A change to watch, admire the distance 
Still occupied - though you forget 
Different colours, dine rents shades 
Over each mistakes were made 
I took the blame 
Directionless, so plain (o see 
A loaded gun won't set you free 
So you say 

Well share a drink and step outside 

An angry voice and one who cried 

We'll give you everything and more 

The strain's too much, can't take much more 

Oh, I've walked on water, run through fire 

Can't seem to feel it anymore 

It was me - waiting for me 

Hoping for something more 

Me - see in me this time 

Hoping for something else 



SHADOW PLAY 



To the centre ol the city, where all roads 
meet 

Waiting for you 

To the depths of Ihe ocean, where < 
sinks 
Waiting for you 

I was moving through the silence without mo- 
tion 

Waiting for you 

In a room with a window, h a corner 
I found truth 



Closer. L'exercice. c'est faire comme ces 
gens : trouver les texles a I'oreille. A la ren- 
tree on vous donnera ceux du petit bouquin. 
Vous pourrez comparer vos oreilles avec 
celies des auteurs du livre. 
Plus tard encore, on verra ce qu'on peut 
faire avec New Order qui ne manque pas 
d'inlerel. 

Mais alors, le dernier album de New Order, 
vous ne nous en avez rien dit ? Ca va ! C'est 
les vacances. On pourrait Ires bien ne pas 
etre la du tout. 



I hope 



In the shadowplay, acting out your own 

death 

Knowing no more 

As the assassins all grouped in four lines 

Dancing on the floor 

And wilh cold steel, odour on their bodies 

Made a move to connect 

I could only stare in disbelief as the crowds 

all left 

I did everylhing, everything I wanted to 
I let them use you for their own ends 
To the cenlre of the city in the night 
Waiting (or you 

To the cenlre of the city in the night 
Waiting for you 



LOGIZIQUE 



Berroyer 



BLUE MOON 



Vous allez faire ce qu'on va vous dire. C'esi 
pour votre bien. Vous vous rendez chez Blue 
Moon. 16 Bd S! Germain, ou bien vous y en- 
voyez le disquaire du coin. Vous vous procu- 
rez ("album de Oku Onuora "Pressure Drop" 
el son livre "Echo". C'est un bouquin, ce 
livre. que Bernard Loupias et William Tani- 
feani on! tente de traduire avec toules les 
precautions, pas tenement d'usage d'ailleurs. 
pour nous expliquer qu'ils onl essaye mais 
qu'on ne Iraduil jamais vraimenl la beaute 
des langues el des langages ou de la poe- 



DEBOUT 
LA-DEDANS ! 



On va parler un peu de Blue Moon, cette 
boulique du boulevard St Germain. Le reg- 
gae, en France, depuis la mod de Bob Mar- 
ley, c'est bien retombe. n a pas accroche 
plus que ca. le petit franchouillard. Poudanl, 
c'est quelque chose le reggae. C'est un peu 
comme le blues. C'est un deuxieme blues 
devenu accessible aux occidentaux. Juste- 
ment il n'a jamais accroche au blues non 
plus. Pas plus que Tamericain. Faut pas 
croire I'americain, il est aussi Durand que 
Durand. Pire meme, des fois. II ne lait pas 
beaucoup de choix, il consomme ce qu'on lui 
enfourne. II se laisse assailiir. Ne prend 
jamais le temps de (aire le point. Meme aux 
cabinets il est cable MTV. Sans parler du 
"Meiileur des mondes" ou de "1984" il y a 
des ecrivains dans les annees 50. des pelits 
visionnaires, qui voyaient deja ca. C'elail pas 
flagrant comme aujourd'hui. Mais its voyaient 
bien les generations elevees aux petite pots, 
les veaux que ca allait faire. On y est plus 
que jamais. Le cul s'alourdit. la cafetiere 
s'embrume. 

Tout le monde salt "tout la meme chose". Et 
ca ne lui sert a rien au monde. On me dira: 
'C'esi letemel refrain du passeisle. qui voit 
ce qu'on a perdu et jamais ce qu'on a 
gagne. La nature, on se la becte. On s'as- 
seoit dessus. On fail sans elle. Et ca lourne. 
On a raison, peut-etre. Si ga se trouve, c'est 
ni mieux ni plus mal qu'avant. Seulement dif- 
ferent, toujours la meme proportion de legu- 
mes et d'esprils excites. Chacun se de- 
merde. Ceux qui veulent garder leur cunosite 
en eveil fouinent et les aulres prennent ce 
qu'on leur sert. C'est mieux d'ailleurs un 
monde d'endormis pour ceux qui se sucrent, 
qu'un monde de creatifs au sens ou le mot 
commence a s'entendre. Imaginez un monde 
avec que des gens ayant un scenario en 
route ou un bouquin? Vous n'imaginez peut- 
etre pas mais c'est pire que des regiments 
d'enguyluxes. Demandez a vos amis eveilles 
qui sont passes en Californie. "He. on parle 
de reggae, oui ou crotte de bique ? I" On en 
parle, patron. Je voulais dire que le reggae 
etait venu avec ses syncopes et ses dread- 
locks, donner un peu d'identite a nos popula- 
tions africaines et que les blancs sen etaient 
fait une petite mode comme le twist, et puis 
hop ! Range au grenier comme le hula hoop 
et le yoyo en passant par le rapp. 
Mais ca ne les "branche" plus, lis "s'eclatent" 
plus avec. Ca leur aura dure moins long- 
temps que leurs cliches de vocabulaire. lis 
on! effleure un genre musical tres riche si on 
veut se donner la peine de fouiller -puisqu'on 
peul tout y faire enlrer et que certains sen 
chargent- puis I'ont balance avant meme de 
changer leur papier peint. Comme quoi 
e'etait bien de la confiole aux pores. Faut 
peut-etre rien attendre. Pas trop demander. 
Pourtant, il en sort des beaux disques. 

ALLEZ 
LES POETES 

Vous savez pas ce qu'on va faire ? On va se 
les garder pour nous. Pas faire de croisade. 
En petit comite. Allez. on commence par Oku 
Onuara. Son album chez Blue Moon, bon 
disque, belle pochette, roots et progres- 
sisme. Oku est poete. 
"J'ai regarde la lune la nuit derniere, les 



gros. Et j'ai pense aux amoureux. J'ai re- 
garde la lune la nuit derniere et qu'est-ce 
que j'ai vu ? 

- Un homme avec un fardeau sur le dos 

- Comment le savez-vous ? Allez deconnez 
pas ! Vous avez deja vu le film I 

- J'ai regarde la lune la nuit derniere et j'ai 
pleure. 

- Hou, sifflons-le ! Gonzesse ! II regarde la 
lune. il pleure !" 

C'est pas toul a fait ce qu'il a ecrit, evidem- 
ment. J'interprele beaucoup, mais les 
poetes. vous savez, parfois ca ecrit des 
petils trues un peu faciles et ca croit avoir dil 
quelque chose d'important. Nous les coinces 
du stylo, on se permet pas. Celui qui se veut 
poete. rien ne I'arrete. Sit est naif et pas tres 



lombine. ca lui fait penser a la misere hu- 
maine. Ca peut sembler bateau. Mais il esl 
sincere, Oku. II ne digere pas rinjustice. Et il 
sera comme ca loute sa vie. Ca se voit. 
C'esi pas le genre, "la ligue a vingt ans et 
ses oignons a trente". 

Ca l obi.ec)e II faut I avoir vu dire ses trues 
en scene. L'impression que ca fait. C'esi pas 
la Compagnie Creole. II a quelque chose 
d'humain. Offrez-vous son disque et le petit 
livre qu'on trouve dans la meme boutique, 
suivez les textes. II y a les traductions, done, 
et les textes en jamaicain. Avec ses expres- 
sions particulieres et la phonetique. d'ailleurs 
je vous en passe une qui nest pas sur i al- 
bum afin que vous en ayez un apercu. Ca 
vous rapprochera de eel univers {voir encadre). 




gutocrilique il envoie tout ce qu'il ressenl. II 
regarde un oiseau, loiseau chante, r autre in- 
terprete. II raconte que loiseau lui a dit cer- 
taines choses. Et il nous envoie de la pro- 
phetie a deux ronds. Alors soil on se dit; "il 
nous gonlle, lallume. II ferail mieux de faire 
lalala ! S'il est pas capable d'etre gracieux". 
Soil on ne sait pas quoi penser ou bien on 
s'emerveilie. Juger de la poesie, c'est pas de 
la (arte. Alors Oku a regarde la lune. Est-ce 
poetique ? II n'a pas pense aux amoureux 
mais il a vu un homme avec un fardeau et il 
a pleure. 
La lune, ga ne lui fait pas voir Pierrot et Co- 



LE RYDIM 



TEXTE 
JAMAICAIN 

TIN LINE 
stand in 
on de corna 
nat well dress 

wind pin 

wen anada 

meal ago 

come tram nex 

wen 

dung 

com 

babylan 

dem ask 

weh yuh name 

weh yuh come tram 

weh yuh ado yah 

before yuh can ansa 

yuh kiss cole concrete 

an feel batten lick 

an kick... 

ti de yout 

a de ghetto 

dere's a tin line 

between 

freedom an jail 



TEXTE 
FRANCAIS 

LA FRONTIERE INVISIBLE 



debout 

au coin de la rue 

pas vraimenl bien (ringue 

tu le demandes 

comment tu pourras donner 

une suite a ton dernier repas 

quand 

se pointent 

les flics 

its demandenl : 

ton nom 

d'oii sors-tu ? 

qu'est-ce que tu fous la ? 

avant que tu aies pu repondre 

t'embrasse le cimenl froid 

tu prends des coups de batons 

et des coups de pieds... 

pour les jeunes 

des ghettos 

elle est mince la tiontiere 

qui separe 

la liberie de la prison 



terns mais en Angleterre. ca bat son plein, 
Les Dee Jay qui pratiquent le double talk 
commencent a se faire des noms. Le double 
talk c'esi une facon de chanter inspiree 
d'Ouvrard chantant "J'ai la rate qui s'dilate", 
comme quoi les negres nous ont tout pris, 
mais un jour on va se revolter, nous allons 
briser nos chaines mes freres. A nous la 
scene, a nous les rythmes. On va le repren- 
dre, notre "fast style". 



FRENCH STYLE 



Et maintenant, mesdames et messieurs... 
"Ta gueule, connard !" "Quoi ? On me cher- 
che ? T'es ou, loi. mon pote. qu'on te voie ? 
-J'ai les projos dans les yeux. Qui cause ? Je 
les vols pas, les cons". "Les cons ils t'encu- 
lenl !" "Ok ! Ok ! grimpe un peu qu'on te 
mire, si t'es mariole... Ah, mais tu grimpes ? 
J'y croyais pas. C'est Irop beau. Donnez-lui 
un micro". "Parfailement que me voila. Alors 
con. connol, connassot I?..." 
"Ho le gras, le grossier, I'audacieux. Mais tu 
['exposes un peu trop, poireau ! Crachat ! 
Savatte !" "Oh j'approche et que sens-je ? Ah 
la schlinguerie incroyable ! Qu'est-ce que lu 
pues ! Dans quoi tu t'es trempe ? Ou c'est 
naturel, peut-etre ? Je vais fallonger rapide 
et les meltre sinon je vais tourner de 1'oeil" 
"Mais la, je ('attends. Et j'apprecie qu'on aille 
droit au but. Mais avanl, une question. As-tu 
de la famille ? Une adresse ? Quelqu'un a 
prevenir ? Parce que I'es bon, la. T'es mar- 
ron. T'as vecu. Est-ce que lu ten rends 
comple ? Vraiment t'es pas finaud" 
Tu pourrais dire tout ga plus cool et laisser 
la tienne d'adresse. Si tu continues, tu vas 
nous faire une atlaque, on va t'avoir sur le 
carreau, sans te toucher", "Je sais pas ou 
t'as vu que je m'enerve, je m'endors". 
"Laissons un peu Instrumental alors". 

En fait, e'etait un baron, le deuxieme. On fait 
du double talk, comme a la foire du trdne 
"Avec qui voulez-vous lulter ?". N'empeche 
que ga irai! bien sur une foire, ce genre d'at- 
traction. 

Imaginez que des gens comme le groupe 
"Carte de Sejour" sur la base du Raioranais 
creent une musique speciale, sur laquelle ils 
diraient des choses moitie arbi. moitie argo- 
muche, moitie lenvers. 



ON BACLE 



Et si vous voulez "feel the rydim" vous ache- 
terez le dernier Sugar Minott. II lui manque 
des dents, a ce bonhomme, mais il a tout ce 
qui nous interesse en I'occurence. C'est un 
bon chanteur. Le reggae (ou ce qui en de- 
rive) est tres vivant. faites-vous conseiller par 
les gens de Blue Moon, ils ne rechigneront 
pas. Ils vous feront ecouter ce qui se passe 
en Angleterre et a la Jamai'que. On ne sail 
pas s'il y aura ici une vogue des sound sys- 



"Ca feraii trois moities saucisse I" Mais il ny 
a pas moyen de Iravailler, ici. C'est insense I 
On va terminer en vitesse, on va bacler. 
Apres tout, c'est les vacances ! Les Smiley 
Culture, Tippa Irie el autre Daddy Colonel, 
pratiquenl un machin qui est au reggae ce 
que le rapp est a la funk el ils se louteni des 
rastas. ne portent pas de locks, ne s'occu- 
pent pas de Jan, recherchent plutot le look 
rude boys des sixties et sont tres energi- 
ques. Peut-etre qu'en demandant poliment 
vous aurez chez Blue Moon la traduction du 
dernier tube de Smiley Culture "Police Offi- 
cer" ou il raconte comment des flics qui I'ont 
arrete I'ont relache avec son herbe quand ils 
ont su qui il etait. 

Tous les chanteurs de varietes font ga, en 
France. Un autographe el on passe sur ('in- 
fraction. La celebrite a du bon. Au fond, on 
dil que Coluche se croit toul permis. Mais 
c'est plutot courageux de sa part d'insuller le 
flic qui vient le reveiller afin qu'il deplace sa 
voiture. II va jusqu'au bout. C'est vrai qu'il a 
les moyens financiers d'avoir ce courage, 
mais c'est jamais marrant d'aller au tribunal. 
Et t6t ou tard il faut y aller. Enfin, Smiley Cul- 
ture n'a pas insulte les flics qui lui faisaient 
une lleur pour un autographe mais il a retail 
une chanson avec I'evenement. Coluche 
pourrait peut-etre faire un sketch avec son 
histoire. Ca lui paierait les frais de justice. 
Vous pouvez aussi demander Mad Professor 
chez Blue Moon. C'est le plus marrant des 
bricoleurs de studio. Le roi du club. Et puis si 
vous voulez tout savoir sur le reggae, ache- 
tez le tres complet bouquin de Stephen 
Davis et Peter Simon "Reggae International' 1 
(en anglais) avec beaucoup de photos, d'his- 
toires. d'interviews. de documents de toutes 
sortes. 



LOGIZIQUE 



Berroyer 



HIGELIN EST 
BON 



Higelin. Nouveau double. Lui, je lai vu. mais 
vous etiez encore... Eh. je parte des plus 
vieux. Je lai vu (aire le down sur la scene 
du Ranelagh, au lemps de Saravah. Avec 
son gosse Arthur qui devail avoir quatre ou 
cinq ans el qui venait la pendanl le specta- 
cle Qui courait. qui passait pendanl que le 
pere chantail C'etait la premiere lots quon 
voyait une chose pareille. une telle decon- 
traclion dans un spectacle. Tout le monde 
etail seduil. C'etait le type avec qui on aurait 
aime etre copam. Comme on aurait aime 
letre avec Johnny 10 ans avant. Et puis on a 
bouge. regarde tout le monde et ce qui s'y 
passait. Pas le temps d'etre tidele. On a 
qu'une vie. Lache le bonhomme. On 
consommait du rock. Voila qu'il s'y frotte un 
peu plus tard. Un coup loupe, un coup ca va. 
Comme tout ce qu'il tait. Comme (out ce qui! 
est. Tout est en ambilrte et en duavalance 
chez le grand Jacquot. Le pire et le meilleur 
Alternalivement plus beau et plus moche que 
tout-un-durand II est comme Choron La di- 
mension pas commune Et personne veut 
nous croire si par hasard on amene per- 
sonne" le mauvais jour. Mais cet amour que 
leur porte un grand nombre de gens depasse 
toute critique. Toute analyse. Us ont regu une 
dose d humamte toute particuliere. Un ton de 
lucidite. Sont pas toujOurs en lorme pour 
s'expnmer. Mats parlois... L'autre jour. Cho- 
ron dit: "On parle de la torture, mais tanl que 
des gens pourront dormir t'ranquille, avec un 
elevage de poules pondeuses. pres de chez 
eux. il ny a hen a attendre. Tant que le re- 
tlexe nest pas de respecter la vie sous 
loutes ses tormes. pourquoi setonner de la 
torture." L§s indignations lagaccnt L'dertvoln 
Celine a qui on reproche ce quon sait. disait: 
"L'homme est lourd C est ce que j ai pu re- 
marquer Peut-6tre qu'un jour il y aura une 
revolte de I'espril contre le poids " II disait 
aussi; "L'homme est humain, un peu comme 
la poule vole*. 

Les moments de grace, ces moments de le- 
gerete a l'homme. ca se boit comme du petit 
latt. Higelin en a. Chaque lots que ca passe, 
son public repart avec sa dose demotion et 
de courage. 

Higelm. depuis un bail, nest plus chanteur 
de rock. II est chanteur de tout. II y en a en- 
core un peu pour lout le monde dans ce der- 
nier double album. Et le public se sera em- 
presse de lacheter avant les concerts a 
venir et saura tout par coeur. Les chansons 
qui font nre et celles qui font pleurer. II y en 
a de belles. II n'y a pas de revolution dans 
sa maniere. Pas de lacon tenement originals 
d'aborder des themes. Cest meme souvent 
attendu mats ca coule On passe dune am- 
biance a I autre, content de les retrouver au 
bout de plusieurs ecoutes La premiere 
ecoute est celle des tuges. On veut voir si 
cest valable. Il laut plusieurs passages pour 
que la mayonnaise prenne. Higelm est une 
grande star maintenant. tout ce quon peut 
raconter sur lui doit lui passer au-dessus de 
la tete. Et on ne lui est plus d une (res 
grande utilite. Alors on en a suffisamment 
tartine 

BERNARD LUBAT 
EST BON 



Un qui ne manque pas de talent non plus et 
a qui la presse peut etre utile, c est Bernard 
Lubat. Apres avoir ete une jeune grosse 
pointure du jazz a Pans et toume avec une 
compagme musicale ngolote. il a decide de 
retoumer a Uzeste dans le Sud Ouest La ou 
vit son pere et loute sa famine, atm danimer 
le com. C est la qu'il a commence, dans l or- 
chestre de son pere qui dent un bistrot. Il 
s active beaucoup dans la region avec toute 
une bande. 

Ho un beau livre en passant. Celui de tele 
Pour lire dans le train en allant au leslival 
d Uzeste "Un tas doeufs Ints dans un cha- 
peau' par Raoui Rabut, preface par Charlelie 
Couture Ce sont des chrontques morales 
On en lil une de temps en lemps. dans n im- 



porle quel ordre. on teuillette. on tombe sur 
des noms. Johnny Hallyday, Tchernienko. le 
Pen. Lawrence d Arabie, Isabelle Adjani. ga 
fait que deux ou trois pages a chaque fois 
Ca se lit tout seul. ga coule. II a du talent. 
Rabut. Et il a pondu une petite chromque sur 
Haile Selassie dans laguelle il ne fait pas le 
rapprochement entre Selassie, le reggae et 
Rimbaud. Heureusement. parce que cesl 
moi qui vais le (aire et dans un livre. Jen ai 
le projet. Sinon j'aurais I'air de copier Raoul 
Rabut. Je veux bien raider a vendre ses 
livres mais pas le copier, Je ne suis pas un 
copieur. d'ailleurs. Et pourtant je n'invente 
pas grand-chose Remarquez. il taut etre 
assez inventif pour pondre des lignes et des 
lignes de baratin par cette chaieur alors 
quon a autre chose a faire. comme dormir 
par exemple Rabut a pns son titre a Rim- 
baud dans "Ce quon drt au poete a propos 
des fleurs". Mais cest pas copie. Cesl un 



C'6tait a I'lle d'Yeu On a bavarde en se pro- 
menani sur les routes de rile. L lie d'Yeu, 
calme, accueillante. reposanle. Cest eile qui 
a accueilli le marechal Petain pour qu il se 
calme Aujourd'hui il y repose, dans hmpec- 
cable petit cimetiere de i Ne Avec Lubat. on 
a evoque la proprete du cimetiere. devant la 
palronne du cafe d a-cote "Cest quon le 
respecle beaucoup. nous a-t-elle explique 
D'ailleurs. quand il y a eu cette histoire, 
quand on avail vole le cercueil du Marechal, 
vous savez, cette histoire..." Les Petamistes 
acharnes voudraient parait-il ramener les 
restes de Petain a Douaumonl. Ce sont les 
honneurs qui lui sont dus Car avant de co<- 
laborer, c etait tout de meme le vainqueur de 
Verdun. Mais d apres la patronne. cest plutdl 
une histoire de fnc. La famille aurait du bie a 
se faire s'il etait enterre dans un endroil plus 
accessible que I'lle d'Yeu. On vendrait de la 
photo, du gadget. La. cest du fric qui dod 



internationalement connue. On doit manquer 
de souffrance Peut-etre quon ecrase pas 
assez nos pauvres. Et que la creafivite ne 
leur vient pas. En se balladani en France 
avec Marc Perrone, Lubal s est apergu qu'il y 
avail encore une musique vivante. Un peu a 
la maniere de Kodaly qui le faisait pour Bar- 
tok, il essaie de tenter quelque chose pour 




hommage. Faudra quon vous parle de Rim- Cesl pourquoi c etait bien louche, toute cette 
baud un jour. Si si. C est chez "Autremenr. affaire. "Si vous aviez vu la meute des jour- 
le livre. collection "Ciel ouvert". Cetail une nalisles. venus (aire les photos de la tombe 
digression pendant qu'on y pensait. On re- profanee ! Comment ca ecrasaii les fleurs 
vient a Lubat. El quesl-ce qu on a bien pu partoul. On a ete tres choques." Elle connait 
I'engeance que cest. le photographe de 
presse. maintenant. Cest vrai qua de rares 
exceptions pres. cest du concentre de cra- 
pule. "Ramener le document a tout prix." Le 
type scrupuleux ne fait pas long teu dans la 
* profession. Voila le prix du sensationnalisme 

PASSE-MOI 
LESEL 

Et on parlait de tout ca avec Bernard Lubat 
Tout ce quon lourre dans la tele des gens 
qui n ont pas le lemps de crier. On parlait de 
I ethique des amuseurs et de la decenlralisa- 
tion. De l histoire des racines aussi. Pourquoi 
la France est-elle si tarie en musique popu- 
late 7 A pari sa vanete idiofe Internationale, 
elle a nen a montrer, la France. Cest tout de 
la copie. Faudrait que les musiciens qui ont 
un sens adistique. sans se departir des in- 
fluences internalionales louillent un peu pour 
trouver leurs racines 

li cherche dans ce sens. Lubat. El tente de 
laire naitre quelque chose dans son Sud 
Ouest qui redorerait nos bJasons. Quon soil 
moms amerloques Qu'on montre quon na 
pas que le pmard et le camembert Une pe- 
tite ile comme la Jamaique donne le reggae 
au monde el un grand pays comme la 
France n est pas toutu de creer une musique 





(aire de la liste des gens attendus au festi- 
val ? Elle a traine la sur la table pendant 
un bon bout de lemps et c est au moment 
Mais c esl toujours comme ca Faudrail au 
moms quon retrouve les dates La derniere 
tois que jai vu Lubat on a parle un peu 



que ca ne disparaisse pas completement. Un 
jour on le reconnaitra peut-eire comme le 
pere de la renaissance de la musique popu- 
late francaise Ah, voila la lisle. Sous le 
chat, dites done. J aurai du y penser plus tot. 
Allons-y: Programme pressenti :"Richard Bor- 
htnger. Eddy Louis, Johnny Griffin. Frederic 
Lodeon, Workshop de Lyon, Louis Sclavis. 
Andre Benedetto (spectacle Victor Hugo), 
Les girondins de Bordeaux (Football club) 
Manu Dibango (negre) Compagme Bernard 
Lubat. Maunce Vader. Perre Michelot. Max 
Roach, Claude Marti. Rosinade Peira et Mar- 
tina. Henn Virlogeux. I Ensemble des cuivres 
d'Aquitaine, Ja Fo Big Band. La Carnere ino, 
Sporting Occilan Swing Dance Orchestra, 
jeux de force Gascogne, concours de peche 
concours de petanque, modelisme. arts plas- 
tiques. Christian Laborde, Bernard Manciet, 
Veronique Silver, Laure Duthilleul, Cossi 
Anatz, Thierry Rougier, Zaldo Machado. Lou 
Pignadas. Marc Perrone, Jer6me Thomas, 
Carlo Rizzo. Jean Courtioux. ecole du cirque, 
feux d'artifice, Radio Uzeste musical, favellas 
gasconnes. Tout ca entre le 17 el le 25 Aout. 
Si vous voulez en savoir plus, renseigne- 
menls pratiques, etc... Ateliers de la compa- 
gme Lubat-Uzesle. 33730 Villandraut. Tel 
(56) 25 38 32 ou 25 38 10. 
Le dernier disque de Bernard Lubat est trou- 
vable. Cest chez "Le chanl du monde". ca 
sappelle. 1 idiom sandwich", chansons 
swing. Et c est vrai que ca swingue. De toute 
facon. Lubal, que ce soil a laccordeon, a la 
basse, au piano ou a la batterie il est habile 
par le swing. Squatte par. Quand on esl 
comme ga on appelle pas les gendarmes. 
On en profile Et cest ce qu'il fait. Ecoutez-le 
dans Samba mama. Si I'accordeon vous em- 
merde mais que vous aimez le swing, vous 
allez connaitre un dilemme. Et puis il ecrit 
des paroles. Lubat. Voici le debut dune des 
chansons "SOS Articule": 
Articule smistre cenl fois ni tube, lu lecroules 
croules ensses creeeeeeves dans la soie de 
les mimis de les miseres. Sombre reptile tu 
t'empiles ou face de rat que fu le paies a 
credit. Maman, maman ma mensualite, alile 
alteiuiah, I'ouie ya, louie ya. I'ouie don" de- 
bout ami couche genoux. cailloux, pourquoi 
pas vous pas vu pas pns chom'du Tu paries 
dun dur. Dun dur ah ah cuir. Doudou cesl 
pas si doux, cest assidu, ga I'colle au cul. te 
pend au nez T'attends au toumant il a bu 
s abuse la lasse comme les aulres . 
Vous voyez ca Tout ce qui lui passe par la 
tele Mais en musique. 
Voila Lubat. ses efforts et graces 
Vous trouverez tous les aulres festivals dans 
tous les aulres journaux. 
Sohez sans bruit et ne revenez pas avanl la 
renlree. 

Berroyer 

PS: Higelin, Lubat. on les voit trop, ces artis- 
tes Je prefere vous passer des photos de 
vacances de moi. plus les chausseltes noires 
pour la fitcherie de la chose 



LE PIED AU BOUT DES DOIGTS 



•PROMOTION SPECIALEC)- 




CLAVIER MECANIQUE TO7-70. 

CLAVIER MECANIQUE venant se mettre en lieu et place 
du clavier standard TO7-70 
Pour TO7-70 exclusivement. 

Prix TTC: 750 F. 



CLAVIER MECANIQUE T07. 

CLAVIER MECANIQUE venant se mettre en lieu et place 
du clavier standard. 
Pour T07 exclusivement. 

Prix normal TTC : 750 F 
Prix Promo. TTC : 484 F. 

EXTENSION MEMOIRE 8 Ko 
pour T07. 

Extension memoire 8 Ko pouvant se connecter sur T07 
en complement de lextension 16 Ko THOMSON. 
Permet ainsi de porter a 32 K la memoire utilisateur 
du T07. 

Prix TTC: 480 F. 







CLAVIER SPECTRUM. 

Clavier mecanique de type professionnel avec pave 
numerique. se presentant sous la forme dune console. 
Tunite centrals se loge a I'inter leur de cette derniere. 

Prix TTC: 750 F. 



MEGABUS/BOIT1ER 
D'EXTENSION M05/T07. 

Boitier d'extension muni de 3 slots de sortie libre. d'une 

interface musique et jeux integres et de 2 connecteurs 

de manettes de jeux standards. 

Megabus + Cable prolongateur de bus: 710 F TTC. 

Megabus + Cable Buffer de Bus : 890 F TTC. 

Attention : Si vous avez achete votre M05 en 1984, nous 

vous recommandons I'emploi du cable BUFFER de Bus. 



— BON DE COMMANDE A RENVOYER A : — 
GAMEOVER 9, rue Franklin. 69002 LYON 



PRIX UNITAIRE 



FRAIS DEPORT + 20,00 F 



(')Dans la limite des stocks disponibles. Promotion valable jusqu'au 31 Aout 1985. 




SEA, SUN and... GOOD GAMES !.. 



W\'T**t» MJ* cUT&tl 



j/lOKcrlt- 



49. rue des Rosiers • 14000 CAEN - ^ 



Je cMsirg 


ecevoir les fogiciets suivants sur K 7 : 




Pour OfllC/ATMOS UK 








TYRANN □ 165 F 


Pour AMSTRAO 464 






RABBIT D t40F 




Pour THOMSON MOS 


COBRA D 100 F 


TYRANN □ 165 F 






CRYPT-SHOW n 100 F 


PLAYBOX D 100 F 


TYRANN 


□ 195 F 


MONTSEGUfi D 140 F 


AQUAD □ 110 F 


GFOMANCIE 


□ 120 F 


M touts un cntoua oancaire ou 


CCP * iO'Oe Ot OPUS sari da 






Pon 


20. 00 Frs 






TOTAL 





PEPE LOUIS REVIENT! 

Pepe Louis Yarggllll arrive chtonk dans un 
recueil kraaaaaaak de ses aventures b20ingggg 
les plus folles koukaiiii ! 

Pour 59 francs, vous aurez droit a un livre qui 
repond aux caracteristiques suivantes ; 



II est beau. 

II est Interessant. 

II n'a pas de fautes 

d'orthog raphe. 

Les pages sont 

numerotees. 



tournee en derision. 
■ La couverture est befli 

- Elle est de Sole. 

- L interieur est beau. 

- II est de I'imprimeur. 
' II n'a aucune chance 



II y a la fin de I'histoire. de recevoir | e 



Goncourt, quoique. 
Et puis, a quoi ca 
servirait que Jean- 
Louis Le Breton se 
decarcasse ? 



■ Steve Jobard. Lord 
Sansclerc et Jack 
Tramolo sont dedans. 

- II est pas cher. 

- II a une couverture. 

- L'informatique y est 

BON DE COMMANDE 
Vous en voulez un exemplatre rien que pour vous ? 
59 balles et c est nous qui payons le facteur. 



REGLEMENT: CCP [ ] CHEQUE □ 




LE PREMIER QUI RE POND PAS 
AURA UNE TAPETTE ! 



Allef, on se change encore une fois IHHKHebdo. On profite des vacances pour vous demander votre avis et a la rentree, on fout 

tout par terre et on recommence. Keskonsmarre ! 

Comme vous devez etre toujours aussi faineants, on vous met une petite carotte : 50 bons de participation seront tires au sort et 

gagneront un logiciel a choisir dans le soft-parade de la page 58. 

On se depeche de repondre, je ramasse les copies dans 10 minutes. 



DEPUIS QUAND LISEZ-VOUS L'HHHHEBDO ? 

Depuis le numero 1 ~ D 

Depuis le numero (precisez le numero) 

C'est la premiere fois que je le lis 

Je ne sais pas lire □ 



LISEZ-VOUS REGULIEREMENT L'HHHHEBDO ? 



Out, toutes les semaines 

Oui, tous les 15|Ours 

Out. an moins une 'O'S par mois 
C est la premiere lois Que je le lis 
Non, toutes les semaines 
Non, tous les 15 jours 
Non. tous les deux a~s 
Vous etes de la police ? 



ET LA BD, VOUS LISEZ DE LA BD ? 



COMMENT AVEZ-VOUS CONNU L'HHHHEBDO ? 



Dans un S3 'on inform atique 
Par une pubircite dans un cana'd 
Par une emission de radio laqueiie . 
Par une emission de leie. laqueile . 

Par des am.s 

Par Allah. 

A recoie. a la fsc 

Au boulot 

Chez le ma'chsnd de journaux 

Dans un sex-shop 

Par un autre moyen. lequei 
L'HHHHebdo ' Ou estee que c es! ' 



Oh non. je rame comme un (on pour le trouver 
Oh yeah, je le trouve sans probleme. 



9 lis que I'Ordinateur Solitaire... 



Ca va pas ? Je me le garde pour moi tout seul . 

Je le prele a un seul mec - ..... 

Deux autres personnes le lisenl 

Plusieurs autres. combien 

Arghhh. Merde. je suis mort, faites gafte quand vous torturez 



OUELLES AUTRES REVUES D'INFORMATIQUE 
OSEZ-VOUS ENCORE LIRE ? 



QUEL AGE AVEZ-VOUS ? 





li 


1 
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I 



































































a 1 an 

11 a 12a 

12 a 13a 



15 a 16 a 
16a 17a 

17 a 18 a 

18 a 20 a 
20 a 23 .i 
23 a 25 a 
25 a 30 a 
30 a 35 a 
35 a 40 a 
40 a 45 a 
45 a 99 a 



QUEL EST VOTRE AVIS SUR LES RUBR1QUES 
D'HEBDOGICIEL ? (Vous savez ce qu'on en fait de 
votre avis ?) 



OU VOUS ETES-VOUS PROCURE CE NUMERO, 
OU, HEIN, OU ? 

Je I'ai acheie dans un kiosque D 

Je I'ai achete dans une maison de la presse — D 

Je suis abonne, cong Q 

C'est le journal de mon club d'mformatlk Q 

C'esl le journal de I'ecole , □ 

C'esl le journal de mon pole. . - □ 

C'est une photocopie. bonjour ies dm balles - □ 

Je vous en pose des questions, moi ?. D 



ON LE TROUVE PARTOUT, CE CANARD ? 



VOUS AVEZ UN ORDINATEUR ? 
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EDITO 












PROGRAMMES 
CONCOURS 












ESSAIS DE MATERIEL 




































NDLJC 












































































































FORMATION A LASSEMBLEUR PRATIQUE 






















MAQUETTE DU CANARD 













Queue riarque 

Quels penpnenques ' , C 

Quelle heure est-il ? L 



QUELS PROGRAMMES DE L'HHHHEBDO TAPEZ- 
VOUS? 



Les programmes pour mon ordmaleur 

Aucun, meme avec une fleur... 

Je les tape toutes les semaines 
Je les tape regulierement 
Jc lea garde pour loo taper pluo lord 
On se relaie pour les taper a plusieurs 
Arrelez. ne tapez plus, je vais parier 



QUEL EST VOTRE NIVEAU ? 



Amateur eciaw e 
Amateur eiemt 
Prolessionnei 



TU VAS PARLER, ORDURE ? A QUI TU LE PRETES 
TON HHHHEBDO ? 




ON A BESOIN DE SAVOIR SI VOUS AVEZ DES 
RONDS 1 



Moi ou mes parents on se tan. par an ; 

Jusqu'a 100.000 bailee 

De 100 a 150.000 baHes... 

De 160 a 200.000 baHes 

De 260 a 300.000 balles 

De 310.000 balles a un paquet de (rto 
De quoi je me mele ? 
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01 HEBDO 








POM'S 
















































TILT 

VOTRE ORDINATEUR 

99 MAGAZINE 









ON VA FAIRE DU NEUF ! VOUS DONNEZ VOTRE 
AVIS? 

Si on vous renlre les rubriques suivantes. qu est-ce que vous nous 
diles ? u. 



Informations generates 

Informations poliliques man-antes 

Informations poirtiques mechanics , 

Informations Moto 

Informations Automobile 

2 pages de BO par semame — 

4 pages de 80 par semame.. 

6 pages de BD par semame 

8 pages de BD par semame... 

10 pages de BD par semame 

Des photos decuf 

Des reportages marrants 

Des reportages a scandale 

Diminuer ies programmes 

Augmenter les programmes 

Supprimer les programmes 

Raccourcir les lislings 

Mettre des listings encore plus longs . 

Arreter d'emmerder le monde... 

Continuer d emmerder le monde entrer 



Ce questionnaire est destine a un usage interne, it servira a amelio- 
rer les prochains numeros d'Hebdogiciel en fonction du gout de ses 
tecteurs. du moins de ceux qui ont repondu au questionnaire C'est 
comme ca. la Democratie .' 

La conlidentialite de ce questionnaire nest pas controlee par la 
commission Inlormatique et Liberies et c'est dommage car its au- 
raient travaille au moins une fois dans leur vie. Par contre. vous 
nous connaissez, on va pas ditfuser les informations que vous attez 
nous donner. Jamais on verra dans I'HHHHebdo des trues du style 
"Le senateur Machin a demande qu'on rajoute une play-girl", "le de- 
pute Chose ne lit que des BD. et encore, il ne regarde que les 
images" ou "Monsieur Montagne, PDG des ordinateurs Samtobscur 
a commence a taper un programme en decembre 1976. il n'a pas 
fini". Tout sera con-ti-den-tiet. garanti pur beurre. 
Si vous n'avez pas confiance. vous pouvez participer a revolution 
de voire journal en ne repondant pas a toutes les questions ou 
meme en ne mentiotinant pas votre nom et en envoyant votre bulle- 
tin de participation au tirage au sort par coumer separe. 
La loi nous oblige egalement a vous donner des bulletins de partici- 
pation si vous en faites la demande a la redaction. N'en faites pas 
la demande. 
Bon. on va pas y passer la nuit : vous repondez. un point c'esl tout ' 



QUI ETES-VOUS ? 

Sexe masculin. ,., 

Sexe teminm 

Les deux - 

Aulres 



r 

i 

i 

i 

i 

i 

i 

Dl 

Dl 

I 
I 



BON DE PARTICIPATION AU TIRAGE AU SORT 

NOM: 
PRENOM : 
PROFESSION : 
ADRESSE : 



SI je gagne un logiciel au tirage au sort, je choisis dans le 
toft-parade le logiciel suivant : 
Nom du logiciel 
Ordlnateur 



DEMANDEZ LE PROGRAMME soft-parade 



Achetez vos logiciels les yeux fermes, nous les avons testes pour vous ! 

Nous avons selectionne pour vous les meilleurs logiciels actuellement disponibles en France. Nous ne 
pretendons pas que cette liste est complete et definitive et //est evident que nous y rajouterons regulie- 
rement des programmes. Pourtant, vous chercherez en vain certains programmes quijouissent d'une 
bonne reputation et qui se vendent surtout grace a la publicite et aux conseils des vendeurs qui ne peu- 
vent pas connaitre tous les logiciels disponibles. 

Les prix sont, nous I'esperons, les meilleurs du marche et les abonnes - anciens ou nouveaux - benefi- 
cient en plus d'une remise de 10 %. Si vous etes nombreux a nous suivre dans cette experience nous 
pourrons rapidement arriver a faire baisser les tarifs des fournisseurs pour atteindre I'objectif que nous 
nous sommes fixe: ramener les prix a une plus juste valeur ! 

Les classements sont faits en fonction de I'interet du programme et ne tiennent pas compte des prix, 
c'est a vousdeiugerdel'opportunitedeladepense. N'oubliez quand meme pas que si le rapport quali- 
te/prix est mauvais, le logiciel ne peut figurer dans cette page .' 



•nouveau 



SPY VS SPY 

crets. placezde 



UP'N DOWN 

Jamais vu de route pareille. el pourlant ca 
monte et ca descend comme les monta- 
gnes russes de la Foire du Trone 



SORCERY 

Voila un jeu d'aventures qu'tl esl bon ! 
Pas de probleme de vocabulaire lout au 
joystick Et il est beau 

MACADAM BUMPER 

Le meilleuf simulalaur de Hipper el avec un 
edileur de flippers Pourquoi aller au cafe ? 

DEFEND OR DIE 



SERIE NOIRE 

differenis |pueurs. Qui f 

SURVIVOR 

Dslavefilure.viiaalb.Sr 



SPY HUNTER 

VouspassezdelavoituredeJamesSondau 
bateau de 007 Un must du jeu d'arcade 



hyperespace 



Ifi. nctiesse 

PSI WARRIOR 



THE DAMBUSTERS 

Beprenez a votre Comple 1 03 
niersdelalutleecologiquear 
barrages noyeurs de vallees 



MEURTRE A GRANDE 
VITESSE 

Del a venture, du suspense et de la re 
flexion Un wrai polar d Agatfta Chns 



MESSAGE FROM ANDROMEDA XAVIOR 

En voilaun super jeu daventure largemeni Plus vite.touiours plus vile! Des kilometres 

plus beau gu un camion el encore plus de pieces a fond les maneltes Heureuse- 

largemenl passionnnnt menl ' P fls de ,acla ' a I'horwon et le comp- 
teur qui s'envcie Waow. c'est le pied 

FOREST AT WORLDS END d ' acier 

Le Ooul du monde a vos portes. jusle apres ™ ■ 

d'aventures rncambolesques ou angois- Une bonne enquete vaut mieux que deux 

santes gangsters dans le tfos. dans une impasse 

HOUSE OF USHER polar 

Claustrophobeseloignez-vous. cette aven- 
ture s'adresse exclusivement aux agora- 
phobes 

BC'S QUEST FOR TIRES 

La course a lechalotte prehistonque. nen INVASION 

e e pour res er en jam e Des Aliens comme s ilenpieuvait.desdan- 

LUNAR LEEPER 9e,s a tous les colns de la aala " e ' 0e lac - 

LUNAH LttKfcK lionetdu sang-froid voilacequ.vousguet- 

Des tonnes de lerraiiie vous sautent des- le d6s que ¥ * us D rendrez les commanoes 

sus. saohez les eviler pour mieux servir de votre va.sseau 
votre natale planele 

JAW BREAKER II Sa^Sf^-r o 

Comme-ousnavezpaspaurdesRlusflros ^ "Splend.de comma un flipper" vous 

que vous. deioncez ces dents qui vous aMez fapprennre avec ce super sod de 

9 ue,tenI course Du massage el du DOurrage en 

AQUATRON *"""* d '* cc,w - ~* au8S1 e " au8 " ,6 

Detendre la Terre passe encore, mais net- BATAILLE POUR MIDWAY 

foyer en plus les oceans, faul pas pousser s. vous avez la megalo galopanie. precipi- 

Amomsquevousnesoyezplusbalezeque tez-vous I'Amirai Fletcher, c'est vous' A 

tjalBie ■ votre casquette 

LE CRIME DU PARKING FRELON 

Resoudre une affaire aussi sorOide e! era- Bandede petit salopards.vousneiespasla 

puieuse que le meunre d'Odile Conchoux pour fnmer ! C'est la guerre, el malgre les 

:■■ in sang-froid et un esprit deduc- ennemis qui nous canardenf. H laut aller re- 

tif aceres Senezvous la reincarnation de parer ce sacre pont < ue premier qui cne 

Sherlock Holmes ' "Maman a mon pied aui losses! 

SON DE COMMANDE A DECOUPER OU RECOPIER : 

SHIFT EDITIONS, 160, rue Legendre 75017 PARIS 

Nom/Prenom 

Adresse 

Ville Code postal j 

LOGICIELS Ordmateurs Prix Qte Montant . 

I 

TOTAL a 

Participation aux trais de port en recommande + 20,00 I 

REDUCTION 10% SPECIAL ABONNES A DEDUIRE I 

N D ABONNE (obligatoire) - , ■ 

MONTANT a payer j 

date de la commande : 

Les cheques recus ne seronf en aucun cas encaisses avanl la liyraison des logiciels com- I 

mandes Cheque renvoye en cas de rupture de slock 94 I 



lO % de remise pour 
les abonnes ! 



I BATAILLE POUR MIDWAY 



WEB DIMENSION 



MASTER OF THE LAMPS 

Lesmauvaisgeniesontcasseieuriampe A 
vous de jouer les petlts reparateurs du di- 
manche Un tube de colle e; 



BC'S II GROG'S REVENGE 

Plus beau que le premier, plus drole aussi 

un veritable Ten Avery Avousd'endetermi- 

KONG STRIKES BACK 

de mer Mais un Mano averti en vaul deux, 
surtout avec quelques bombtnettes dans 

HUNCHBACK II 

Si vqus vous tape; la cfoche. noubliez pas 
qu aux yeui de cenains vous aitez passer 
pour en etre une Inlernaf mais beau, si 

FOX 

Plus beau que Zaxxon, plus fou que Lode 
Runner Le haul du sommet du panier. en 
arcade, el pour votre thomson a vous tout 
seul Genial, absolument 1 



si vous etes 

ABONNES 

deduisez VOUS-MEMES 

vos lO °/o 

de remise sur 

le bon de commande 



COMMODORE 64 



9 TOUfiNAMt HI TENNIS 



J QHOST BUSTERS 



ORIC 1 / ATMOS 



TENOflE MJULFt 



LORDS Of MIDNIGHT 



THOMSON 

SAUF SPECIFI 
COMPATIBLES 



SPACE SHUTTLE SIMULATOR U04 



NE MANQUEZ PAS LA 
VRAIE REVOLUTION 

VENEZ VOIR ET COMMANDER 
VOTRE 520 ST 

OEMO COULEUR ET SYNTHETISEUR 

CHEZ MICRO-VIDEO, LE REVENDEUR 
EXCLUSIVEMENT SPECIALISE SUR ATARI 

DEPUIS 5 ANS 

MICRO-VIDEO : 8, rue de Valenciennes 

75010 PARIS. 201-24-30, 201-83-66 

ouvert tous les jours de 13 b a 19 h sauf Dimanche et Lundi. 



Le prix des disquettes : 
5"i SF/DD 75 F 

la boite de 10 

3"i 135TPI 23 F 

I'l 

Computer 3 

3, rue Paplllon 75009 Paris - Tel. 523.51.15 



CUD 



VII Mkro Hsid I 252 .87.97 : H, «« *on«y, 'SOU Per 
VTI Hktt Sad : S4S.31.96 : 101, IM. Joardon. 7S014 Por 

VI* W.:<ro ly<^ : [71 842. 14.1 6: 49.ro* r!.l a (hcr.tt. 69000 lyo 

VOVS ANNONCE 

LA FOIRE AUX SOFTS 

Dans le cadre de son operation 

■-.Micro Special Vacanccs» 

du ler juillet au 15 septembre 1985. 

La Foire aux Softs, e'est des prix speciaux 

(jusqu'a 45 % de remise), 
sur pres de 200 titres, pour les ordinateurs : 
ZX 81 - SPECTRUM - ORIC 1 oil ATMOS 

COMMODORE 64 - MSX 
Venei detouvrir le pluisir de I'lnformatique Familiale 




. THOMSON-M05-T07.70 
. POINT CONSEIL TIFY 
. MSX - YAMAHA - SANYO 
. LIBRAIRIE 



Cz. commodore 

^* COLECOVISIOH" 

CBS 



Sinclair 

mm 



rue Paillot de Montal 
10000 TROVES 
Tel. (25) 73.28 49 



BLANC BERNARD 

mrORMATIQUE BUREAUTIQUE LYON 

AMSTRAD - SINCLAIR - ORIC 

SHARP - THOMSON - SANYO 

LEANORD - LOGYSTEM 



9, rue Salomon Reinach. 69007 Lyon 
Tel. : (7) 872.2S.48 (pres facultes) 

ASSISTANCE TECHNIQUE - LOGICIEL - FORMATION 




Personne n'a 
encore trouve! 




Avec S 




If' 


.entureu 


pass tortia 








avec eff 














EUREKA a 


dfiji oc 


■up* 




longuaa 


aoirSea 




II do plus de 








plus u 








230000 






preaior 








code d'EUREKi 






de quo 








wi-agea 1 








Perannne 




ant 


rouve !a 



H 

Adresse 

Code Ville 



desire recevoir La cassette du jeu 
EUREKA pour : —. 

Commodore 64 1 I Spectrum. I I 

Ci-joint 250 Francs en reglement de ma 
commande (Franco de port) 



Directeur de la publication, Redacteur en chef qui va en prison si 

ca loume mal ; 

Gerard CECCALD1, dit "le Boss" 



Redacteur-joumaliste-bidouilleur-remueur de merde en tout 



Secretarial, quand sa machine est pas cassee, quand elle fait 
pas un bebe et quand elle est pas en train de draguer : 
Martine CHEVALIER, dite "la Star" 

Dessirtateur. generateur de pagaille. choisisseur de BO, specia- 
lists des idees a la con : 
CARALI, dit "Carall" 

Participateurs en tout genre a ce numero special que e'est la 
derniere fois qu'on prend autant de retard, on va tous mourir a 
Iravailler comme ca, I'annee prochaine on commence avant : 

Bernard ZX. FJombyx, Boris Minitel, Cherift Covboi, Christophe 
Chicos, Clou. Dimitri, Edika, Fabrice Fissdegros, Frank Leha- 
bleur, Frank Lenoir. Fred Juvaquatre, Georges Peha, Hugot, Isa- 
belle Filledepub, Jean-Claude Guitare-Cassee. Jean-Marc Cutter, 
Jean-Michel Barbudos-Taciturnos, la concierge du 162, le Comte 
Marc de I'abonnement, le Due Andre Bombe de Colle, le Marquis 
Thierry Colonne de Chiffres, Margerin, Masse, Milou, Milou-Mou- 
lou. Monseigneur Berroyer, Nicolas IBM. Pepe Louis. Pie XII. Se- 
bastien Commodore, Thiriet tout court. 

Editeur qui sen met plein les poches sans rien foutre ; SHIFT 
Editions, 160 rue Legendre a Paris Reine du Monde. 75017. 



Publicite ? Vous voulez (aire de la publicite dans ce journal ? 
Vous eles sur ? Un cigare, un cafe, un cognac ? Vous avez des 
sous? 

Les numeros obligatoires ? Ah, les numeros obligatoires, on ne 
chantera jamais assez la poesie des numeros obligatoires. 
Commission paritaire : 66489, que e'est beau, que ca sonne 
bien Registre du commerce, RC pour les poetes : 83 B 6621, 
quel bonheur, 83 B 6621, vous vous rendez compte, 6621. le 
pied ! 

L'imprimeur, il laut parler de I'imprimeur, e'est la loi. parlons de 
I'imprimeur : L'imprimeur e'est Dulac et Jardin a Evreux. Toufe 
la campagne, les lacs, les jardins, Evreux, lautoroute de I'Ouest. 
les bouchons pourearenlrer et sortir de Paris, les tendres ebals 
des pare-chocs dans les embouteillages. la douce odeur des 
tuyaux d'echappement, la poesie bucolique des etfluves de I'en- 
Cfe et du papier qui se melent pour enchanter les narines des 
rotalivistes qui s'acharnent. jour apres jour, semaine apres se- 
maine, pour vous sortir chaque vend red i cette sept ie me merveille 
du monde : Hebdogiciel, le journal entre les journaux. Dieu soit 
loue. Ainsi soit-il. 



Suite de la page 31 
HACHETTE ; Heureusement que 
le groupe a du the et peut payer 
une (emme de menage pour enlever 
la poussiere accumulee sur les ordi- 
nateurs du drugstore Opera. Une 
grande belle salle comme celle-la 
toute vide, mon Dieu que e'est 
triste. Projet d'ouverture de maga- 
sins dans toute la France annule. 

HEWLETT PACKARD : Une se- 
maine de chrjmage pour ses 45.000 
employes, en Juillet 85. 

HECTOR : Vend en direct a un 
prix presque raisonnable les machi- 
nes qu'il n'arrivait pas a vendre la 
peau des lesses par ses rares re- 
vendeurs. Tiendront jusqu'a la fin 
de I'annee ? 

IBM : Benefices en baisse et chiffre 
d'affaires inferieur a celui de 1964. 
Abandon rju PC Junior, du PC et 
rjraderie a moins 40 % aux etu- 
diants. Big Slue souffre aussi. Jus- 
tice est faite. 

JEN PASSE : Et des meilleures 

JUPITER ACE : Micro specialise 
dans le forth importfi par une so- 
ciete specialised dans le flop. A 
vecu ce que vivent les roses. (Voir 
Valric Laurene) 

LANSAY : Rigoio qui debaptise 
['Enterprise pour le livrer avec un an 
de retard. Claque un (ric fou en pub 
et baisse ses prix de 50 % pour ne 
pas arriver a vendre trois unites qui 
se courent apres. 

LYNX : Vilain petit ordinateur tout 
mort partout. N'a pas tenu six 
mois. 

MATTEL : 350 millions de dollars 
de pertes Depot de bilan. 

MATRA : Ordinateurs Alice arret.es 
pour faute d incompetence de distri- 
bution, de publicite; el de fabrica- 
tion. Un ordinateur n'est pas un 
jouet surtout au prix oil on voulait 
le vendre. 5000 pieces vendues 
dont un paquet reslent dans les pla- 
cards des revendeurs. Brade les 
Alice 90 en stock a 900 francs prix 
de vente public alors que le prix 
hors-taxes depasse 9C0 francs a la 
sortie de I'usine. 

MSX : Bizarrerie de la nature infor- 
matique : une vieille machine peu 
performante sur laquelle plus d'un 
con a joue sa culotte : fabricanls. 



importateurs, revendeurs et gros 
distributeurs. Le standard MSX ja- 
ponais n'est pas passe, le peril 
jaune n'est pas pour i'informatique 
Les braderies a moins de 12GT. 
Irancs Outre-Manche laissent presu 
mer les cassages de gueule MSXes 
ques de la rentree. Les culs nus 
vont courir les rues. 

MSX 2 : Re-Mote, mais e'est 
qu'ils sont masos, ces japonais : le 
MSX 2, nouveau standard plus 
beau, est foujours en 8 bits. MSX 2 
fois plus de bides : que de fesses a 
I'airen perspective. 

MULTITECH MPF II : Mauvaise 
imitation de I'Apple II. N'existe 
plus. (Voir Valric Laurene) 

ORIC : Uric Angleterre ? Faillite '. 
ASN se fait piquer la distribution 
par Eureka et oublie de rembourser 
les 300 bnques dues aux anglais. 

PHILIPS : Le VG 5000, compatible 
avec rien, sans logiciel specif igue 
valable, se vend comme des aspira- 
teurs electroniques en Ethiopie. Le 
VG 8000 MSX, fabrique en France 
et distribue dans toule I'Europe, 
vient seulement d'etre presente en 
France. La production de la ma- 
chine est stoppee. tout, de suite 
apres I'annonce faite aux francais. 
Bof, tant que les pails repoussent. 
on vendra des rasoirs. 

POPSON : Chaine de distribution 
de micro familial. Bonjour, oil est- 
ce qu'on dfipose les bilans ? Ici ? 
Dans la poubelle ? Ok, merci, au 
revoir. 



INFORMATIQUE : 

Chute spectaculaire de tous les 
journaux, sauf I'HHHHebdo qui 
continue a monter et qui, en nom- 
bre d'exemplaires mensuels vendus. 
est loin devant : plus du double que 
son second, SVM. 

PRESSE INFORMATIQUE 

(bis) ; Rachal du groupe Test ( Or- 
dinateur Individuel. Voire ordina- 
teur. 15 titres en tout) par la CEP 
qui a un rapport certain avec Na- 
than "L'Ordinateur Personnel" y 
laisse la peau et devient 'Temps 
Micro Ordinateur Personnel". "Voire 
Ordinateur' bat de I'aile ? Qua cela 
ne tienne, on le marie avec "Micro 
7' de FilipJcchi el on fait "Micro 
VO" en Septembre. Cette union 
contre nature prouvera-t-elle que 
moins par moins egale plus ? 



RANK XEROX: licencie 2S00 
personnes debut 85. Abandonne la 
vente de ses 820 et lourgue de 
rOlivetti re-etiquette aux USA pour 
sauverla face. 

RUSSES : Habitants heureux dun 
pays idyllique qui vient d'acheter 
10.000 MSX dont personne ne vou- 



SEGIMEX : Importateur a repeti- 
tion. Exemple type de I'importe- 
n'importe. Golem, Lynx et MSX Ya- 
shica : deux morts et un moribond. 

SHARP: FOR 1= 700 TO 10.000 : 
CHANGER LE MOOELE MZ;l : NEXT 
I et en vendre de moins en moins. 

SINCLAIR : Lord Sinclair revend 
la quasi totalile de ses parts pour 
sauver ses meubles. QL et Spec- 
trum invendables hors Angleterre. 
Vaiture a pedale invendable partoul. 
La ffite est finie pour les pionniers. 

SONY : L'image de marque d'enfer 
de cette boite n'a pas resiste an de- 
sinteressement des francais pour le 
MSX. lis n'onl pas acfiete les 6.000 
machines bien rangees sur les eta- 
geres des revendeurs. 3500 francs 
pour un Hit-Bit MSX vendu 1700 
francs a Londres, e'est le debut du 
commencement de la fin de I'annu- 
lation de la belle campagne de pu- 
blicite prevue. Hit-Flop ! 



SQUALE : Fous furieux francais 
qui complent vendre crier 20.000 
machines buggees sans logiciels et 
compatible avec rien ni personne. 
Carnet de com man des vierge apres 
trois mois d'exploitation. 

TEXAS i 200 millions de dollars 
de pertes avec le Tl 99. Flop avec le 
Tl PC. Et ('ignoble JR n'y est pour 



THOMSON : Malgre sa bonne po- 
sition forcee sur le marche francais, 
est infoutu d'exporter. ne sait pas 
gagner d'argent et arrive a vendre 
ses TO7/70 en boutique moins cher 
que feur prix de revient sortie 
d'usine. Va commercialiser un pale 
succedane d'Apple en Septembre 
alors que tout le monde est au 16 
bits el qu Apple est a vendre. He, 
ho, on se reveille, on n'est plus en 
1975. 



duction et la fabrication de pro- 
grammes. Vu les merdes sorties de 
ses bureaux d'etudes. e'est plut6t 
une bonne nouvelle. Encore une 
grande goutte d'eau de pertes dans 
la maree de deficits de Thomson. 

VALRtC-LAURENE : Filiale de 
Direco - I'importateur de Sinclair - 
ayant a son actif 1'importation et la 
mort du Jupiter Ace et du Multitech 
MPF II. 

VILLENEUVE-LES-AVIGNONS: 

Presligieux festival de logiciels or- 
ganise par le ministers de machin. 
le secretariat d'etat au true, I'ordi- 
nateur solitaire avec grand concours 
et exposition a Beaubourg. Apres le 
lantastique succes de 1984, vient 
d'annuler la version 1965. 



V1FI : A abandonne la distribution 
des ordinateurs Thomson et a repris 
les logiciels VIFI que Thomson ven- 
dait pour lui. Mats que va-t-il faire 
de ces 10.000 vieux modules de- 
modes ? 

Plus de 300 anciens millions de 
pertes pour le dernier exercice. 
A achete" un VAX a BOO briques 
pour developper des softs sur dis- 
que optique, engin encore plus cher 
et encore plus invendable que les 
micros. 



Voila. ca fait du monde, hein ? 
Tous les domaines som touches Ce 
marchfi mirifique avec lequel on de- 
vait changer la face du monde. il 
est foutu ! Les americains qui ont 
toujours quel que s annees d'avance 
sur nous s'en desinteressent, les 
anglais sont salures et bradent tout 
avant the great cassage of gueule 
general, les japonais se plantent 
avec leur MSX et les frangais ont 
attendu trop longtemps pour ne pas 
patir des retombees afferent.es a ces 
pays sur-equipes. lis ont peut-etre 
bien fait d'attendre les francais. ils 
echapperonl au massacre. Nous en 
s'en lout ! Pas vrai les mecs ? On 
est hobbyistes et fiers de letre, 
bordei ■ 
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CAPALi 



la page pedagogique 



la page pedagoU 



Formation a I'assembleur 



COURS D'ASSEMBLEUR 



Vous etes. grace a I'HHHHebdo, 
devenus des quasi-cracks de 
I'assembleur. Mais ne partez 
pas ! Les bonnes surprises el 
les bons plans vonl se multiplier 
dans les pro-chains cours, vous 
transporlant jusqu'au nirvana 
des programmeurs. Comme tou- 
jours le cours theorique bran- 
chera les lans du lordu alors 
que les bidouilleurs se branche- 
ront direclement sur leur cours 
rien qua eux ! 



Vous avez deja eu droit aux dis- 
co uis suivants. dans votre page 
cherie par-dessus ioul : 
ZX 81— 55 56 61 66 71 76 81 
86 91 

ORIC — 57 62 67 72 77 82 87 
92 

APPLE — 58 63 68 73 78 83 88 
93 
THOMSON — 59 64 69 74 79 




Regardons le principe de fonc- 
lionnement de 1'incrementation 
et, une fois ce principe parfaite- 
ment compris. attaquons-nous a 
construire une incrementation 
mu It i -octets partaitemenl fonc- 
tionnelle. 

Lorsoue vous demandez a votre 
micro-processeur d'accomptir 
une incrementation d'une case 
memoire don nee, il extrait le 
contenu de cetto case, I'envoie 
dans I 'unite arithmetique et logi- 
que et restrlue le resultat dans 
la case memoire concernee par 
I' instruction. Ce cheminement at- 
tecte- au passage deux indica- 
teurs du registre d'etat : N et Z. 
Mais regardez plutot le schema 
qui suit, il vous eclairera parfai- 
tement sur la route suivie par la 
donnee. 



Nous venons de voir le pro- 
bleme lie a 1'incrementation 
d'une valeur stockee sur deux 
octets. II nous reste a etudier 
ceiui concernant le reste de 
rtotre division. 

Telle que nous I'avons program- 
mes, rtotre operation donne un 
resultat entier. cartes, mais un 
resultat tronque. En informatique 
deux methodes d 'approximation 
des calculs sont generalement 
usitees : soil la troncature 
(perte pure et simple des chif- 
fres non significatifs), soit I'ar- 
rondi. En mathematique, la mo- 
thode donnant le resultat le 
moins taux est I'arrondi, aussi 
al Ions- nous etudier maintenant 
comment modifier noire pro- 
gramme de facon a obtenir un 
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Imaginons que la case memoire 
dont vous voulez incrementer le 
contenu renferme la valeur FF 
(en hexadecimal bien sur), que 
va-t-il se passer a votre avis ? 
Normalement nous devrions 
avoir cette operation ; 



FF+ 1 . 



100 



Mais ne voyez-vous pas un 
drama pointer le bout de son 
nez ? Eh oui ! Un octet ne peut 
contenir comme valeur maxi- 
mum que FF. Nous n'aurons 
done pas 100 dans noire case 
memoire, mais 00. C'est alors 
que le bit Z sera positionne a 1, 
indiquant le passage de la va- 
lour de I octet de FF a 00. Pour 
noire incrementation multi- 
octets, il nous suffira done de 
tester le bit Z apres chaque in- 
crementation de I 'octet de poids 
taible et, en fonction du resultat 
du test, d'rncremenler ou non 
I'octet de poids tort. Rien de 
plus simple, aussi passons im- 
mediatement a I'organigramme 
de cette petite routine. 



| INC PI | 




INC : incrementation 

Pf : poids faible 

PF : pokis tort 

Z : bit Z du registre d'etat 

De cet organigram me sans ma- 
lice, nous rJrerorts un algorithms 
sans mystere: 



1 10 si Z- alors aller en 130 
120 incrementer I octet de poios 



quotient arrondi et non tronque. 
Pour nous attaquer a cette nou- 
velle routine, il nous faudra tout 
d'abord connaitre le fonctionne- 
ment exact de I'arrondi en ma- 
thematique. A parti r de cette 
connaissance, nous pourrons 
deduire une methode algorithmi- 
que applicable a notre ordina- 
teur. 

Notre division seize bits nous 
donne un resultat partage en 
deux morceaux d'une part le 
quotient (valeur entiere toujours 
inferieure ou egale au resultat 
exact de (operation) et le reste 
(toujours inferieur au diviseur et 
superieur ou egal a zero). Tout 
le calcul de I'arrondi s'effectuera 
a partir de la valeur du reste. 
modiflant ou non ceile du quo- 
tient. Determinons maintenant 
les regies qui regissent le prin- 
cipe de I'arrondi. 

" nous n'aurons a considerer 
que le premier chiflre qui se 
trouverait apres la virgule, affi- 
ner le programme plus avant 
compliquerait inutilement notre 
recherche. 

' si ce premier chiffre apres la 
virgule est strictement inferieur a 
5 (compris indusivement entre 
et 4), nous arrondi rons notre 
reste a ce qui signifie que le 
quotient ne sera pas modifie. 
" si ce premier chiffre apres la 
virgule est superieur ou egal a 5 
(compris indusivement entre 5 
et 9), nous arrondi rons notre 
reste a la valeur du diviseur ce 
qui signifie tout simplement que 
nous augmenterons la valeur du 
quotient dune unite. 

Regardons quelques exemples 
de cette methode de calcul pour 
nous fixer definitivement les 
idees a ce propos. Nous utilise- 
rons les abr^viations suivantes : 
Q. quotient. R. reste, DID, divi- 
dende, DIS, diviseur. Pour 
connaitre la valeur finale de Q. 
nous allons appliquer un lest 
Ires simple qui nous indiquera si 
le premier chiffre apres la vir- 
gule est inferieur strictement ou 



Si R >= DIS/2 alors Q * Q+ 1 
et R = sinon Q inchange et R 
= 

1. DID = 14, DIS = 3. Nous Ob- 
tenons : Q ■ 4, R = 2. R est 
superieur ou egal a DIS/2 (2 
>1,5), done Q sera augmente 
d'une unite (Q = 5) et R sera 
mis a zero. Si vous trouvez 
cette approximation curieuse. 
saisissez-vous i m mediate me nt 
de votre calculette et tapez 14/3. 
Vous obtenez 4.66666... Mathe- 
matiquement, cette valeur est 
plus proche de 5 que de 4. II est 
done plus logique d'arrondir 
notre resultat que de le tron- 
quer, I'erreur est ainsi minimisee 
dans la mortie des cas (des que 
R >= DIS/2, la troncature 
commet une erreur superieure a 
une demie-unite !). 

2. DID = 171, DIS = 13. = 
13. R = 2. R < DIS/2 (2< 6,5). 
O reste inchange et R egale 0. 
La encore pas de mystere : 
171/13 = 13,153846 qui est 
plus proche de 13 que de 14. 

3. DID = 852, DiS ■ 71. Q = 
12, R = 0. Ici, pas de question 
inutile a se poser ; le reste est 
nul, inutile de chercher a mani- 
puler le quotient il est correct. 

Nous passons maintenant a la 
construction de raigortthme qui 
gerera ce test du reste. II me 
reste a vous rappeler une partie 
du debut de ce cours d'assem- 
bleur ; pour diviser un nombre 
par deux, il suffit de pratiquer un 
decalage a droite dune position 
(tout comme un decalage dune 
position a gauche le multipliera 
par deux). Pour effectuer la 
comparaison, il vous faudra 
trouver I 'instruction la mieux 
adaplee de votre micro-proces- 
seur, certains de ceux-ci dispo- 
sant de methodes de comparai- 
son plus puissantes que 
d'autres. 

L'akjorrthme que nous avons 
consiruit modifie la valeur du di- 
vidende a chaque etape jusqu'a 
I'obtenlion d'une valeur infe- 
rieure a celle du diviseur. Cette 
valeur que nous appelons alors 
reste a ecrase le dividende. La 
perte de la donnee de depart ne 
modifie en rien le resultat, mais 
vous aurez a vous metier de 
cette particularite de lalgorithme 
en I'utilisant. Regardons mainte- 
nant I'organigramme de notre di- 
vision sur seize bits avec arrondi 
du resultat. 



I 
|did — did-dis] 
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Org a nig ram me de la division 
entiere sur seize bits avec ar- 
rondi 



L'ASSEMBLEUR PRATIQUE 
Langage machine... Sur APPLE 



Quelques mots sur la couleur 
a van I de reattaquer le gra- 
pheme. Si vous trouvez que i'ai- 
fichage des lignes sur I'ecran 
APPLE est particulierement tara- 
biscote, vous ne serez pas 
dec us par les principes de la 
couleur. 

Nous avons vu que I'ecran etait 
divise en 40 colonnes de 192 
lignes chacune. Pour des rai- 
sons de signaux television que 
je n'aborderai pas ici. (because 
c'est trop chiant et complique) 
les concepleurs de I 'Apple ont 
ete obliges d alter ner les cou- 
leurs suivant les colonnes. Et 
c'est le tameux Berne bit de I'oc- 
tet qui va determiner ces cou- 
leurs. Accrochez-vous, je de- 
colle. 

Colonnes pa ires : 
Deux cas : 

- Si le huitieme bit est allume, le 
premier point est violet, le se- 
cond point est vert. 

- Si le huitieme bit est eleint. le 
premier point est bleu, le second 
point est orange. 

Colonnes im pa ires : 
Deux cas : 

- Si le huitieme bit est allume. le 
premier point est vert, le second 
point est violet. 

- Si le huitieme bit est eteint, le 
premier point est orange, le se- 
cond point est bleu. 

BLANC ET NOIR : 

- Lorsque les 7 premiers bits 
d'un octet sont a 1 , on obtient 7 
points blancs. Si le huitieme bit 
de cet octet est a 0, ce blanc 
sera compatible avec le vert et 
le violet. En d'autres termes, un 
dessin oil du vert du violet et du 
blanc se cotoieront ne "bavera 



pas". 

Si le huitieme bit est a 1, ce 

blanc sera compatible avec 

I'orange et le bleu seion le 

me me principe. 

II en va de meme pour le noir, 

Les 7 premiers bits de I'octet se- 

ront a 0. C'est le huitieme bit qui 

determinera la compatibilite de 

ce noir avec le vert/vtolet ou ORG $ 9000 

I 'orange/bleu. 



utilisez le petit programme basic 

suivant : 

HGR 

10HCOLOR= H 

20 PLOT 0.0 

30 CALL -3082 

Vous donnerez a H une valeur 
entre et 7. Lancez le pro- 
gramme, puis tapez CALL-151 
pour entrer dans le moniteur. La 
page graph ique commence en $ 
2000. Vous constate rez que les 
valeurs alternant en memoire si 
vous n'etes ni en noir, ni en 
blanc. Et ce sera tout pour au- 
jourd'hui en ce qui concerne la 
couleur. 



Je passe aux exemples hyper 
pratiques. Dans le dernier cours. 
je vous partais de la fameuse 
Table d'adresse des lignes. in- 
dispensable dans tout bon pro- 
gramme de graphique. Cette 
table est composee de deux 
parties : THA (partie 'haute' des 
adresses) et TBA (partie 'basse' 
des adresses). La premiere 
ligne commence a I'adresse $ 
2000. j'aurai done $ 20 en THA 
et $ 00 en TBA. Pour utiliser 
cette table, je vais recourir a 
I'adressage indirect indexe. 
Vous devez connaitre ce type 
d'adressage. je I'ai deja utilise 
dans la routine PRINT (trois 
cours precedents). Dans le pro- 
gramme suivant, je remplis 
I'ecran de blanc, ligne par ligne, 
50 fois de suite. Je regie la Vi- 
tesse de remplissage en mettant 
une valeur drfferente dans I'ac- 
cumulateur avant de faire la 
boucle de temporisation (JSR 
WAIT). Ca vous donnera une 
idee de la rapid ite du langage 
machine. Etudiez-le bien. J'ai 
mis tous les commentaires ne- 
cessaires. Essayez de faire vos 
propres modrfs. 
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Si Ton veut obtenir un point 
blanc sur un ecran couleur, il 
suffit d'allumer deux bits conse- 
cutifs a I'interieur d'un octet. 
Si Ton veut obtenir un point noir 
sur un ecran couleur, il suffit 
d'eteindre deux bits consecutifs 
a I'interieur d'un octet. 
Lorsque Ton dit qu'il existe 8 
couleurs sur I'Apple en mode 
haute resolution, ca nest done 
pas lout a fait vrai. En effet, on 
dispose de 4 couleurs qui sont : 
violet, vert* orange, bleu plus 
deux blancs et deux noirs. 
Ces 8 couleurs sont des cou- 
leurs pleines. Mais on peut les 
mixer par lignes. Ainsi. une ligne 
rouge aftemee avec une ligne 
verte rendra un effet de jaune. 
Tout cela est vachement compli- 
que, et vous avez le droit de 
tout relire. 

Pour mieux visualiser le sto- 
ekage des couleurs en memoire. 



• ' EXEMPLE D'UTILISATION 
DE LA TABLE D'ADRESSE ' - 
ADRESSE = $ 18 ; case me- 
moire pour le stockage tempo- 
raire de I'adresse de debut de 
ligne 

WAIT = S FCA8 ; sous-routine 
d'attenle 

HGR = $ F3E2 ; sous-routine 
de netloyage d'ecran 
DEBUT BIT $ C050 ; on passe 
en graphique 

BIT S C057 ; en haute resolution 
LDX # $ 00 ; on commencera 
par dessiner dans la ligne 
STX ATTENTE ; ce petit comp- 
teur va servir a temporiser 
SOUCLE INC ATTENTE 
BOUCLE1 LDA TBA.X ; on 
cherche I'adresse basse de la 
ligne 

STA ADRESSE ; on la met dans 
ADRESSE 

LDA THA.X ; on cherche 
I'adresse haute de la ligne 
STA ADRESSE+ 1 ; on la met 
dans ADRESSE+ 1 
LDY # % 00 ; Y va compter les 
colonnes 

LDA # $ 7F ; c'est le code de la 
couleur blanche 

BOUCLE2 STA (ADRESSE).Y ; 
je mets du blanc dans la co 
lonne Y de la ligne X 
INY : colonne suivante 
CPY # 39 ; on a fait les 40 co- 

BNE BOUCLE2 ; non, done on 

boucle 

LDA ATTENTE ; on va souffler 

unpeu 

JSR WAIT : plus ATTENTE sera 

grand, plus on se reposera 

INX ; ligne suivante 



CPX # 191 ; on a fait toute la 

page? 

BNE BOUCLE1 ; non. done on 

boucle 

LDA ATTENTE 

CMP # 50 ; au bout de 50 fois 

on arrete tout 

BEQ FIN 

JSR HGR ; on nettoie I'ecran 

LDX # $ 00 : on remet le comp- 

teur de lignes a 

JMP BOUCLE ; et c'est reparti ! 

FIN BIT $ C051 ; retour au 

mode texte 

RTS : et je vous rends la main. 

TBA HEX 0000000000000000 ; 
192 a 



. bas^ 



HEX 8OSO8OBO80808DBO 
HEX 0000000000000000 
HEX 9080808080808080 
HEX 0000000000000000 
HEX 8080808080808080 
HEX 0000000000000000 
HEX 8080808080808080 
HEX 2B2828282B282828 
HEX A8A8A8A8A8A8A8A8 
HEX 2828282828282828 
HEX A8A8A8ABABASA8A8 
HEX 2828282828282628 
HEX A8A8A8A8A8ABA8A8 
HEX 28282828282S282S 
HEX A8A8A8A8ASA8A8A8 
HEX 5050505050505050 
HEX DODODOOODODODODO 
HEX 5050505050505050 
HEX DODODOOODODODODO 
HEX 5050505050505050 
HEX DO DOM DO BO 00 DO DO 

HEX 3030303030505050 
HEX DOD0O0D0D0D0D0D0 

THA HEX 20242B2C30343B3C ; 

1?2 adresses hautes des lit) 

HEX 20242B2C3034383C 
HEX 2I252?2D31353?3D 
HEX 2125292D3I35393D 
HEX 222d2A2E323d3A3E 
HEX 22262A2E32363A3E 
HEX 23272B2F33373B3F 
HEX 2327282F33373B3F 
HEX 2024282C3034383C 
HEX 2024282C30343B3C 
HEX 212529203I35393D 
HEX 2125292D3135393D 
HEX 22242A2E323d3A3E 
HEX 222&2A2E32343A3E 
HEX 23272B2F33373B3F 
HEX 23272B2F33373B3F 
HEX 2024282C3034383C 
HEX 2024282C3034383C 
HEX 2125292D3135393D 
HEX 2I25292D3I35393D 
HEX 222^2A2E32363A3E 
HEX ^2262A2E32343A3E 
HEX 23272B2F33373B3F 
HEX 23272B2F3337383F 

ATTENTE DS 1 ; je reserve une 
case memoire pour mon comp- 
teur 

Voila ce que ca donne en code 
hexa : 

9000 :2C 50 CO 2C 57 CO A2 
00 8E C4 91 EE C4 91 BD 44 
90 85 18 BD 04 91 85 19 AO 00 
A9 7F 91 18 C8 CO 27 DO F9 
AD C4 91 20 A8 FC E8 EO CO 
DO E0 AD C4 91 C9 32 F0 08 
20 E2 F3 A2 00 4C OE 90 2C 
51 CO 60 

Ceci est uniquement le code du 
programme. II faut ajouter der- 
riere les 384 octets de la table 
(TBA, THA) que je ne vais pas 
recopier deux fois. Faut pas 
pousser. Bon. Vous avez du 
pain sur la planche pour cette 
semaine. Je vous conseille de 
taper le source de ce pro- 
gramme sur I'assembleur BIG 
MAC ou sur MERLIN. Tout ca 
m'a epuise, je vais me pieuter. 
Bises a tous. 

Pepe Louis (en vacances dans 
le Bas Armagnac). 



la page pedagogique. 



la page pedagoZZ 
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L'ASSEMBLEUR PRATIQUE 

Lang age machine... Sur CBM64 



Comparer peut paraitre inutile 
quand on a aucune instruction 
de trartement, c'est pourquoi 
BEQ, 8NE. BML ont ele 



- BEQ (Branch if EQual) Bran- 
chement si egalite (Z= 1) 
Dans le cas de S 50-$ 50, le re- 
suttat est egal a done Z passe 
a 1 , BEQ est effeclue 

BEOS C010 dev.ent un JMP$ 
C010 quand legalite est venfiee 
Mais attention ' L'adressage est 
relatif (comme tout). L'operande 
de BEQ nest pas I'adresse du 
saut, mais le nombre d'octets a 
passer 



Les octets seront : FO 00. FO 
etant le code operation de BEQ, 
00 le nombre d'octets a sauter a 
partir de Instruction suivante 
Vous avez compris ? Partait. 
Alors pour passer de S COOO a 
$ C008 ? C'est FO 06, pourquoi 
06 alors que Ion fait un saut de 
$ C008-S C000= 6 octets, car le 
processeur prend I'adresse qui 
suit le BEQ comme point de de- 
part. 



C00OF0 
CO01 06 
C002? 



BEQ $ COOS 



C006? 

Si vous nave z lou jours pas 

compris, relisez ce paragraphe. 
cela ne vous eoutera pas plus 

fll§f. Tout ceci est partait pour 

le saut en avant, mais comment 
fairs poor la marche amere ? 
L'operande du BEQ est alors 
partagee en 2, de a 7F pour 
les sauts en avant, de FF a 80 
pour les sauts en amere De 
toutes facons vous n'avez pas a 
en tenir compie, votre assem- 
bler sen charge, il vous suffira 
de vous rappeter que le BEQ ne 
peut sauter a plus de 7F octets. 

- BNE (Branch if Not Equal) 
Branchemenl si non-egalite (Z- 
0). Le pnncipe est le meme que 
pour BEQ, comme d'ailleurs 
tous les branchements condi- 
tionneis Lors dune utilisation de 
BEQ, pour conirer le probleme 
des 7F octets, vous pouvez utili- 
ser BNE de la sorte : 

£ COOO BNE S C005 
$ C002 JMP S C100 
SC005 ... 



$129 


|l | | 00 10100 1 | 


etc 
$29 * 


loll 0010100 



• SEC (SEl Carry) Mise a 1 du 
bit de retenue (operation inverse 
de CLC). 



- SED (SEt Decimal mode) 
Mise a 1 du bit D. Le 6510 peut 
tavailler en BCD ou decimal 
code binaire, des lors chaque 



Q<£ DlT-fU? 
wj.fz i£;av0i'p, 

0ftMT E 9 ( A -l fri&c) 




nombre aura une representation 
binaire comme suit 

= 0000 

1 = 0001 

2 = 0010 

3 = 0011 

4 ■ 0100 
Chaque chitfre est remplace par 
son equivalent binaire : 

72= 01111 0010 



pere) additionner et soustraire. 

- ADC (ADd memory to accu- 
mulator with Carry) Addition dun 
nombre binaire avec la me- 
moire. Sort ['addition fori 
complexe de $ 15 plus$ A1. 



$86 = 10110110 

Lors de I operation les bits C. V 
et N sont affectes. Le brt Z. s'il 
est positionne a 1 apres looera- 
lion, indique que le results: de 
cette demiere est nulle. Cette 
instruction est mi racu leu semen t 
adressable en differents modes 
dont voici lintegrale : immediat. 
direct, indexe par X et Y. page 
zero, page zero indexe par X, 
pre et post indexe indirect. 

- SBC (SuBstract memory' to 
accumulator with Carry) Nous 
retrouvons ici la sou sir action 
que nous avrons precedemmenl 
etudiee Nous n'arretons pas de 
relrouver des choses puisque 
les modes dadressages sont 
ideniiques a ceux utilises par 
I'addition. L'operation comman- 
dee par SBC ressemble forte - 
ment a ce qui suit : 

ACC — ACC - (MEM) - Carry 

Vous croyez peut-etre en avoir 
fini avec ces sacrees instruc- 
tions arithmetiques ? Eh bien 
tout faux I Quand yen a plus 
yen a encore. 

- INC (INCrement memory) 
Aug men te d'une unite le 
contenu de I'adresse memoire 
Attention I Si la case memoirs 
que vous indtquez contient $ FF 
et que vous I'incrementez, vous 
n'obbendrez pas $ 100 mais S 



0101 
0110 
0111 
1000 
9 = 1001 



Ce mode permet seulement de 
coder des nombres de a 99. 

- CLI (CLear Interrupt) Mise a 
zero du masque dinlerruption. 

- SEl (SEt Interrupt) Mise a un 
du masque d' interruption. II est 
impossible d'expliquer en quel- 
ques lignes les interruptions, 
c'est pourquoi un chapitre leur 
sera reserve 



- BCC (Branch if Carry Clear) 
Branchemenl si absence de re- 
tenue (C= 0). 



(V=1>. 

- BVC (Branch if overflow 
Clear) Branchemenl si absence 
de debordement (V= 0). Ce de- 
bordement s'effectue tors dune 
addition. 

Les sauts etanl fonction du re- 
gistre d'etats, void tes instruc- 
tions qui s'y rapportent. 



REGISTRE D'ETAT 

Elles sont au nombre de sept. 



Nous venons de parcourir brie- 
vement les instructions s'occu- 
pant du registre d'etats. Nous ne 
saunons en raster la, aussi pas- 
sons a des COP encore plus 
passionnants et encore moins 
inutiles. 



00. 

Vous pourrez adresser cette ins- 
truction avec les modes direct, 
direct indexe par X, page zero 
et page zero index6 par X. 

- INX et INY (INcrement register 
X ou Y) L'effet est identique que 
la precedente, mais cette fois-d 

le contenu du registre d'index 
est modilie. Utili sables seule- 
ment en adressage impiicite. 
ces instructions modifienl le 
contenu des indicaleurs N et Z. 

Vous trouvez qu'incrementer 
c'est bien mais insuffisant ? Oh ! 
Votre 6510 unique et prefere 
vous offre d'appJiquer l'operation 
inverse soil la decrementation. 

- DEC (DECrement memory) 
Diminue dune unite le contenu 
de I'adresse memoire. Si votre 
case contient $ 00, apres decre- 
mentation vous aboutirez a S FF 
avec I'indicateur N a 1. vous in- 
diquant un resuttat n§gatif. Les 
modes d'adressages sont identi- 
ques a ceux d INC. 



- DEX et DEY (DEcremenl re- 
gister X ou Y) Effet parfaitement 
similaire a ce qui precede, mais 
applique aux registres d'index. 
Les indicaleurs N et Z peuvenl 
etre modifies par l'operation. 
Seul l'adressage impiicite est 



Vous avez dix doigts ? Vous ar- 
rtverez done a compter jusqu'a 
dix ! Le micro -processeur. dans 
sa betise sans limite, n'a que 
hurt doigts (comme Mickey) ou 
bits (pas comme Mickey qui 
n'en a pas... ou si peu). Mais 
quand meme. ne prenons pas le 
6510 pour plus idiot qu'il n'est : 
avec huil doigts il salt compter 
de jusqu'a 255. Hormis cette 
ecrasante superionte de la ma- 
chine, le processeur sail tout 
comme vous (du moins je I'es- 



L'emptoi de DEX combine a 
CPX permet de creer une pause 
dont voici I ennonce : 

$ 4000 LDX # | FF 
$ 4002 DEX 
S 4003 CPX # $ 00 
$ 4005 BNE S 4002 

L'instruction BNE teste I 
contenu de I'indicateur Z. Si Z 
le saut est accompli, dans to 
cas contraire le programme 
continue en lineaire (instruction 
survant le test). 

Sebastian MOUGEY 



L'ASSEMBLEUR PRATIQUE 
Langage machine... Sur ORIC 



ME REVOILOU 

Eh oui, me revoici, les cheveux 
au vent, plem de la sort dap 
prendre qui me tenaille les 
tripes, roe > i etincelant de la 
Connaissance Et vous n'etes 
pas venus pour hen, vous lallez 
voir dans ce qui suit. 

LES DECALAGES 

Le decalage, voila un terme qui 
pourrait qualifier le cole par le- 
quel on se marginalise, mais lei 
n'est pas le cas. surprise, il 
s'agrt dun terme utilise en infor- 
matique. et qui plus est en as 
semWeur. Surpris ? 
II existe en assemble ur 6502 
quatre instructions permettant le 
decalage dun objet. Qu'est-ce 
que le decalage ? C'est un petit 
replacement par rapport a une 
position normal e. Qu'est-ce 
qu'un deplacement ? C'est un 
mouvement qui lait passer un 
objet dun endroit a un autre. 
Qu'est-ce qu'un mouvement ? 
C'est un changement de posi- 
tion dans I'espace en fonction 
du temps, par rapport a un sys- 
teme de reference. Je laisse 
tomber mon dictionnaire, je four- 
nis un petit exemple et |'y allons. 
Premier petit exemple, a taper si 
vous disposez de I'assembleur 
Monams ; 



dire la retenue. Si le bit 7 etait a 
un, la relenue va done passer a 
un. Tous les autres bits passent 
a gauche, et il enlre systemati- 
quement un zero a droile. Apres 
ASL # 2000. I'octel va done res- 
sembler a ca : 



to 


HFFICH E0U«F77C 




II 






1? 


POUR 0R1C-1. 




13 


flFFICH • F73F 




M 


ORG! 1860 




N 


LDYt«0 




M 


PEBUT CLO 




M 


RSL*2eee 




kH 


BCC ZERO 




7H 






KH 


jrrcLu 










IM 


-CLO JSR HFFICH 




118 


-INY 




I^M 


-CPYW8 




|M 


■BNE DEBUT 




141 


-LDXHO 




\m 


■JSR flFFICH 




IbB 


■RTS 




Deuxieme petit exemple 


si vous 


n'en 


disposez pas : 




18 


FORH*tlB00TOAt01C 


RERDA 


F-QKEM.R NEXT 















32,124 

tia DflTfi247. 266, 192.8.288.2 

35.162.13.32,124,247,96 

Une fois ce programme dans la 
memoire, vous faites POKE # 
2000.x ou x est une valeur entre 
et 255. puis CALL # 1000 et 
la. 6 surprise, vous obtiendrez 
■ equivalent binaire du chiffre 
que vous avez poke en = 2000. 
Ca alors, qu'est-ce qu'ils sont 
bons. mes programmes 
Bret. 

Comment (ais-je, pour obtenir 
cette merveilleuse suite de 
zeros et de uns, tous bien ali- 
gnes comme it faul ? Exami- 
nons. 

EXAMINONS 

Au debut du programme, je 
charge Y avec (LDY # S 0), je 
nettoie la retenue (CLC) et je 
fais ASL S 2000. Ca commence 
sec, en voila un, de decalage. 
Vous avez poke une valeur en 
# 2000. meltons 5. Vous n'etes 
pas obliges de poker 5, vous 
faites ce que vous voulez. Mais 
moi, je poke K, C'est comme ca, 
L'octet 2000 done avoir cette 



fo Mo|o|o|o|i|o|i|oh o 

C 76543210 

L'instruction suivante est BCC 
ZERO, soil "branchemenl si la 
retenue est a zero" Comme 
c'est le cas. nous allons au 
sou s -programme "ZERO". La. 
nous chargeons dans X le code 
ASCII de '0", puis, par un JSR. 
nous rarfichons a I'ecran par 
I' intermedial re dune routine qui 
se trouve en ROM. A noter que 
les adi esses de cette routine 
sont differentes sur l'Oric-1 et 
sur I'Atmos. Elle peul vous ser- 
vir dans pas mal de cas : il suffrt 
de charger X avec le code 
ASCII du caractere que vous 
voulez afficher. puis de 'aire un 
JSR. 

Ensuite, nous mcrementons Y, 
qui dans cet exemple passe 
done a 1 (il etait a au depart 
du programme). Nous le compa- 
rons a B. et si il est different 
nous revenons au debut. Ce qui 
est le cas, refaisons un tour de 



sans changement notable. A la 
sixieme. nous aurons 6 dans Y, 
et # 2000 sera comme ca : 



equivalent of behind the lagots ? 
ASR ? Non. c'eul ele Irop sim- 
ple. II porta le nom charmanl de 
LSR, qui signifie Logic Shift 
Right, soil Decalage a Droite Lo- 
gique Si au lieu d'etre Logique 
ca avail ele Total erne nt errati- 
que, les initiates auraient ele 
DOT, ce qui nous aurait bien fait 
hre, mais ca n est pas le cas el 
nous devons garder notre gra- 
vrte. 

Ce decalage a droite decale les 
bits dun odet de la meme 
facon. mais vers la droile. Le bit 
de droite "lombe" dans la rete- 
nue et un est introduit a gau- 
che. Bref. ces! la meme instruc- 
tion qu'ASL. mais a I'envers. 
Oui, mais voila. Cette instruction 
a detruit I'odet que je testats. Je 
m'en fous. j'en ai d'autres. vous 
diies-vous ? Oh que non, pas 
dans tous les cas. Mais il existe 
des instructions qui ne detrui- 
seni pas la case testee. Voyons- 
les. 

ROL veut dire ROtate Left, rota- 
tion a gauche Voyons le circuit 
des informations. Si j 'effeclue 
cette operation sur un odet qui 
contient 54 (en dedmal). qui a 
done cette gueule-la : 
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C 76543210 

Et nous reprenons la boude a 
"DEBUT*. Nous neltoyons une 
fois de plus la retenue (ce n'est 
pea iiev.c3s=ne dans ce caa 
precis, mais prenez rtiabiiude 
de bosser avec des oubls pro- 
pres. Nettoyez la retenue, I'indi- 
cateur de mode dedmal. I'indi- 
cateur d'interruptior- et 
I'indicateur de debordement par 
CLC, CLD. CLI et CLV. Ce sont 
les souls drapeaux sur lesqueis 
vous puissiez agir diredement. 
n'hesitez pas a vous en servir, 
cela peut vous evtter de fasti- 
dieuses recherches en cas de 
piantage De plus, il est tres dif- 
liaie. meme lorsqu'on est un 
programmeur chevronne, de sui- 
vre letat de ces differents dra- 
peaux sur ('execution dun pro- 
gramme long. Fin de 
parenthese), remontez lire ce 
qui precede la parenthese. 
merci. et hop ! Re-ASL # 2000 
Cette fois, void ce qui va se 



|0|0|0|0|0]1|0|1| 
76543210 

ASL signifie "Arithmetic Shift 
Lett", sort "decalage arithmetique 
a gauche". L octet tout entier va 
done etre decale d'un cran (et 
dun seul) vers la gauche. Mais 
que va-t-il se passer aux extre- 
mites? 

Le bit 7 (le plus a gauche) va 
Tomber" dans la carry, e'est-a- 
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C 76543210 

La retenue va passer a 1, Ha 
ha. Un jeu d'enfant, regardez 
comme r instruction suivante de- 
mande un branchement si la re- 
tenue est a zero (ce qu elle n'est 
pas), nous n'allons pas effectuer 
le branchement. Nous allons 
continuer comme si de rien 
n'etait I Au nez et a la barbe du 
processeur j D'ou mon rire de 
tout a Iheure. Avec LDX # V, 
nous chargeons X avec le code 
ASCII de T, et le JMP GLO 
nous permet d'aller I' afficher 
puis dincrementer Y, de verifier 
qu'il nest pas a 8 et de revenir 
au depart. Sur notre ecran de 
television, tout beau, nous 
aurons done "000001" affiche. 
La boude va se reproduire en- 
core deux fois, le temps de ra- 
jouter "01" a la chaine et va en- 
suite charger X avec 13 pour 
sauter a la ligne avant de rendre 
la main. 

Voila. C'etait le gadget de cette 
semaine i un convertisseur digi- 
tal dedmal/binaire. Chouettos, 
hein? 

Inutile de dire qu'il existe un 
petit equivalent de derriere les 
fagots pour le decalage a droite. 
Et comment s'appelle-t-il. cet 
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7 6 5 4 3 2 1 



^ lohlilolililorTV . 
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Le bit 7 est "tombe" dans la re- 
tenue. tout s'est decale vers la 
gauche et le contenu de la rete- 
nue est passe dans le bit de 
droite. On peut done tester la re- 
tenue, et en effeduant neuf fois 
cette operation remettre l'octet 
dans letat ou on lavait trouve 
en entrant. Voila qui est interes- 
sant. n est-ce pas ? D'autant 
que l instruction "inverse' existe, 
et elle s'appelle ROR. qui pour 
une fois veut bien dire ce quelle 
veut dire : ROtate Right, rotation 
a droite. Je ne vous fais pas le 
topo. c'est exadement la meme 
a I'envers. 
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Avant de nous quitter, voyons 

les differents modes d'adres- 

sage de ces quatre instructions. 

ASL peut s'asler (c'est le verbe 

j'asle. tu asles. il asle) de la 

facon suivante I 

ASL tout court, ca asle laccu- 

mulateur. 

ASL S 1000 asle l'octet # 1000. 

ASL S 10 asle I'odet 10 en 

page zero. 

ASL $ 1000.X asle l'octet qui se 

trouve X positions apres # 

1000. 

ASL $ 65.X est pareil que le 

precedent, mais en page zero. 

Je ne vous cause pas de LSR. 

parce que Isrer seraft trop dur a 

prononcer et parce que c'est les 



Passons a ROL (and ROC, je 
I'ai farte). 

En fait, pas besom d'y passer, je 
viens de constater avec stupeur 
que c'etait pareil aussi. Done, 
toutes ces instructions posse- 
dent un mode d'adressage ac- 
cumulate ur. absdu, zero- page, 
absolu.x et zen>page,x. C'est 
tout ton. 

Comme exerdce. faites decaler 
vos voisines de plage et prenez 
la place de la retenue, vous ver- 
rez comme rinformatique a du 
bon, parfois. 



la page pedagogique' 



la page pedago~ 



la page pedagogique. 
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L'ASSEMBLEUR PRATIQUE 
Langage machine... Sur THOMSON 



Pour en finir avec Jes indicaleurs 
arithmeliques el logiques du re- 
g i st io d'etat, nous allons ten lor 
de pari aire vos connaissances 
en la matiere. Dernier ement. 
nous avons parte des insl ruc- 
tions de branchement pfopres a 
chaque indicaleur. II nous resle 
a parier, enire autres. de celles 
qui testent la combinaison de 
"plusieurs" bits du regislre d'etat. 
Voici done ces lameuses inlruc- 
tions de brancnement (en CPL2 
el relatif au PC); a noler qu'elles 
concement les indicaleurs N. 2, 
V. C: 

BGE (branch if greater than or 
equal to) : un branchemeni "si 
superieur ou eg a I a" est effec- 
tue. si les indicaleurs N el V 
sont lous les deux a I ou a el 
ce lors de r utilisation de valeurs 
en CPU (comparaison ou Ope- 
ration) Done si (N (XOfl) V}= 
[<evoir a ce propos. les opera- 
leurs logiques du n° 79). 
BGT (branch it greater than] : un 
branchement "si superieur a" est 
effect ue. si les indicaleurs N et 
V sont lous les deux a 1 ou a 
et si Z est a 0, tors de I'emptoi 
de valeurs en CPL2. Done si 2 
AND (N (XOH) V)- 0. 
BHI (branch if higher) : un bran- 
chemeni "si superieur" est rea- 
lise, si les indicaleurs C et Z 
sont lous les deux a 0, lors de 
I'emploi de valeurs non signees. 
Done si (CORZ)= 0. 
BLE (branch if less than or 
equal to) : un branchement "si 
inferieur ou egal a' est realise, 
si I'un OU I'autre des bits N el V 
est a 1 et si le bit Z est a 1 . lors 
de I 'utilisation de valeurs en 
CPL2. Done si Z OH (N (XOR) 
V)= 1. 

BLS (branch rl lower or same) : 
un bfanehement 'si inferieur ou 
egal a" est eftectue. si I'un ou 
lautre ou bien les deux indica- 
leurs C el Z sont a 1. lors de 
I'emploi de valeurs non signees. 
Doncsi(CORZ)= 1. 
BLT (branch if less than) : un 
branchement "si inferieur a" esl 
realise, si I'un OU i autre des in- 
dicaleurs N et V est a 1, lors de 
i'emploi de valeurs en CPL2. 
Done si (N (XOR) V)= 1. 
De plus, il esl bon de noler que 
Instruction BHS (branch if hi- 
gher or same) "branchemeni si 
superieur ou egal". est I DENT I - 
QUE a Nnstruction BCC (deja 
eludiee dans noire example du 
N° 89), en ce sens quelle effec- 
tue un branchemeni lorsque le 
bit C esl a 0. De meme, lins- 
truction BLO (branch if tower) 
"brancnemeni si inferieur". est 
idenlique a BCS (N° 89). mais 



celle fois le branchement sel- 
fectue si C est a 1 Done les 
inslruclions BHS- BCC posse- 
dent un meme code operaloire. 
ainsi que BLQ-BCS BRA 
(branch always), branche dans 
tous les cas (branchement in- 
conditionnel). BSR (branch lo 
subroutine), branche a un sous 
programme egalement dans tout 
les cas. BRN (branch never), 
comme son r>om I'indique no 
branche jamais. 

■ Ou! I on passe a autre 
chose? 

Attendez, encore un instant dat- 
tention. Les branchements que 
nous venons d'etudier son) de 
type COURT, il nous reste a 
examiner les branchements de 
type LONG. 
-??? 

Oui, nous avons deja exptique 
commenl s "eftectue un branche- 
meni relatif au PC en mode 
CPL2. A la suite dune instruc- 
tion de branchement. on indique 
une valeur en CPL2 codee sur 
"un octet" Cette valeur. ajoutee 
a ladresse que contjent le PC. 
precise ladresse ou doit s'effec- 
tuer le branchement. Done dans 
le cas dun branchement court. 
cette valeur signee est situee 
entre + 127 et -128. Ce qui si- 
gnifie que Ton peut avancer d'un 
maximum de 127 octets dans la 
memoire ou reculer au plus de 
128. Ce branchemeni est de 
type COURT. II est possible de 
couvrir les 65.536 adresses de 
la memoire par un branchement 
de type LONG. Pour cela. I'ins- 
fjucuon de branchement prece- 
dee de la lettre "L". specitie un 
branchement LONG et la valeur 
a rajouter au PC dort etre de 16 
bits; done codee sur "2 octets" 
et signee par loetet de potds 
tort (vous savez. celui de gau- 
che). Ainsi. on peul avancer 
dans la memoire dun maximum 
de 32767 octets ou reculer de 
32768 

- Done, contrairemenl a ce que 
vous disiez. on ne peut acceder 
a loule la memoire. 
Mais si. admeftons que vous de- 
siriez effectuer un branchement 
negalif inferieur a -32768 octets. 
Un branchemeni positrt peut etre 
equivalent de la fagon suivanle : 
monte [usqu'en FFFF (65535) 
on retombe (bing !) a et on 
"rernonte" la memoire, jusqu'a 
ladresse voulue. De la sorte, un 
branchement posrW suffisant, 
rem place un branchement nega- 
lif impossible et mversement. 
Comme un exemple est toujours 
plus explicite qu'une lonne de 
charabia. nous avons pense a 



un pent exemple evtoemment 
Ires decompose. Void en bref. 
I'algorithme pas possible qui va 
permettre de vous familiarise* 
avec les branche men Is expli- 
ques plus haul Noire pro- 
gramme commence par tester le 
clavier el effectue une suite de 
comparaison s en Ire des valeurs 
delerminees et la valeur ASCII 
dune louche eventuellement 
tapee. Le resultat de ces cogita- 
tions nous vaut I'aflichage de la 
categorie de la louche en ques- 
tion : majuscule, minuscule, 
conciliation etc... Pour cela. on 
utilise deux roulines systeme : 

- GETCS en S E806. scrule le 
clavier el place dans le registre 
B le code ASCII dune louche 
enfoncee Si aucune louche 
n'esl enfoncee. B contjent 0. 

- PUTC$ en $ E803 deja em- 
ployee, aftiche a lecran le ca- 
ractere donl le code ASCII est 
dans B. 

A noler que nous utilisons en 
debut de programme, la pseudo 
instruction EQU qui assign,- une 
tttquette a chacune de ces rou- 
tines. De plus, la routine GETCS 
se trouvant a plus de 127 octets 
de i instruction de branchement. 
nous n' avons pas hesite a effec- 
tuer un branchement long 
(LBSfl) a celled pour iustilier 
notre propos (nous aurions pu 
uliliser un JSR >S E806). Pour 
le reste. di verses comparisons 
branchent ou ne branchent pas 
aux sous -routines d attic hage 
(PRINT1. PRINT2 etc..) faciles 
a comprendre. Les differents 
messages sont slockes dans 
des lables el X contient 
ladresse du debut de la table 
concemee. II sutfit d'afTicher le 
con ten u de ladresse point ee par 
X. qui est increments jusqu a la 
fin du message (comparaison 
avec 20. code Tiexa de 32 pour 
espace) et on recommence... 
Question : savez-vous pourquoi 
le message "inexistant" ne s'affi- 
che jamais ?.. 

Les testeurs fous habitueis plus 
Nicolas BOURDIN le briilant 
petit nouveau. 
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L'ASSEMBLEUR PRATIQUE 
Langage machine... Sur ZX81 



Nous nous sommes deja servi 
de la pile dans le cours prece- 
dent mais nous n' avons fart 
qu'illustrer le principe de son 
fonctionnement sans vraiment 
a border la complexite possible 
de sa mise en oeuvre. Notre 
programme ne possedait en tout 
et pour loul qu'un PUSH et co- 
roll airemenl son POP. Autanl 
dire que nous n avons empties 
puis depiles que deux malheu- 
reux octets, initiation oblige I 
Est-ce a dire que je vous pro- 
pose aujourd'hui un casse-tele a 
base de PUSH el de POP' 
L'inextricabte enchevetrement 
des differents niveaux de fonc- 
tionnement de la pile ou s ega- 
rerait le peu de raison qui vous 
resle encore a inveslir dans la 
conquete du langage symbol i- 
que d'assemblage Vous I'avez 
echappe belle : non ! Et si la 
tete vous toumart ce ne serait 
que la consequence natureile de 
l execution de noire programme 
d'aujourd'hui : la rotation de 
limage de voire ZX. Ce projet 
ambrtieui peut se concevoir de 
deux f aeons drfferenles seton 
voire sensibilite person nelle 
Certains -tres techniques- le pre- 
senleron! comme un programme 
simulant le dereglement de la 
stability horizon lale d'un lelevi- 
seur. land is que d'autres. plus 
optim isles et esthetes dans 
I'ame y venont un moyen sup- 
piementaire d'attirer sur leur 
ecran cathodique toutes les at- 
tentions. Ouoiqu'il en soil I'algo- 
rithme et te programme restenl 
les memos. Nous allons aussi, a 
cette occasion, tenter de jongler 
un peu plus habile men t avec la 
pile, d'empiler el de oepiler a 
bon escient et sur une "hauteur" 
plus consequents. Ah i vrvre 
dangereusement . . . 

Vous avez lous en memoire la 
structure Ires simple du fichier 
daftichage du ZX81; la succes- 
sion lineane. en memoire, des 
octets qui le const it ue ainsi que 
les caracteres codes 118 qui ou- 
vrent le fichier et terminent cha- 
cune de ses 24 lignes. La rota- 
tion de I'image s'apparente a un 
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travail que nous avons deja rea- 
lise ; le scrolling. II s'agrl en (art 
d'un scrolling dans lequel on re- 
cupere a chaque tour la colon ne 
qui sort de I' ecran pour la re- 
conslituer de lautre cdte. Si par 
exemple je decide de (aire lour- 
ner mon image de gauche a 
droite, son premier decalage 
vers la droite provoquera la sor- 
tie du contenu de la colonne 31 
et sa reduplication immediate 
sur la cotonne 0. Cette meme 
operation renouvelee trenie- 
deux fois donnera I'impression 
dune rotation complete de 
I'image . 

Comme toujours en maliere de 
programmalion. nombreux sont 
les chemins qui permettenl d'ar- 
nver au meme losullal Celui 
que je vous propose d'emprun- 
ler ici permel peut-etre plus 
qu'un autre de rendre Iran spa- 
rente la demarche logique et la 
structure du programme. 
Notre rotation dimage se 



composera simplemenl des 24 
rotations successives de to u les 
les lignes d 'ecran. Le pro- 
gramme s'artvcule autour d'un 
module de decalage dune case 
vers la droite avec duplication 
de la demiere case a droite 
dans la premiere case a gau- 
che. Le reste est constilue de 
differents compteurs (lignes, co- 
tonnes, nombre de decalages de 
I'image) pour lesquels la pile 
nous sera dun precieux se- 
cours. 

Le programme se presente done 
de la I a con suivante : 



Vous serez peui-etre surpris de 
constater. des le debut du pro- 
gramme, au niveau des initiali- 
sations, la presence d'instruc- 
tions d'empilage PUSH. Non 
pas que nos regi sires soient 
deja encombres par I execution 
d une tache. mais la sauvegarde 
immediate des valeurs de depart 
des compteurs donne a ces re- 
gistres la disponibilrte dont nous 
aurons besoin immediate merit 
apres C'est bien le moment de 
sauvegarde r ces valeurs dans la 
pile puisque nous n' aurons a 
travailler sur el les qu'une fois le 
programme execute dans sa 
quasi- total rte. Ceci est tout a fart 
evident pour la decre menial ion 
du compteur de decalage global 
de I'image qui miervieat a lex- 
treme fin du programme, apres 
le, module de temporisation 
(POP DE; DEC E) 
Pour eviter de se per d re dans 
lutilisation des differents ni- 
veaux de la pile, on peut agir 
avec elle suivanf une slrategie 
analogue a celle des boucles 
imbriquees du Basic : les pre- 
miers PUSH sont a mettre en 
rapport avec i execution dun tra- 
vail qui englobera les suivants. 
et ainsi de suite ... 

Si nous reprenons ce mode de 
representation pour notre pro- 
gramme nous ob tenons le 
schema suivant : 



On votl ainsi clairemenl 
comment se combtnenl sans 
jamais s'enchevetrer les diffe- 
rents niveaux de la pile. Les ins- 
tructions POP precedees de "' " 
sont signalees parce que carac- 
teristiques de la strategie a mel- 
tre en oeuvre sur les structures 
LIFO (dernier en Ire. premier 
sorti). Ces deux * POP n'ont 
d'autre utilite que de taire pom- 
ler SP sur le niveau de pile qui 
nous interesse a ce moment 
precis de I 'execution du pro- 
gramme. Aulremenl dit ' POP 
HL et " POP DE utillsent respec- 
tivemenl les registre s HL et DE 
comme de simp;ss exutoires ou 
les valeurs deposees ne sont 
d'aucune utilite. La premiere (' 
POP HL) permet a linslruction 
suivante POP DE de ranger 
dans DE la valeur du compteur 
image que Ion doil decremen- 
ter; la seconde (" POP DE) re- 
don ne a la pile le niveau qui 
etait ie sien avanl que nous 
layons utilise. En somme la phi- 
losophie de la pile pourrail se 
resume r dans cet axiome uni- 
versellement connu ; "priere de 
laisser ces lieux dans I'elal ou 
vous les avez trouve en en- 
trant". 
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Je suppose qu avec les connais- 
sances deja acquises le reste 
du programme n'esl pas Irop dif- 
ficile a digerer Voici quand 
meme pour les plus const i pes la 
descripiion suecinte du fonction- 
nement dynamique du pro- 
gramme. II n'y aura plus ensuile 
qu'a iirer la chasse. . 
Apres les ind is pen sables initiali- 
sations on eftectue le decalage 
success if des 24 lignes Pour 
cela on sauvegarde provisoire- 
ment dans D loetet qui sera oc- 
cuppe par A ( LD (HL) A ) puis 
A prend la valeur de D avant 
que ceiui-ci ne soit charge avec 
le contenu de I octet suivant. 
Ainsi de suite iusqu a la demiere 
case de la ligne oU la restau ra- 
tion de I'adresse du debut de 
ligne (POP HL) permet le char- 
gemenl de la premiere case par 
le contenu de cette demiere 
L'addilion du facteur 33 permel 
de pointer sur le debut de la 
ligne suivante qu'on sauvegarde 
a nouveau comme reference de 
debut de ligne. La repetition de 
cette operation sur les 24 lignes 
abouttt a la rotation globale de 
I'image dune case vers la 
drone La temporisation obtenue 
grace a deux boucles imbri- 
quees est facilement reglable. 
Elle permel aux curieux de dis- 
sequer le lonctionnemenl du 
programme et aux plus presses 
de s'etourdir la vue Tournez 
manege I 

Bernard Guyot 




'la page pedagogique 



la page pedago~ 






1M0F 










□ Ttwciie Iieuio ATAfliAfiirST 




Q 61 NUCLEAfl BOM6ER [Ct MW <D0 .... . 


195 F 


□ BOMBER ATTACK iC) POui 600 








D FOREST FIRE IC] POu' MO 




a GALAXY (Ci (xw «00 








O MIDWAY |C)POUf«00 .., 




D MIDWAY CAMPAIONIUpow MO .... 








O RINGS OF THE EMPIRE rC> pour «00 .. . 








□ ROLLER BALL |Q DOV 600 




SHOOTOUT AT IMF GALAXY IC] BOW 000 




□ SPACE TRAP (CI 00" 000 








□ TANKTIKSlCIPOU'MO 


mof 


D VOYAGER (CI POV 000 


MOF 


□ Unit* onlwM COMMODORE M «l PAL 


MMF 










O CENTIPE0E |KJ 


130 F 


O CYBOTRON (CI 




o OIG DUG (K) . 




FLIGHT PA TWli'.Cl 




□ GALAXIAN (Kl 




Q GATEWAY TO APShAI ,«■ 




DGYFtOPOOlCI . 




O HEXPERT (C) . 






«SF 


□ MOON BUGGY |CI 




O MOON PATROL l«J 








o save new Yonxmi 


590F 



SNAKE PIT (CI to F 

□ SUPER TANK (CI «F 

a ZODIAC (C| . HfJF 

philips mmmmmmmmmmmmmmmmmm 

Q Unil* canni* PHILIPS V6S0QG 1790 F 

Sanyo mmmmmmmmmtmmmmmtmm 

OUim»<w-Jr»ta SANYO PhCIOMSXM" ?*MF 

□ C*B"« po-.ii OR ?Q2 OOF 
DkUgnW SANYO 0«»3 . 190 F 

THOMSON rlMMOMBBMHi 

O I mpnmsnn GEMINI 101 JOSOF 

□ CALCUL MENTAL (CI POU TO? MO* 'X F 
OCALCULATOBlQpowIO' 95 F 
O INITIATION AU CALCUL <C1 pou. TOT . SSF 
O OPERATION 1 (C| pou' TO' 9S F 
a PREMIER PAS EN BAS'C vw < Id pov- MOO •« F 



IL i.C] W 






-6Cf 



□ BUOGET FAMILIAL (FOB) <C> POui 'Of MOi 

□ coloric ici Dour to' vy, 

FLIPPER (C) pou. MOi IMF 

□ KIM IC) pour TO'-MOi CO F 

□ LOGICO0 |M) pou. to: 

O METEO 7 (C) POU< TO' UOS. •&! F 

D MURFUP IC] BOu> TO' 60 F 

□ OUATRE JEUXCACTIONSUnTO'lClpov TO' 90 F 

□ ROGER ET PAULO (CI DOW IOI «*OS 100 F 
DSCRONTCH(C)pauiTor-M06 130 F 
O SUPER TAOUIN (CI pour 1 0' »5 F 
O SYMPUS IC) pou. TOf M04 60 F 
Q THOUPUZZ(C|poufTOr MO* (OF 
O TROFF(C1pwTOT-HOS IMF 
(CI CwwlE-(K) Cvrouch*. [M| INtH 



Bon a dteoupw at a renvoyer a Article* h; J°^ *-'£TE~ 

LOGIC STORE-39, rue da Lancry T5010 Paria g a g««ill 

Je commande A Logic Store I es articles ci -dessus 
(mettie la quantite voulue dans les cases choisies) 

Total de ma commande : F 

Regie men t D A partir de 100 F : par cheque joint (expedition franco). D Contre 
remboursement (-f- Irais tfenvoi). 

Worn : j 





d'AfHAttad 



devant le fabuleux succes d'AMSTRAD, nouveau 
standard en micro, GENERAL baisse les prix ! 



10, bd de Strasbourg 

75010 Paris 

Tel. 206.50.50 



<^7 utilitaires pour I'AMSTRAD , 

— - — — ; Bflwwejt 

mm 2SSK£sa£SSSS i 



irwiBenaTsmpw)- 



: wnaBiiotrorrEPti 



23 accessoires pour I'Amstrad 

ICfcHHHrtAMWOVw-* :\IF amBWUHW* *■' 

imwcw wonre CF puKoiaiii-aaai 

in«at*gi*cn»a> 9F rtBbBvMStdnipoai ihf 

i pidcmvmipxmdi »f nv^tin^tm iirf 



— 22 livres sur I'AMSTRAD 



i 




j s , scg—- 



< n»iiw>iiK«.- 



i.mlCf.W 125. 



• esss 



**■& a^ Bk ■ ^™ *^ Jt, ■ caste Iss prlx sur AMSTRAD 
UBnCKAL otour I'unlte dlsquette DD1 

CPC 464 monochrome .._ 2690 F CPC 664 couleur 5290 F 

CPC 464 couleur 3990F Unite disquetteDD, 1995F 

CPC 664 monochrome 3790 F o*ai mthem «c icani » *m r- "■■m 



t«s «www la* sonrt (*^wn*^ o»t< soptp^ 

CPC6128rr<r*rerfome|12eK) __ *490 F 

CPC 6129 couleur (12SQ 5990F 

tojveleifirYifrHnlEL*lP?000 2290F 

rsh? 590 f camtowctocpaioa— 1995 F 



GENERAL t 



116 logiciels de jeu pour I'Amstrad 



RccaawiM bfi 



tb(iwj(O0«wiu_ af n 



n FQM^QIBEiTGMiF ■ 






COMPLEMENTS POUR 0R1C ET COMMODORE 

»Mj*s««iDaaEimMuBac*TiiKhc«:i mtF 

W«iMiFOJHC0«M»0H!S< 8KF 

kitG»pj()FM]wCASsnTES]i30FO*CLii*rxoFe64 asF 

i«Nnrjnae«ssCTTK[A*SAYFOJtLWC»ryrjs w) 

HjNrrBjnycto^focsnHiicM _ 



IOITBjnCLljLBCr1HirrPMFei!EL 

l«n»JN<TESBK0SrV.17inKSFEOM.W;XET« .. 



Apple* et compatibles 

ITC ■ Gvrf valable i la data do psubon de I'aooonco - oflro tanrtee am stocKs dtsponbl 



APPLE II C- 

UMTiCE>iTIW£l2»i«rt| =CMF 



eASCucfloscFT 



S*C0€TFWiSPORI 



UMTECSmALE t UOMTHW 

tSOUHGOFT I7M«I 

UCF0USK 



COPYIUICWCTrjOLSI „ S»( 

L0GKIELS POUR II C 

TFW1BENT CE IEXTE 

■ TA3LHJRJANE 1SS0F 

T(WIEUENT0£IEXTI 

VBSONCALTUlBIH 

.&WPHCWE ISMF 

PFSGESTIOHETRCHES— 1BXF 



APPLE II E' 

IWTECtrVTRALEMKwft. 6S» F 

HCMGun + wessons isxf 

LECTFUB DGOUeTTES 1 CONTFO- 

IJURFflOOOSWnpj* 

KJTOtUnNTAGE 

POUR DUO DWE 

fXOMK.CONTnOLEUH 

PRODOSMnea* 

WPSOMNTE MAGEVWIErT Q1SF 

ht iiioEWFrrsf- 

POURArTLEIF 



JOYSTCK POUP APP1F •! H a 
swot * 2 una pa. wfHrc 

BQTtErWIGEMfJlTFOUR 

tOrJBOUETTESJPW 

BOrTEFLASTCUEIOOGQ _ 
BOTTE POSTE I CCOUFTES - - 
BCITEFWIGEMEKI I0ODSQ. 



COMPATIBLES POUR 



_^ 



OflTEJCCaCNWfE 



CLAveiUULTITEat APPLE 




SOlouTJiBsHm/t'«lC 








akiosmr 




CAP.TE DE PFOGFW*UTKW 




2llM75M7MpM«J«llt 




CJVTTEP0UR2CISKDPWE 








»"«« 




OWTEUuaCAL£l*«*.. 


ISIF 








ME 


CARTE 6522 pMl- DC 


3K.F 


riOTFOVfl 


Mf 


rAHTF^PtTCM 


MF 


WMENIATXWIEBI- 




nmaiup 




OJllED'UM!EC£NTFWi«0?- 


2tO>64KDEPAMan(IM 




NTEFtf ACE GflAPPLETt . 


WSF 


rjUTTFrlllFFfR 


MSI 










pumimrra 


•BF 


VENTlATEUUfXrEflNE 




POUREMIt 


Mil 


DHNE DrSTAH COMPATtAi 




P0Ufll-«K 








poiia^ 




BASE UOMTEUfi OTSiUoW 


MF 


UOOEumtanor.SS232C 


1296F 


UEUBIEWCJW 


rt5F 


SJBAM MAGE tVflfTEB 


35 F 


la^CmOCESSEURllW 


. «F 



->^. 



BOfl DC YCHTC PAR CORRWPOnDflnCC 

k retoumer A GENERAL, 10, bd do Straobourg - 75010 PARIS 



Je, soussigne, M _ 
Adresse 



commande le materiel survant . 



Je chose de vous regler par D cheque bancaire ou D CCP 

pour un prix de * 90 F transport) = 



HIPPO JOYST 

C'est j a porta is. c'est un des meilteurs et des plus 
costauds que I'on connaft : trots boutons de tir, 
une bonne prise en mains et quatre ventouses 
pour le colter definitivement sur la table de la 
salle a manger (super pratique pour les repas !). 
Prise standard pour Amstrad, Atari, Commodore 
64, MSX, Vic 20. Compatible avec les interfaces 
d'Oric et de Spectrum. Pour Apple, Thomson et 
Texas, tintin : ca ne marche pas ou alors il fau- 
dra bidouiller ! 
Ah, au fait, c'est 120 balles... 
C'est bon, c'est pas trop cher ? Envoyez vos 
sous apres avoir rempli le bon de commande ci- 
joint. Le ministre du commerce exte'rieur du 
Japon vous remercie bien bas. 




S- 



___^W*. 



^ 



Bon de commande a decouper et a renvoyer a 

SHIFT EDITIONS, 160, rue Legendre 

75017 PARIS. 

Nom 



PU=120F-X-= __F 

fra/s d'envoi = +15 F 

cheque joint : TOTAL — __ F 



Vous detestez voire libra ire ? 
Bravo > SALUT LA PROMO est 
laite pour vous. Chaque se- 
mame les plus malms dei 
vous pourron! profiler d une offre 
special e mais aussi nous 
commander lous les albums de 
bandes dessmees de leur choix. 
Comment (aire ? Prenez les prix 
de la lisle ci-contre, ajoutez 6 
francs de port par album et ren- 
voyez-nous le bulletin jaune 
avec voire paiement. Attention, 
a partir de 4 albums, le port est 
gratuil. 

PRIX 
35,00 

30.00 
38,00 
36.00 
64.00 
64.00 
45.00 
69,00 



CE QUI EST EN HAUT 
CHEZ LUCIEN 
CLARKE ET KUBRICK 
DENT DU LOUP 
DESSOUS DE LA VILLE 
OESTIN FARCEUR 
DOCTEUR VENTOUSE 
FOLIES ORD1NAIRES 



Cette semaine, la promotion est compliquee. Mal-compre- 
nanis. ace roc hez -vous ! 

Ca conceme les Freak Brothers de Shelton. II existe, comme 
vous le savez un paquet d'albums : 7 tomes des Freak Bro- 
thers, 3 tomes du chat de Fat Freddie et un album de Super- 
phacochere. Les prix sont de 39 francs pour tous les albums 
sauf pour les tomes 6 et 7 des Freak Brothers qui sont a 44 
balles et le Phacochere qui est a 46 trancs. 
La promo ? Pour I achat d'un album, vous avez droit a 4 au- 
tocollants. Pour 2 albums, quatre badges. Pour 3 albums, 4 
badges + 4 autocollants. Pour 4 albums, un cinquieme gra- 
tuit. Pour 8 albums, 2 albums gratuits et, attention, pour la 
serle des 11 albums, vous recuperez un album "tirage de 
tete", tome 5, grand luxe, numerate, toile, signe par I'auteur 
et, en prime, le jeu de 1'oie "La descente de flic" de Shelton, 
le tout gratos alors que ca coute 390 balles partout. Le port 
est a I'oeil a partir de 4 albums, sinon vous ajoutez 6 balles 
par album a votre reglement. 



GLAMOUR LIBERATORE 215,00 Bon de commande . 



GUERRES FROIDES 

HANS 

HISTOIRES A LA CON 

J. FOCUS TEHERAN 

JOHNNY FOCUS 

KAN ET SOUEN 

LA TERRE CREUSE 

LOTUS DE SANG 

LOVE TO TEN 

LUC LEROI REMONTE 

NATHALIE 

NOCES DE BRUME 

NOUVELLES DU FRONT 

OPERA NOIR 

PETIT PEINTRE 

REGLEMENT DE CONTES 34,00 

RETOURNER A PECS 33,50 

SANG D'ARMENIE 

SERRE-MOI FORT 

SUPER PHACOCHERE 

TOUT DANS LA TETE 

TRAGIOUES DESTINS 



49,00 
33,50 

46,00 
46.00 
69,00 
39,00 
60,00 
33.00 
95.00 
40,00 
40,00 
38,50 
46,00 
39.00 
46,00 



56.00 
66,00 
46,00 

55.00 
49,00 



□ Envoyez-moi une des promos dont au sujet duquel vous par- 
lez la-dessus. Je vous ecris la-dessous ce que je veux. N'oubliez 
pas mes cadeaux ou je casse tout 



□ Je voodrais un des albums de la liste ci-contre. J'envoie le We 
correspondant plus 6 francs, mais c'est du vol. 

□ Vous m'envoyez voire catalogue ou je porte plainte pour de- 
tou moment de mineure. 






HEBDOGICIEL 160, 


rue Legendre 75017 PARIS 








VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIAL DE 420 FRANCS POUR 52 NUMEROS AU LIEU 


DE 


52x10 520 FRANCS. ABONNEMENT POUR 6 MOIS 


220 FRANCS. Poor I'Aranger 


+ 80 F. 


pour 1 AN 










+ 40F. 


pour 6 MOIS. 




NOM: 




MATERIEL UTILISE: 








PREHOM: 




CONSOLE: 








ADRESSE: 




PERIPHERIQUES : 








BUREAU DtSTRBUTEUR: 




REGLEMENT JOINT : CHEQUE 


DCCP 





DEUX SUPER-CONCOURS PERMANENTS 

20 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE pour 2 
personnes en CALIFORNIE au mellleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien da bien original dans 
cette formule, pourtant nous 
essayons de talre queique 
chose de different : nous or- 
gan Isons un concours perma- 
nent tous les mois et tous les 
trimestres I Et avec des prix 
dlgnes des programmes que 
vous allez nous envoyer I 
De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes 
sur la grille recapitulative 
mensuelle. 

Pas de Jury, pas de decision 
arbltraire, HEBDOGICIEL n'in- 
tervenant que dans le choix 
des programmes qui devront 
etre ORIGtNAUX et FRAN- 
CE AIS. St votre programme 
n'est pas tout a fait au point, 
un de nos speciallstes vous 
dlra comment I ameliorer pour 
nous le proposer a no uvea u. 
Pour participer, II vous suffit 
de nous envoyer vos pro- 
grammes accompagnes du 
bon de participation ainsi que 
de toutes les explications ne- 



cessaires a ('utilisation de ce 

programme. 
Bonne chance ! 
Reglement : 

ART.1 : HEBDOGICIEL organise 
de facon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur pro- 
gramme du mois et du trimestre. 
ART. 2 : Ce concours esl ouvert 
a tout auteur de logiciel quel 
que so it le materiel sur lequel il 
est realise. L' envoi dun logiciel 
en cassette ou disquette accom- 
pagne d'un bon de participation 
decoupe dans HEBDOGICIEL 
constitue lacte de candidature. 
ART.3 : La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selection ner sur la base de la 
qualite el de J'originalite les logi- 
ciels qui sont publies dans te 
journal. 

ART. 4 : Ce sonl les lecteurs qui, 
par leur vote, determinent les 
meifteurs logiciels mensuel et tri- 
meslriels. 

ART. 5 : Le prix alloue pour le 
concours mensuel sera remis au 



BON DE PARTICIPATION 



Nom 

Prenom 

Age Profession 

Adresse 

N telephone 

Nom du programme 

Nom du materiel utilise 

declare etre I'auteur de ce programme qui n'est Fli une imitation ni une 
copie dun programme exislant Ce programme reste ma propnete et 
j autonse HEBDOGICIEL a !e publier La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 



Le programme doit etre expedie sur support magnetique (casselle ou 
disquette) accompagne dun descnptif detaille du materiel utilise, 
d une notice d'utilisation du programme Les supports des program- 
mes publies sont conserves, n'oubliez done pas d en faire une copie 



ture du concours mensuel. 
ART.6 : Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la 
cloture du concours trimestriel. 
ART.7 : Le present reglement a 
ete depose chez Mailre Jauna- 
tre, 1 rue des Halles. 75001 
Paris. 

ART.fl : HEBDOGICIEL se re- 
serve le droit d'interrompre a 
tout moment le presenl 
concours en avisant les lecteurs 
un mois avant. 

ART. 9 : La participation au 
concours entraine I 'acceptation 
par les concurrents du present 
reglement 



Sera declare gagnant le pro- 
gramme qui aura obtenu le 
plus fort pourcentage de vote 
par rapport a la totalite des 
programmes recus pour un 
in em e ordinateur. 
Ainsi, pas de lavoritisme pour 
les ordinateurs plus purssants 
ou tres diffuses. 

pfr* 



1 # 









N°90 


N" 91 


N'92 


N'33 


APPUU 


SPRITES 


SPRITES 


FORTUNE 


FORTUNE 


CANON X-07 


CAMBRtOUUR 


AZATQTH 


SPACE RANK 


MMNlURf IAND 


CAS»FX702-* 


PIIOIE M CHARS 


SIMULATED 


GRAND PRIX 


NUMEROS 


COMMODORE 64 


UNE 


lEPlONGEin 


PEGAZ 


PEGAZ 


COMMODORE VK 20 


4 POURS 


4P0RIES 


TOD 


TOO 


HECTOR 


TRIATHION 


HECT0RF1NG 


HECTORPWG 


CDLORIUAGE 


one 


KITWRES 


KITWRES 


EWSWN 


EVASION 


EM. 100 


SIR LAHCEL01 


20MB* 


ZOMBIE 


ZOMBIE 


SPECTRUM 


GLEUfiK 


THE KNIGHT 


THE KNIGHT 


ClIP 


a Bi 


BATAILLHSPAllALL" 


TRAVERSES 


CHATEAU 


CARAC 


PC 1500 


SLALOM 


JEEP 


JEEP 


MARIAGES 


, 11 99/4A (basic simple) 


DOLPHIN 


cvaoPEs 


IS PACE 


FUPPV 


Tl 99/AA (basil eterxki) 
T07 


PARIS DAKAR 


PARIS DAKAR 


RIJQNiE MACON 


HAP7Cai 


WISSIDN U-72 


MISSION Li- 72 


MISSION U 72 


B0UFY 


AMSTRAD 


ROBOT 3D 


MINE HAN1EE 


MINEHANTEE 


MINE KAN1EE 


MSX 


CLEMEN! 


ME GAS PACE 


MEGASPACE 


U BER1 



AB IV I IDMFC I pas blen grave! T0LI,e,0ls - 'ou- ORIGINAUX du BULLETIN de 
HVH UnilliW ■ lours dans un souci d'equite. VOTE: pas de photocopies. 
_^^_^^^^^^^^^^^ nous n'accepterons que les cefa serait trop facile! 

Date limite d'envoi du bulletin de vote le Jeudi 22 
Aout a minuit. 



Abandonnez quelques inslants 
vos claviers et prenez votre 
plus belle plume pour remplir 
le bulletin de vote ci-contre. La 
redaction dhebdogiciel compte 
sur vous! 
La marche a suivre est simple: 

- Reperez dans la grille ci- 
contre le programme pour le- 
quel vous voulez voter ainsi 
que ceiui pour lequel vous 
votez en second (le second 
nous permettra de rendre plus 
equitable la tormule de choix 
du gagnant). 

- Reportez le nom de ces deux 
programmes sur le bulletin de 
vote. 

- Inscrivez vos nom et adresse 
sur le bulletin de vote. 

A renvoyer avant le 22 Aout 
1985 a minuit a Hebdogiciel. 
Concours mensuel, 160 rue Le- 
gendre 75017 PARIS. 
II esl foil probable que ceux 
qui participent au concours fe- 
ront voter leur papa, leur 
maman, leur cousine et la tota- 
lile de leurs amis et relations 
pour leur programme. Normal! 
Mais comme chacun deux 
fera la meme chose, cela n'est 



BULLETIN DE VOTE 



A renvoyer avant le 22 Aout a minuit a HEBDOGI- 
CIEL, Concours Mensuel, 160 rue Legendre 75017 
PARIS. 

JE VOTE POUR LE PROGRAMME SUIVANT: 
NOM DE LORDINATEUR: 

NOM DU PROGRAMME: 

JE CLASSE SECOND LE PROGRAMME SUI- 
VANT: 
NOM DE LORDINATEUR: 

NOM DU PROGRAMME: 

NOM ET PRENOM: 

ADRESSE: 



DE JUILLET A AOUT... ARRETEZ-VOUS CHEZ LES«FUTES»DE L'INFORMATIQUE ! 



99. me Balard - 7501 5 PARIS ■ rrTHT, ,9 - ,ue Sl Hono,i 

TIM1IW.1M0 | ™°K 7800CV ERSAILLES 

5, rue fles Filles flu Calvaire PARIS > 9 p, acB 0u p,^,,, ^ 

75003PARIS I — {/ ^TinnTmiK 



T«. 11)278.50.5? 







MlCHoDlFRJSlON Bordeaux N \jatoDtFPJ$K>H 



6, rue Phllippart - 33000 BORD EAUX [ anT] 
Ttl. (56)52.53.11 

BORDEAUX) 



43, boulevard Carnoi - 31000 TOULOUSE [nTHi 
T»I.(61)22.81.1T j-^^Jmuu. 

TOULOUSE) 



MlCKODffHJStON 



66, rue OMUu f Mfffl 

69100 VIUEUBBANNE ^\ 

TIL : (T)W2.2e.M. LYON ^> 



LASER 310 




Comprenant 

— Unite cenlrale 80 K RAM 

— Lecteur disquettes 5 1 /4 

— lmprimanle4coulBurs. 




AMSTRAD 664 




W 



f& 



Comprenant 

— Unite cenlrale 64 K RAM 

— Lecteur disquettes 

— Moniteurcouleur. 




LASER 3000X 



EXTRAORDINAIRE I 




Comprenant 

— Unite cenlrale avec clavier Azerty 
ou Owerty. 

— Lecteur tie disquettes 51/4. 

— Moniteur mono vert, antireffechis- 
sant, haute resolution . 




Das milllers de logiciels 
aux bouts das doigts. 



LASER SUPER PCXT 

ENAVANT-PREMIERE. 

LAMERVEIUE 
DES COMPATIBLES ! 




Comprenant 



Unite cenlrale avec 256 K, exten- 
sible a 640 K. + 2 tecteurs 360 K + 
carte couleur et mono +- carte serie 
+ carte imprimante Paicelle. 

— Clavier Azerty. 

— Moniteur monochrome, haute 
resolution . 



tOc-Ttede 10 disquettes 



La profassionnat das 

professionnels 



LES SUPER AFFAIRES POUR TOUS.. 



Cassette video VHS 180 M 


55 F 


Disquettes : 




5 1/4 SFSD . .. 


8F 


5 1/4 SFOD 


9F 


5 1/4 DFDD 


. 13 F 


Cassette Inlormatique 


5F 


Lecteur K 7 pour MO 5 


340 F 


Lecteur K 7 pour C64 


290 F 


Lecteur K 7 pour MSX 


390 F 


Lecteur K 7 pour Amstrad 




664 


390 F 


Moniteur mono 12'' haute 




resolution 


1.190 F 


Moniteur couleur 14" 


M90F 


Imprimante GP50 ...... 


1 290 F 


Imprimante 130cps 




80c/9x9 . 


2 890F 


Lecteur disquette pour 




Apple 2 E 


1 490 F 


Lecteur disquette pour 




Apple 2C 


1.690 F 


Lecteur disquette pour 




Commodore 64 


1 980 F 



TaffaiS" 

DU MOIS ! 

LECTEUR 01SQUETTE 

1 5 1/4 pout /*f 

\ App^ II C r—L&A 



APPLE7N0US I Nous 
sommes specialises... 
Carle mere 64 K sans ROM . 1.790 F 

Carle controleur (13/16) 368F 

Carte 16 K RAM 395 F 

Carte128KRAM 1.490F 

Carte 80 colon nes Auto switch 

CaneZ80 360 F 

LogicielCPM (en anglais) .. 1.290 F 

Carte RS232 395 F 

Carte super serie 790 F 

Carte imprimante Epson . 
Carte imprimante parallele 
Carte IEEE 488 avec cable 

Carte horioge 

Cade 6522 Via 

Carte de communicatiun . . 

Cade Grappler 

CadeGrappler/Bufter 16K 

Wilde cade 380 F 

Cade AD/DA 8 bit 1.190F 

Carte AD/DA 12 bit 

Cade6809 1.480F 

Cade 8088 

Cade integer 480 F 

Cade Fodh 460 F 

Cade musicale et speech 640 F 

Carte RVB 8 couleurs . .. 

Cade RVB 16 couleurs 990 F 

Cade Butler 32 K . 

Cade tssteur IC 990 F 

Cadeaccelerateurll 2.490 F 

Trackball 210 F 

Souris Graphic 580 F 

Crayon optique + disc 

+ man (anglais) 

etc. 



1 .840 F 



Plus de 1 000 articles en stock et plus de 2 000 references, a la demande avec banque de commutation inter magasin ! 

Bonnes vacances et programmez bien ! 



Prix efaO/is le 1007/95 -Tous ces prix sow JTC 



20, rue de Montreuil - 94300 VINCENNES - Tel. : 

du m.ird' su vendredi : 10 h 30 a 1 3 h - 1 5 h 6 1 9 h - le samedi : 




Commodore Plus/4 

deja integres dans I'ordinateur 

1) UN TRAITEMENT DE TEXTE PERFORMANT 

2) UNE GESTION DE FICHIERS SOUPLE ET EFFICACE 
3) UN TABLEUR SIMPLE ET COMPLET 

4) UN GRAPHIQUE HAUTE RESOLUTION COULEUR 

L'efficacite au bout du doigt 

Plus/4, le nouvel ordinateur personnel de COMMODORE. 
Dote d'une memoire puissante, 64 K RAM, et un BASIC 
etendu, il est vraiment extraordinaire. Son nom, Plus/4, 
idique la presence, a I'interieur de la machine, de 4 programmes 
integres de base. Ces programmes peuvent etre lies entre eux pour un 
usage plus facile, lis sont contenus dans la memoire ROM du Plus/4 et peuvent 
etre rappeles par simple pression d'une touche. 



■ LES PROMOTIONS COMMODORE DU MOIS D'AOUT - 



□ COMMODORE 64 PAL + lecteur de disquette 1541 + moniteurcouleur.. 



LOGICIELS CASSETTE 



D ghasbuster 
a on court tennis 

□ rock'n boll 

□ pitfall II ... 

□ web dimension 

□ pastfinder 

□ master of the lamps 

□ rock'n boll 

□ decathlon 

□ cassette 50 jeui 



LOGICIELS DISQUETTE 
U pole position 

□ za«xnn 

□ the hobbit 

□ raid over Mdscou 

□ solo flight 

□ batlle for normandy 

□ bruce lee 

□ beachhead 

□ F 1 5 strike eagle 

□ Congo bongo 



F 1 60 F 
F 160 F 
F 160 F 
F 160 F 



ACCESS01RES 

□ CARTE 8 ES 

Vous permel de commander moteur, relais, 

sonnerie. proiecteui 395 F 

D CARTE 8 E/A 

Pour transformer voire 

imturu 

□ syntheliseur vocal 
G joystick quicks hoi 2 

□ joystick lirvitt 

□ modem 



C 64 en centra I e de 
. .. 395 F 

495F 

... . 140F 

140 F 

1490 F 



□ commodore PLUS/4 1990 F 

Q lecteur disquette 1541 2950 F 

□ lecteur cassette 1531 390 F 

□ moniteur couleur/mono oscar 2995 F 

□ imprimante MPS 803 2450 F 

CARACTERISTIQUES TECHNIQUES 



BON DE COMMANDE : Cocher le(s) article(s) desire(s) - 
faites le total + frais de port (20 F pour achat inferieur a 

NOM_ 



Mode de paiement : □ cheque / D mandat / □ contre-remboursement Iprevoir 20 F de frais) - erwoyer le tout a : ORPIVIPUEL, 20. rue de Montreuil 94300 VINCENNES. 



1M*» Possibility de credit partiel ou total 4C4C4C 

_ CODE POSTAL- 



i-i:;-'nn ^ 



TOPKAPI 



Ou vous tenterez de hisser votre habilete au niveau de 
votre convoitise. 

Frederic CHATELAIS 



(<?H 'Br-CE <?»< M E s HECTOR 



U'Y 


e demploi; 










Lm 


egles sont incluses. 










> 


■ TOPI API 





■: 






4 


* * PAR*'* 












« FREDERIC CHAT 


LAIS 








6 


• SUR 

» HECTOR 2 HR 


+ 








8 


t BASIC III 
























mpescolorO, 1,7,4 












goto6400 














=50iXl»73 


Yl=139ifo 


I 




(T> 


-0:R1 (l)-OirtMt 






•III T1RAGE DES OBJETS I* 








4S 












tf. 


for I"40tol04stepl6i A 
forJ=180tolOOst*p-20 


■OiB-B-L 
A-A+l 








7C 


QBlA,B)-int (rndf 1,61 


:QB*<A,B 


-t:hr»<191 


OBIA.B) 


i ifaB<A.B>.4thenifCi:3thenCl»CU'l 


elsegoto70 




so 


ifOB(A.B>>landC2 5themfC2 3thenC2=C2*l 


■ 


segot 



TABLEAU / GBJETS 




irJ-lBOto: 
:<OB»ff 



ifQ-192thenX»I»4i Y«J-5iC=2igoto200 
ifD-193thenX*l+4:Y-J-3iC«ligoto200 
lf0=194thenX=I+3:V=J-5:C=3:goto200 
lfO-193thenX-I+3iY-J-3:C-2:gotn200 
ifO=196thenX=I*2:Y«J-5:C=2 

|C,D=3 

ACEMENT HORIZONTALE *«t 

5, 1.2t plot XI, ¥1-18,13, l,2l 
ndD>lthenD"D-l:Ql"-16:goti 
ndD'5thenD-D+l i Ql = 16: goto: 



290 X1=X1*01 
•0 
300 "I** DEF 

305 ' 

310 plot XI, 1 



8030 rj<it*16. 16 

5030 i 
B.O. 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

5040 d»t«255,0, 129,0. 189.0. 163,0, 163,0. 165.0. 165.0. 
165.0, 165,0. 189,0,129.0.235.0,0.0.0,0,0,0,0,0 

5050 d»t»2.0.7,O,7, 128, 13, 128, 127. 128,255, 128, 255. O 
,126.0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

5060 datal27, 192, 128,32, 128,32,255,224, 160. 160, 128, 
32, 1 28, 32. 138, 32, 132. 32. 138. 32, 128, 32. 12B, 32, 255. 224 
,0,0,0,0.0,0 

5070 d«t«65,0. 16,64.1,0,68.0.0.0,4.0.16,0.0,0.0.0,0 
.0,0,0,0,0,0,0,0,0,0,0.0,0 

5100 for I -lAOOOtolAOQO+32«»+ 1 1 readV; pol el . V: n*xt 

3110 pole24547,0:pote2454B. 160i return 



■IB, 15, 1,0 



5130 plot98,22l,43, 1 1 , 3i output "TOPK API 

3140 output "H", 157, 20O, 1 

5150 outpufV, 188,200,1 

3160 forI-40tol20stepl6Uin«I,l80. I . 80 

51 BO forI=lB0toB05tep-20iline40. I. 120. 

3200 J-6S:for[«46toll4»t»pl6ioutputchr 



,99,2 



01=0: if f ir«(0)=0thengoto2000ielsegol 

ACEMENT VERTICALS **« 

1, 18, 2! plot X 1*1 4, VI, 1, 19,2: pause. 1 
tandC" lthenC»C-li01«20:qoto350 
l«ndC'.SthenC«C*l!Ql--20igoto350 



0B«(C,D) : 



.fQ=29thengoto270 



enS=5i got o2 100 
»nS=3igoto2100 
ienS=2: goto2100 

2040 ifD«195thengo»ub6200igoto2000 

2030 S=0igoto2U0 

2100 forI«SU-ltoSl*5*3step7:plot 
0-1, lOOinextioutoutZl. 150,30.0iZl 



150 



:chr»<J) .1. 190,21 
5210 J-ltforI-175to95«tep-20ioutputJ,25, l,2tJ*J+l in 

nt 

5220 plot99.31.45. 1 1 , 3ioutput"SC0RE s ".100,30,1 
3230 Zl,Z2«0ioutputZI. 150,30,2 
5240 outputZ2, 180,30,1 
3250 goto30 

6000 '»«* CDNTROLE DE I IGNES «*1 
6010 ' 

6056 forl-ltoS 

6030 i+Rtll =5andA«-"H"th»ngoto6070 
6040 ifRl 1C1 -5»ndA«""V"tfiengoto6070 
6050 next 
6060 return 
6070 l'SmtKt 
60B0 ifS10S2thengoto6100 

6090 forI-ltolO!toneB0.100itonel68, ISOipf 
: hi pa I goto5120 
6100 lfSl>S2thenS-SHX-150:elseS-S2:X = 180 
6110 sound0,24B44:forJ-ltol0:forI=51toS5tep3 



6450 plot98, 124,45. 14.3 

TOPKAP I " , 99 . 120, 1 

6470 J«230:forl-0to201 

64B0 A=sin(I/20)t20!B-coa(J/20)*20 

6490 line I. 230. I , A* 180.2: 1 in»0, I.A+50.1,2 

6500 1 1 neJ .O.J, B+50. 2:11 ne23 1 . J . B* IBO , J . 2 

6510 J-J-lmext 

6520 forl-lto50 

6530 f lashl.ltf lash2, l:f l«h3, 1 

6540 n»Ktigo»ub5000 

6530 ■»*« REGLES DU JEU *l* 

6560 ' 

6570 Hipe 

6580 output"T0PKAPI".99,220. 1 

6590 printipnntiprlnt 

6600 print" SALUT LES KIDS ET LES KIDETTE8 ! 1 1 u 

6610 qnntiprlnt" BIEN SUR .VOUS CONNAISSEZ LE JEU 
DE L'EMISSION CELEBRE MICRO i ID DON! JE NE CITERAI P 
AS LE NQM : " 

6620 print" 1L VOUS 5UFFIT AVEC LA MANETTE DE JEU 

DE CHOISIR LE MEILLEUR TRESOR DE LA GRILLE SANS VOU 
S FAIRE AVOIR PAR VOTRE COFAIN . 

6630 pr-infC'EST A DIRE , ESSAVEZ D'AMASSER PLUSOUE 

VOTRE CONCURRENT . " 

6640 prinfVOICI LE BAREME I " ipl otO, 65. 255, 65. 3 

6650 output"DIAMANT , ',20,60,2:outputt:hr»<t92> ,80,( 
2:out_puf 5", 100,60, 1 

6660 output -RUBIS'' . 20, *0. 2i outputthr* I 193) , BO, 42, 
output"3", 100,40, 1 

6670 output "OR", 20. 20, 2t outputcnr» < 194} , BO. 18. 2: c 



iut"2 



too,: 



>t i 



6680 output'TAILLOUX", 120,60,: 
iO.O:output "O" , 200, 60. 1 
6690 output'TOFFRE", 120,40.2i< 
2ioutput •?", 200. 40, 1 
6700 A»=lnstr»(l) :wlpe:c 
6710 goto5120 



rutputi 
putchr»(195 



96), 



SUPER POKE 



Passionnes du genre, disputez avec passion des par- 
ties acharnees contre votre machine. 



ET 

LAURENT SUCC1 

PROPOSE NT 

SUPER POhE 

SUR HECTOR 2HR+ 



sp»edOtF'V=0iPM»O 
wipeiCOlur 0,1,6.7 
qosubSOOO" MODULE CARACTERES 
gosuO 1000 'MODULE EXPLICATION! 
gosublOO-MODULE JEU 1 




100 speedOicle 









:m*23< 


, I 70 . 3 




linolO 


170,3 




line 10 






pi at 11 






line 10, 


70.230, 


0,3 


line23i 


,10,3 




line 10, 


10,3 




line 10 


70.3 






69,219. 


S9.2 


1 i ne65 


165, 175 


165.3 


line 17; 


.75,3 




1 ine65 


75,3 




1 i ne65 


165,3 




plot 66 


164,1 09 


89,2 


plot 11' 


140.20, 
. 161,20 


40,1 
40, 1 



Pascal DUCEY 








2-.,, 


plot 110, 118.20.40, 1 




.■J'. 


plotl50. 140,20,40.1 




300 


Une70. 170,3 






line230,ZOO, 170,200,3 




320 


lifi»170. 170,3 






plotll.199.59,29,0 






plotl71, 199,59,29.0 




330 


linelO, 40, 100,40,3 




340 


UnelOO.10,3 




350 


line230,40.140.40,3 




360 


linel40,10,3 




365 


plotll. 39,69. 29,0 




367 


plotl41,39,B9,29,0 




370 


outpuf'SUPER POKE", 90, 224, 




380 


output" VOUS 




390 


□utpuf'POINTS", 102,204.0 
plot89,215.61,2,l 




410 


output "EST IMATION" , 90, 64,0 




420 


Output " VOUS 




421 


plot 185,140,40.40,3 






line204. 140.204, 100.0 






line IBS, 120,225,120,0 






outputchr»U92>, 191, 134, I 






outputehr* ( 193) , 21 1. 174. 1 




426 


outputchr*(194l, 191, 114,2 






outputchr* ( 1951 .211.114,0 




430 


outpufC",??,??^ 




440 


outout".'", 102, 140,0 




450 






460 


output"=", 142, 120.0 




470 


outpuf'ESSAIS". 13. 140,3 




475 


outputZ.25. 125.1 




477 


output "IIAX. 30". 15.107,3 



Cl:gDt 
138, CI 



P10I", 20,21 



HOI ",20, SO, 3 



if C(v,B)=l then gotoSlO 

C(V,B)-1 

if B = l then |- = 192:C1 = 1 toatoSSO 

■193tCl = l:goto5S0 

il94:Cl=0igoto580 
>195iCl=2 
3lot70, 140,20,40,3 

if V-ll then output , 'V",72, 138, CI : outpufV" .33, 
! output "V",72, 109, CI [Output "V",B3, 109.C1 : goto6 

:f V=10 then outputV, 64, 13B. CI : outputV, 71 , 109, 

>620 

■ f V=12 then output "D" , 72, 13Q, CI i outpufD" , =.., 

; out put "D", 72, 109, CI : output "D" , 83, 109,Cl:goto6 



if V=13 then output"R",72, 13B, CI : output "R" , B3 
:tiOutput"R",72, 109, CI i output "R", 83, 109,Cligoto 

outputV. 66. 138, CI t outputV, 77, 138, CI i outputV, 6 
Cl:outputV,77.109,Cl 
outputchr»(K),76, 124, CI 
ton«90. 100: tone 100, 90 



MODULE EXPLICATIONS 



490 if Q*l then pi ot220, 65,5.5. 2: pic 
osubSlO: X=3i Y=3:goto2000'LE JOUEUR 

500 tHot25.63,5,5,2:plot220,65,5.5, 1 
Y"3tgoto3000 - HECT0R JOUE 



997 


tttttttftttlltttttt* 


999 






wipe: col or 0, 7,2,3 


1010 




1020 


line230.1S0,3 


1030 




1040 




10S0 


brightl 



FICHIER EN B3X 



Mettez en fiches, ca fait chic. 



\ »f re HE 77P^'"S &* 



Michel BAILLY 



Mode d'emploi: permet de creet, modifier et sauvegarder sur K7 
voire propre fichier. Possibility de sauver el charger sur DISCII en 
modifiant les instructions de sauvegarde USR& BFD9 el de charge- 
ment USR& BFDC. 



1 VPQI EJ.FEB1. U7tPAPER:QlC l .S0lWJPEiCLEAR2OO00iDIMA1 
6«,C»,D*,E«.F*,G*,H*, I», J* (1501 :COLORO, 1.6,Z:N,Y,<, 
N, YY=OtNB=l 

2 OATAO.O, 0.0.0, 0,4,0,0 

3 RE5T0RE2: FOM =64257T064265l READVi VPOKEI . Vi NEXT 

4 DATACREER ou CONTINUER LE F ICHIER.CORRIGER UNE f 
CHE.TROUVER UNE FICHE. LISTER SUR ECRAN. LISTER SUR 1 
" IMANTE. SAUVER SUR 17. CHARGER DERU1S K7.EFFACER LE 



HECTOR 



if lAMAyMtfE 



/BoF! Of 7ZV/% ffitoti, . 

fwe HflNp, Avec wfcfioufi 





ICHIE 

5 'MENU 

6 WIPEUNt 1: BOX20, 220,220, 4: INI O: B0X22, 218, 21B, ( 
INI 1:6AR20.220, 192: BAR20.220, l*Ol tNKSi B0X22.21B, 



OUTRUT" M E I 



7 SPEC 1 AL : HOME i SCALE 1,2: PAPERS : PEN 

", 10, 1: STANDARD : PAPEROi PEN2 

S X-20:Y"ie^:RESTDRE4:F0RII-lT08!READN«( I [) 

9 FEN3:0UTPUTII,X,YiPEN2l OUTPUTN* ( 1 1 ) , X+19, V: Y-Y-2 

10 NEXT 

11 XX*«INI EY»t9?) : XX-ASC(XX«) 

12 IFXX-49 OR XX 57 THENG0T01 1 
IT- GOTO 14 

14 PEN2:XX-XX-4S 

15 ON XX GDT032, 167, 173, 124, 145, 16,24,244 

16 'SAVE 

17 1FIN=OTHENGOT05 

18 WIPE:CQLORO, 1,6,2 

19 INI i: 60X20,220,220,4) INKOi 60X22. 21B, 218,6: INK 
liBAR20,220, 192: BAR20.220, 190i INK3l B0X22, 21B, 218, 1 
94 

20 5PECIAL!H0ME:SCALE1,2jPAPER3jPEN1: OUTPUT" SAUVE 
GARDE SUR K 7 " , 4, 1 i F APEftl : FEN3: OUTPUT 1 "" , 24, 4t O 
UTPUT"S",24,6: SCALE 1, 1 : PAPERS: PEN?: OUTPUT "RETDUR AU 

MENU", 4, OB (OUTPUT "SAUVEGARDE", 4, 1 2: PEN2: STANDARD: HO 



21 SPEC I AL: HOME I SCALE 1, 1 : PAPEROi F'EN2: OUTFUT"*ppuy»; 
lur LECT+ECRIT",4, 16: PEN2: STANDARD: HOME 

22 VP0KE(.FEB1. 117I5CREEN30. 120, 180, 100: ZZ»- INKEY* (9 
9>iZZ-ASC(ZZ«l ■ IFZZ=83THEN G0T023: ELSE IFZZ-77THENG0T 
D5:ELSEG0T022 

23 SCREEN32.90, 180, B4: U5R&BFD6: GDT05 

24 'CHARGER. 

25 RUN26 

26 WIPEiCOLORO, 1,6,2 

27 INK I I BDX20, 220, 220,4i INKO: 60X22, 218, 21B.6I INK 
liBAR20,220, 192: BAR20.220. 190i INK3i BDX22, 218, 218, I 
94 

2B 5FECIALlH0ME:SCALEl,2:PAPER3tPENll OUTPUT" CHARG 
EMENT DEPUIS K7 " , 3, 1 1 PAPER 1 1 PEN3; OUTPUT "M", 24, 4i 

aUTF'UT"C".24,6: SCALE 1, 1 : PAPEROi PEN2: OUTPUT "RETDUR 
AU MENU",4,0Bi0UTPUT"CHARGEMENT",4. 12: PEN2: STANDARO: 
HOME 

29 SPECI ALt HOMEiSCALEl.il PAPEROi PEN2tOUTPUT"»ppuv*:: 
iur LECT" , 4,16i PEN2l STANDARDl HOME 

30 VP0KEI.FEB1, 1 17i SCREEN30, 120,1 BO, lOQl ZZ»-INKEY« (9 
91 iZZ-ASC(ZZ«) I IFZZ-67THEN GQT031 IEL5EIFZZ-77THENG0T 
Q5iELSEGOT030 

31 SCREEN32,90,lB0,84:L0ADiG0T05 

32 'JEU 

33 1FCH-1THENG0TD35 

34 IN-UCH-UGOT036 

35 NB-NB*! 

36 RE-0:RE5T0RE3B 

37 READA*,8«,C«,D«,E»,F«,G«,H«, It, J*i A* <N8> -A«: B» IN 
B)=B«:C*(NB)»C*:D«tN6>-D»:E*fNB)=E«:F»(NBI=F*iG»(NB) 



39 REST0RE3B 

40 F0RNC«OT09:READNG«<NCUNEXT 

41 DATANOM.PRENOM.Na DE RUE. ADRESSE. C. POSTAL, VILLE, 
TELEPHONE. INFO l.INFO 2, INFQ 3 

42 GOT054 

4T WIPE:Y=188:Ll=60lX=14:Xl-B5 

44 Y=188:L1=60:I=14 

45 MlPElINKll 60X28,228.208. WSiBIG: INK234: LITTLE: 
BOX 30. 226, 20b. 200: SPECIAL: HOME : FAPER3i RENO: OUTPUT "F I 
CHE No" . 7, LiPENl : OUTPUTNB, 17. 1 iPEN2: PAPERO: STANDARD 
: INI HB0XBO,2O0,B3, 10 

46 REST0RE4I:F0RN=0T09:READT»(N) :L1 (N) -LEN IT» (N) ) :L 
CN) »L1(N>*6 

47 CURS0R14.Y: INI 1: BOX 12, Y*3. X+L <N>* 



82 L2IN8)=LEN 1E» (NB) ) : L3 <N6I *>L2 (N6> *6 

B3 CURS0RX1*3, YiRECTIFY £«INB> 

84 IFLEN<E«(N6> ) L2IN8) THENGOT085; ELSE G0TDB6 

95 E«(NB>-E«: INI 0: BOXX I . Y*3, 220, Y-12i BIG: INK 126: 1 
TLEiBQXX],Y+3,Xl*L3(NB)*l4,Y-12: INKOi BOXX 1*2. Y*2, 1 
L3<NB)*12,Y-9tREN2iGOTOB2 

86 E«<NB)=LEFT»( E«INB)* £*.L2(NB>> 

87 Y-Y-14 

BB L2(NB)=LEN IF* (NB) > ;L3 (NB) -L2 (NB) »6 

B9 CURS0RX1+3, YiRECTIFY F»(NB) 

90 IFLENIF»(NB> ) L2(N6> THENG0TQ91 : ELSE C 



91 i 



XI, 



JIG; INI 



:)»10.1 



(NC ) 16: CURSORX 1 +3, Y 
3<NC>*12, Y-12i INKOi 
PEN2:PRINTN0*(NCi 



■L2(NB) 16 



H80XX1*2,Y*2,: 



50 FORNC-OT09 

51 L2(NC)=LEN<N0«(NC) : 
:BIG: INK 126:L I TTLEl BOX! 
BOXXl*2.V+2,] 

52 Y-V-14:NEXT 

53 RETURN 

54 G0SUB43iY=lBB:G0TD5B 

55 N3=0;Y=!8B:GOT058 

56 WIPEi Y«lBBiNB-N3:Ll«6< 

57 G0SUB43:Y=188 
SB L2(NB)-LEN (A»(NB))iL: 

59 CUR50RX1*3.Y: RECTIFY A»(NB> 

60 IFLEN1AKNB) ) L2INB) THEN GOTO6I1ELSE GOT062 

61 A»INB)=A«i INKO: BOX XI , Y*3. 220, Y-l 2: BIG: INK126;L 
TLE:BDXX1,Y*3,X1*L3(N6)*14, 
L3<N6)*12.Y-9:PEN2:G0T058 

62 A«(NB)=LEFT»UA«(NB)*AI 

63 Y-Y-14 

64 L2(NB)=LEN (B»<NB>)iL3i 

65 CURS0RX1*3,Y:RECTIFYB»<NB) 

66 IFLENtBKNB) ) :L2(NBI THEN G0T067iELSE GOT068 

67 B*(N6)-e«: INK0:BOXXl.Y-< 
TLE:BQXX1,Y»3,X1*L3(NB>»14, 
L3(NB>*12,Y-9iPEN2iGOT064 

6B B«<NB)-LEFTftl B* (NB> *B*, L2 (NB) ) 

69 Y-Y-14 

70 L2INBI-LEN (C« (NB) ) :L3<NBt -L2<NB) I 

71 CURSORXl*3.YtRECTIFY C»(NB) 

72 TFLENICi(fJB) J SL2INB1 IHtNbUIU/iit 

73 C«(NB)-C«( INK0:B0XXl,Y-3.220, Y-12l 
TLEi BOXX 1 , Y.3, X I *L3 ( NB) ♦ t< 
L3(NB)*I2, Y-9t PEN2lG0TQ70 

74 Ct(NB)-LEFT»( CS(NB)* 

75 Y-Y-14 

76 LZ(NB)-LEN (D» (NB) 1 1 L3 !NB> -L2(NB) *b 

77 CURSORXl*3, YiRECTIFY D*(NB) 

78 IFLEN(D«(NB) ) >L2(NB) THENG0T079t ELSE GOTOBO 

79 0»(NB)-D«t INKOiBOXXl,Y-< 
TLEiB0XXl,Y»3,Xl*-L3(NB)+14, 
L3CNB)*12,Y-9iPEN2iGOT076 

80 D»(NB)-LEFT»< D» INB) * I 



BIG: INI 



: INI 0:1 



TLE:B0XX1,Y*3,X1*L31NB)+14,V-12: INKOi BOX) 
L3(NBI*12,Y-9:PEN2iG0T0aB 
9r F«(NB)=LEFT*( FKNB1* F*,L2(N6)) 

93 Y-Y-14 

94 L21NB' =LEN (G« IN6I ) i L3 <NB) =L2 (NB) 16 

95 CUftS0RXl*3. YiRECTIFY G«<NB) 

96 IFLEN(G»(NB) ) L2INB) THENG0T097: ELSE G0T098 

97 G«(NBI-G»: IN)0: BOXX 1 , Y*3. 220, Y-12i BIG: INK 126: LIT 
TLE:B0XX1,Y»3,X1+L7-(NB)-14,Y-12: INKOi BOXX 1*2. Y*2. X 1* 
L3(NB)*12.Y-9:PEN2:GOT094 

98 G«(NB)>=LEFT*( G*(NB)+ G».L2(NB>) 

99 Y-Y-14 

100 L2<NB)=LEN <H» (NB) ) : L3 (NB) -L2 (NB) *6 

101 CURS0RX1+3.Y:RECTIFY H»(NB) 

102 IFLEN(H«INB>) 'L2(NB) THENG0T0103: ELSE GOT0104 

103 H«INB)=H»: INKOi BOXX l.Y+3. 220, Y- 12: BIGi INK126iLI 
TTLE:B0XX1, Y + 3.X1*L3(NB) + 14, Y-12t INKOi BOX X 1*2, Y+2, XI 
*L3(NB)*12,Y-9:PEN2:GOT0100EDIT9a 

104 H*(NB)=LEFT»( H*(NB)* H«,L2(NB)1 
103 Y-Y-14 

106 L2(NB)-LEN ( I» (NB) ) : L3 (NS) =L2 (NB) *6 

107 CURS0RX1*3.Y:RECTIFY I»(NB) 

10B IFLEN(I»(NB) ) ■■L2IN6) THENGOTO 109: ELSE GOT0110 

109 I»(NB)-I«: INKOi BOXX 1,Y*3, 220, Y-12iBlGi IN) 1261LI 
TTLE:60XX1,Y*3,X1*L3(N6)+14,Y-12: INKO: BOXX 1*2, Y*2, XI 
*L3(NB)*12.Y-9[PEN2:GOT0106 

110 I»(NB)-LEFT*( I*(NB)+ l»,L2(NB)) 

111 Y-Y-14 

112 L2(NB)=LEN ( J* (NB) ) I L3 (NB) =L2<NB) *6 

113 CURS0RX1*3. YiRECTIFY J»(NB) 

114 IFLEN(J»(NB> ) L21N6) THENGOT01 15: ELSE GDT01 16 

115 J»(NB)-J»1 INK0tBOXXl,Y+3,=2O,Y-l2l8IG: IN) 1261LI 
TTLEl BOXX 1, Y+3, XI *L3 (NB) *14, Y-12: INKO: BOXX 1*2, Y+2, X 1 
♦L3(NB)*12.Y-9:PEN2iG0T0112 

116 J»IN6)"LEFTI( J»(NB)+ J»,L2(NB>) 

117 "MODIFICATION DE FICHE 

MB INKU BOX2B,28,20B,6iBIG: INK234: LITTLE: BDX31.2 
4 . 206 , 81 SPEC I AL 1 HOME 1 PAPER3 : PENO : OUTPUT "F I CHE EXACTE 
0/N ""',6, 26: PEN2: STANDARD: PAPERO 

119 VPOKfi*FfiSl,ii7|AJt-iNKEY*[??>|Al-ASC(AI»)iIFAI= 

79THENG0TO1 20l ELSE1FA 1 -78THENG0TO55 : ELSEGOTO 1 1 9 

120 IFRE-1THEN50T05:ELSEG0T0121 

121 INK!: B0X2B,2B,208. 6:6IG: INK234i LITTLEl B0X31 , 2 
4, 206. 8t SPEC I ALt HOME 1 PAPER3: PENOi OUTPUT" AUTRE FICHE 
0/N 7", 7, 26lPEN2i STANDARD: PAPERO 

122 VP0KE(.FEB1, 1 17l AI»-INKEY» (99) : AI-ASC ( A I () ! IFAI- 
79THENGOT0 123i ELSE I FAI -7BTHENG0TD5I ELSEGOTO 1 22 

123 NB-NB+1:G0T036 

124 'LISTER SUR ECRAN 



2(NB)1 




gistWgE 



MODULE CAR AC TERES 



060 



til 



utpuf'BUPER POKE", 90,224, 3 
10BO outpuf'EXPLICAT IONS", 83,204, 7 
1090 penli*OT-I-lta6:printine)(t 

1100 prinfCE JEU ASSE2 SIMPLE CONSISTS A":print:p 
nnf'ESSAYER DE DEVINER LA CARTE QUI SUIT" : pn nt : pri 
nf'CELLE QUE VOUS V0YE2.POUR CELA"i print :pri nt" IL VO 
US SUFFIT DE DIRE OU'ELLE EST" : pn nt : pr lnt" INFERIEUR 
E OU SUPERIEURE SELON" : print : 0<"i nt "VOTRE FENSEE.lin* 

1101 gosub9000 •MODULE MUS10UE 

1102 OLitpul"TAPEZ UNE TDUCHE" , 60, 20,3 

1105 A*=in5tr«(l) 1 tone9o". 1 OOi tonelOO, 90i pi at 7, 178. 
240,1 78. 0: cursor 7, 170 

1110 prtnti print "POUR RENDRE CE JEU PLUS INTERESSA 
NT,"iprint:prmt"JE JOUE AVEC VOUS. LES REGLES SONT": 
printlpnnf'LES MEMES POUR NOUS DEUX . ATTENTION' •": pr 
int:print"SI VOUS VOUS TROMPEZ , VOTRE SCORE" iprmtipr 
inf'DlMINUE 

1120 outpuf'TAPE; UNE TOUCHE" , 60, 20. 3 

1130 A*-lnstr«(l) 1 ton»90, 100: tan* 1 00. 90 

1140 return 

2000 if Z»BO tfi»n goto7000 

2003 Bpeed4000: output "1 OU S ""'.20,30.3 

2005 pi atZ20. 65, 5.5. 2: plot 15. 65.5, 5, I: plot 146, 32.6 







ata68.238,254.254. 12' 


,56, 16,0 




16,56,0 







6300 □utDutclir»(Kl),X*10,Y-14,C2 

6310 if Q-I th«n if T-U than PV-PV* 1 000 190 sub 6500 1 
0«2:V-VliB=Bligoto3000ielsBifU-OthenO=2:V=Vl:B'-Bl:go 
to3000lBlSBPV-PV-I000ll* PVf-0th«nPV-0:9o5ub6500:0-2 
:V»Vl;B=8I:goto3000:elsego5ub6500iQ=2:V=Vl:B=Bl!goto 
3000 

6320 if 0-2 th«n if T-U then PM=PM* 1000: gosub6400: 
0=liV=VIiB-Bligoto2000talseifU=0 thonO- I t V=vi 1 B-BI i g 
oto2000:«laePM-PM-1000:ifPM<=0thBnPM=0igosub6400:Q=l 
: v=Vl : B-Bl : goto2000: el sego»uB6400i 0=1 1 v=Vl : B=Bl : getC 
2000 

6400 ploti78. 192.40,20.0:outputPM, 180, 190, lireturn 



>500 



= 1 lthei 



5010 f or I -65000t O65033 
5020 ro«dW:poKBl, Wines: 1 
5030 A-dS000iR1< 

5040 pol.e2454B,l 

5050 poVeiFFlO, 1 
6000 speed 1 000 1 VI -ir 



fl» 



dll*l»»hZifl» 

upeicolorO.' 



ightl 



poKe24547,R2 



iOIO 



CtVl, 



-C ( B . v 



6.025 


plot 


70, 


7J7, 


*7i 


20,0 




6027 


output Z, 




w. 






6030 


if 6 


-1 




Kl 


-192 


C2-ligoto6100 








hen 


1.1 




C2=l:goto6100 












-194 


C2-0:goto6100 


6060 


K1=195:C 


r=V 








6100 


if V 








liX- 




:goto 


i200 












6110 


if V 






II- 


-liX 


106lY-116:plo 


l:goto6200 












6120 


X.-14 




SBl 


l=i 


iplo 


X-2.Y+1.2.2, 1 


6200 


if V 


-1(J 








4,Y*2,20,40,3 




output VI 


X*5 




29, C* 


: goto6300 


6210 


if V 


'11 


then p 


lotxi 


4,Y*2.20, 40,3 



r..i^.;: 



1 A»=' 



i-"j" then A*-"I"il 
2060 toneSOO. 100tgoto2010 
2100 tone90, 100: tone 1 00, 90: c 
ll "0:yoto6000 
3000 if ;»50 then goto70Q0 
3003 apeed4000ioutput"l OU < 
-005 plotl5.65.5,5,2ipl nl rr' 



itputA«, 75, "■ >, : : Ipaei 



i.Y.C2:autput , 'V , '.X*l?,Y,C2ioutput"\'",S-6.'. - :".C2:l.. 
iut"V",X*17, Y-29.C2:gotot300 

i220 if '.'1-12 ther. pi otX»4, Y »2. 2'j, 4t.>. 3: output "D" , 
1 ,Y.C3ioutpufD",X*t.Y-2' s .C2:OLitpufD".X>l^.Y,C2; J 
>ut"D",X*17. Y*29.C2tgoto6300 

,230 if Vl»13 ther. pi otX*4, Y*2, 20, 40,3: ou'.,,..' 'I " . 
., Y.C2: output "R",X t6,Y-29, 22l output "R",X' !".»,( 2: j 
iut"R".X*l-.Y-29.C2:qoto6;0O 

.240 plotX*4.V-2.20,40.T:OutK.ut.'l. *, Y,C2soutputV] 
Y-29.C2: output'. 'l.X* I 1 , Y.C2i outpu-'.'J . > • 1 ; , '■ C9,C2 



70 IC 

7020 1 1 nelO. 230, 230, 230, 

7030 line230. 180,3 

7040 linel0.1B0,3 

7050 IinelO.230,3 

7060 plot 11, 229.219,49,2 

7065 output "SUPER POI E" , 90, 224, 3 

7070 output "RE9ULTAT " , 96, 204 , 3 

70B0 forI-ltDlO:pnnt:ne,i:t 

7090 if PV>PM then goto7120 

710O if PV.PH then goto7500 

7110 goto7700 

7120 prlnfBRAVO' VOTRE SCORE EST DE" : PV: pr 1 nt :pr \ 
r.f'ALORS QUE LE MIEN EST DE" 1 PM: print i pr 1 nt "C ESI TR 
E3 BIEN":pju=elO:goto8000 

7500 print "VOUS AVE: PERDU CAR" ipr inti pi lnt "MON SC 
nPF e<TT rF":PM:nrinc:prln*"aLDPS QUE LE i-OTPE est de 

" ; FVi pause 10: gotoBOoO 

7700 pnnf'NOS DEUX SCORES SONT ICLTiTIOUES" : pr int : 
prlnfLE MIEN EST DE";Fr:print:pr:nt"Lt VOTRE EST DE 

8000 plots. 1^6.230. 178.0 

8010 output "VOULEZ -VOUS REJOUEP "'",60,110,3 
8020 A»=instr* ( 1) : 1 1 A» = "0"or A» = "o"thengosub9000ig 
oto40:el seif A* = "N"or As = "n"e', setoneSOO, 50: gotoB02i")j th 
enoutput "AU REVOIR" . 95. BO, 1 igosubSOOo: wi pet bright lie 



9000 



sr d ?':'.« 



rl-lt 



1A,BiA-A*1,2jB-B*1. 

5: toneA,6:ne;. t: return 

9500 d»ta375. 21 . 25, 330. 23. 75. 290, 52.5, 245. 67. 5, 245 
. 101.25.220,37.5,245,67.5,290,52.5,375,42.5,7.75,21.2 
5, 330, 23. 73, 290, 52. 5. 290, 52. 5, 330, 47 . 5, 243, 67. 5, 375. 
42.5 • 



BOWLING 



Jeu realiste oil vous tenterez de tomber toutes les quil- 
les avec vos belles boules (...). 



10 • JEU du BOWLINE - Fait sur HECTOR HRX :Langaqa 
B7X : Auteur Gilbert LABAT : FE'.'RIER 1935 

30 WIPE:C0L0R4,7. 1,3 

40 INI 2sB0X58, 162, 172. 6B: INK 7: BOX 60, 160, 170, 70:P£ 
N 2:QUTF"JT" G . Labat " ,80. 140: CUTPUT"F-RESENTE" , 90. 90 
ST0NE171 ,300tT0NE139,2OOiT0NE124, 100: T0NE171 , 200: TON 
£143. 1 00: TONE [ 24. TOO: TONE 163, 700: TONE 124, 500: PAUSE 1 
: WIPE 

SO SPECIAL: SCALE 3. 4 j SCREEN 10. 120. 7, 3: PENT.: PR I NT "6 
■': :PEN2:PRINT"0";:PENl:F'RINT ,, W": : PEN 2: FRINT"L" I : PEN 
3s PRINT" I "s : PENls PRINT" N": : PEN3; PR I NT "G" 

60 TONE 203 . 700: TONE 1 55 . 200 : TONE 1 65 . 1 00 : TONE 1 55. 20 
0: TONE 185, 700 s TONE208. 100: TOME 165, 100: T0NE208, 200s TO 
NE120, 200: TONE 185. 100: TONE 155. 4001 TONE 165, 200: T0NE20 
8. 200 : TONE 1 55 , 500 : HOME : W I PE 

70 C0L0R0.3, 1,6: STANDARD: INK2: B0X2B, 192, 212. 58: INK 

Si BOX 70, 1 90, 210, 60 :PEM2: OUTPUT "VOULEZ -VOUS la" .70,1 
60s OUTPUT "REGLE du JEU ?» , 70. 140: PEN1 : OUTPUT" Br anche 
r la NANETTE GAUCHE" . 40, 40: OUTPUT "Bouton FIRE pour r 

antintwr " . 40, 20 : GOT090 

BO PEN 3 s OUTPUT CHR* 142) . XB. H: PENO; XB=XD: RETURN 

90 H»BOlXD-l 10:XB=I10:F'EN2:0UTFUT"OUI N0N",80, 
BO 

100 PENO: DUTPUT CHR« 1421 . XB. BO: FEN 

110 IF FIRE<0)=1 THEN G0TQ150 

120 IF J0Y(0)=O ELSE IF J0Y(0)=1 THEN XD=100:ELSE 
IF JOY<0>=2 THEM XD=120:ELSE GOTOIOO 

17-0 GQSUBBO 

140 GOTOIOO 

150 IF XB=100 THEN GOTO 190 

160 IP XB=120 THEN WIPE:G0T026O 

170 IF XB=110 THEN GOTOIOO 

130 ' Regie an Jeu 

190 W1PE:C0LDR 6,0,4,1 

200 PEN3:0UTPUT"REGLE du BOWLING" , 70, 200: PEN2: OUTP 
UT"- NOMBRE de JOUEURS :1 a 4" , 30, 160:>EN1 : OUTPUT"- 
LA PARTIE ae JOUE en 6 TOURS" , 70, 1 40s PEN7: OUTPUT"- C 
HAQUE JOUEUR dispose de " , 30, 120s OUTPUT"; BOULES a c 
haque TOUR", 50, 100 

210 PEN IsOUTPUT"- Le BUT du JEU est do *aire",30. 
SOiOUTPUT"tomber le plus be OUILLES possibl a" , 26, 60: 
PEN3:0UTPUT"Appuyer sur FIRE pour cont inuer '■ , 26. 20 

220 IF FIRE CO) -=0 THEN GOT0220 ELSE G0TO23O 

230 WIFEsPENTiOUTPUT"- SE servir de la MANETTE gauc 
ha",20. l90iOUTPUT"pour deplacer le JOUEUR et Ou",30, 
160:0UTFUT"bouton FIRE pour lancer la BOULE" , 20, 130 

240 PENls OUTPUT"- HECTOR <ait les comptes et",20,l 
OOsOUTFUT'donne le CLAS5EMENT de la PARTIE" , 20, 70: PE 
N7:0UTPUT"* * BONNE CHANCE * *",24,40sPE 
N2s0UTF'UT"Appuyer sur FIRE pour JOUER" , 40, 12 

250 IF FIRE CO) «0 THEN G0TO250 ELSE GOT0260 

260 CLEAR: WIFEsCQLOR 4,7.1,3 

=70 QOSUBIBSO 

260 GDSUB15B0 

290 GQSUB1B0O 

300 G0SUB1720 

710 COLOR 4,7.1,3 

320 ■ Debut du Jeu 

330 FOR N=l TO 6 

340 FOR W= 1 TO NJ 

750 IF W=l THEM COLOR 1,7,0,3 

360 IF W=2 THEN COLOR 0,7,1,3 

370 IF W=3 THEN COLOR 1,7,4,3 

380 IF W=4 THEN COLOR 4,7,1,3 

390 X=XCW)+20* CM- 11+60* CM:. 3) : Y=Y (W) +44* Ctt>3> 



I REN I PAUSE. 2: NEXT : HUSH 

4 10 G0SUB93O 

420 FOR 0-210 TO 20 STEP-2: 1NK.1 : BOX 1 47 ,0,149,0-4: 
TONE 30 ,2 :INK0:BOX 147,0, 149, 0-4 : NEXT 

430 FDR L=l TO 3 

440 PEN2: OUTPUT "BOULE Nos " . 90, 224: INK) : BOX 144, 224, 
156. 2I2sPEN0: OUTPUT L, 138,224 

450 31=0 :IR L=l AND NJ 1 THEN BELL 

460 GOSUBtlOO 

470 G0SUB1290 

■130 G0SUB1470 

490 S(W)=S;+S'W) 

500 INK. 1: IF 51-10 THEN BOXBO, 230, 162. 210: PENO: OUTF 
UT "STRIKE", 102, 224: FLASH 1, 14: TONES 1 . 200: T0NE80, 400 
:T0ME6".300:TGNE59,4';0:T0Mi:51 . 2>jO: PENI : OUTPUT "STRI1 
E". 102,224 

310 INKlsIF L-2 AND 5CWJ-10 THEM 30X80.230.163,210 
sPBNOiOUTPUT "SPARE", 102, 224: FLASH 2, I3ITQNE i.:. 2-0: 
T0NE7 1.400: TONES . 200: TONES'.", 7 






{JSli ££T T£fiOA?iCtEV$E 

^r ~ir~ 



HECTOR 



' THEM 1-0X80.230.162, 



& 





MOTS, * Uflj 



--■■ IMK1:IF L=7 AND S!'J! :■:■■ THEM &OXB0. 270. ! 62. 

PEV?! OUTPUT "Cas DE5ESPERE". BO, 224: SOUND'"-. ~ -134-1 • 

E 2:HUSH: INKlsBOX 30,270,162.210 
540 IF L 7 AND 3CW)=10 THEN G0SUF73O 
550 IF L=2 AND C<W1=20 THEN GCSUB930 
560 IF L<3 THEN X =14B:F0R 0=210 TO 26 STEF'-2: 

tB0XX-l.Q,X»1.0-4:T0NE 171.3 :INK0j8OX X-l 3 *«-■ 



'.-OUTPUT"* 



■1B:PEN0:0L'TPUT T (W 



620 MEXTsNEXT 

670 TONE 155. 100:TONE20B. ! 00: TOME 155. 200: TONE 
0:T0NE2OS, 200: TOME 1B5. 100: TONE 120, 2Q0i TONE 15" 
NE 1 35 . 300: TONE208. 1 00 : TONE 1 55. 500 

640 "Classement da la partta 

6S0 WIPE iCDLORO. 1.6.3:F0P 1 = 1 TONJ; NS 1 I ! --N* C 
"+ BTR*(T(I}1 :MEXT 

660 FOR 1=1 TC NJ-1 

670 FOR J = I + 1 TO NJ 

630 IF TCJ);:T(1) THEN SWAP T(J),TCI> 

690 NEXT: NEXT 

700 FDR 1=1 TO NJ-1 

710 FOR 0=1+1 TO NJ 

B»CJ)=RIGHT*<N«(J>,7):B»!I>=RIGHT*CN*" 

:-VALCB»U))THEN SWAP NKJ 



r VAL 



740 NEXT:NEXT 

750 PEN2:0UTPUT"RESULTATS de la PARTIE" . 56, 2l'0l PEN 
3:OUTPUT"Clast",50, I BO I OUTPUT "Nom*", 100. 180: OUTPUT "P 
olnts". 154, 1B0 

760 CURSOR 9 ,150 

770 FOR R-l TO NJ 

7S0 PEN2IPRINT TAB (81 Rs : PEN1 : PRINT TAB ( 14! LEFT* (N* 
(R) ,9) i :PEN3:PRINT TABC261TCR) 

790 PRINTiNEXT 

BOO T0NE100,6OO:T0NE95.200:T0ME77,400:T0NElO.-:,4O0- 
. 3nl,-;.20>-!: -one a9. ::■::■.:■: njME ;■:■■.. -: ;■ -. : t ;i--,l-: :- ■,.-,■'::(;:■■-■ 
BOO ; TOME 100, 500: TDNE77. 1000: T0NE89, 400 

310 PENls OUTPUT "UNE AUTRE PARTIE ?. . . ",60,4QlGQTQ 
830 

820 PENOiOUTPUT OHR« 142 > . KB, H: PEN 2s XB=XD: RETURN 

830 H=20:XD=1 tOlXB-1 10. PEN2: OUTPUT"OUI NON",SO 
SO 

840 PEN 31 OUTPUT CHRSI42) ,XB.20sPEN3 

B50 IF FIREC01"! THEN GQTQa9C 

86O IF JOVCOJ-0 ELSE IF JOVIOI-1 THEN XD-100tEL.SE 
IF JOYCOJ-2 THEN XD-120:ELSE GOT0340 

87 GOSUB820 

380 G0T0840 

B90 IF KB" 100 THEN WIPE:GOT070 

• THEN WIPE: PEN 2:0UTPUT"F I N", 100.11 



i|R»»l 



t(l) 



910 IF XB=110 THEN GOTOB40 

920 END 

930 'position Pes quilles 

940 C1=1:C2=2:C3=3 

950 FOR J-0T03 

960 Y-130 +8*J 

970 X=119-3*J 

980 FOR I=0TOJ 

990 G0SUB1030 

1000 X=X-6 

1010 NEXTsMEXT 

1020 RETURN 

1030 'Dessin Oullles 

1040 INKClsPLQT X.Y 

1050 INKC2:LINEX-l,Y-l,x-i,-, 

1060 INKClsPLOTX, V-2 

1 070 INKC3: BOXX- 1 . Y-2, X*2. Y- 

lOS'ii INI C3:PL0TX, V-7 

1090 RETURN 

1100 'DesEin Joueur 

1110 X=140:Y=20: J0=1 

1120 INK0:BOX X- 1 , Y+2, X + l 1 . ' 

1130 INK2:B0X X+2, Y, X+5, Y-2 

1140 INIj;iPL0TX + 3.¥-3 

1150 iNKlsDOX X*1,Y-3,X+6,Y- 

1160 INK3:PL0T X+3.Y+1 



FICHIER EN B3X 




iOioT. 

J (f>BO<JEf!sl 



Ti 



(ce SEfrtT tpop rficr'u} 



1200 INI2:LINE1"-6.Y-5,X + 6,Y-12 

1210 INKlsBOX X+7,Y-11,X-.10.Y-14 

1220 ' Doplacement Joueur 

1230 IF J0=0 THEN G0T01270 

1240 IF J0YC0)=2 THEN X=X+1:IF X=150 THEN C 
ELSE X=150sGOT01120 

1250 IF J0YC0)=1 THEN X=X-liIF X =80 THEN C 
ELSE X=SO:G0T0U20 

1260 IF FIRE CO) "O THEN GOTO 1120 

1270 X1=X+7:J0=0 

1280 RETURN 

1290 ' Lancemant boule 

1300 A=ABS1 X1-120X50 

1310 IF XI MOB AND XK132 THEN D= AsELSE D"S 

1320 IF D=20THEN P» 210:GOT01370 

1330 IF D C150 THEN P= 172:GOT01370 

1340 IF D <400 THEN P=1S0: G0TQ1 370 

13SO IF D ^550 THEN P= 194 : G0T01770 

1360 P=172 

1370 FOR Y= 20 TO 28 STEP 4:G0SUB112O 

1330 INKOi IF Y> 20 THEN BOX X, Y-lt, X+10, Y- 



1 RETURN 
1 ' suppri 
) IF ) 



, 17i I 



quill 



7: BAR 1 



110: ELSE FOR 



1500 



103 OR XI,- 130 THEM GOT01230 
:C1=0:C2=0;C3=0 
FOR J= TO 3 

1510 Y=180+B*J 

1520 X=119+3«J 

1530 FOR 1= TO J 

1540 PO=PDINT(X ,Y-6»sIF ( (2"K) AND D)* O AND P0=3 
THEN G0SUB107.0: BEEP: BELL: S1=S1*1 

1550 X=X-6:K=K-1 

1560 NEXTsNEXT 

1570 RETURN 

1530 "presentation 

1590 G0SUB930 

1600 X«lI3iY=20 

1610 G0SUB1120 

1620 G0SUB1290 

1630 GDSUB 1 470s PAUSE l:T0ME20B. 200: TONE 165, 100s TONE 
208,200: TONE 155. 100: TONE IBS, 7.O0: TONE20B, 100s TONE 13! 
.200: TONE 1 35, 700: TONE 1 20.20O: TONE 1 55.4O0 

1640 WIPE:C0L0R4,7, 1,3: STANDARD 

16SO LURHOR20, 120iPEN3: INPUT '■ NOMBRE da JOUEURS 

1660 IF NJ <1 OR NO >4 THEN G0T01640 

1670 WIPE:PRINT CHR* ( 16) : INKZl BOX 16, 192 MS SB-INl 
3: BOX 18, 190,220,60 

1680 FOR J= 1 TO NJ 

1690 Z"Z+20lCURSQR20,180-Z t PENO i PRINT " NDM du JOI 
EUR No";Ji": ": :PEM7.: INPUT " " ; N« < J I s PRINTsPRINT: NEXT 

1700 WIF'E 

1710 RETURN 

1720 'preparation des tableau;: 

1730 STANDARD: COLOR 4,7,1,3 

1740 DATA 190,10,190.174.98,10,98,1^4 

1750 FOR J=l TO NJ 

1760 READ Y [J),X CJ) 

1770 INK Os BOX X CJ1-4.Y (JJ+6.X (J)+57,Y (Jl-76 

1730 FOR 1=1 TO 6 

1790 X =X CJ>*20*CI-1 )+60*tl;31:Y =Y CJ>+44*(I 7: 

1B00 INK 3sBOX X -3,Y +3,X +16, Y -30 

1810 INK. lsBOX X -2.Y +2.X *B V Y -10 

IS20 F'EN2sOiJTF'UT MID* (STR* C 1 ) , 2, 1 1 , X ,Y 

1830 NEXT 

1840 PEN3:0UTPUT N»(J),X CJ>,Y CJJ-33 

1B50 NEXT 

1 860 RETURN 

1870 'Trace Terrain de Jeu 

1880 INK2:B0X O, 20, 90, 200: BOX 150, 20, 240. 200) INI 1 1 Bl 
X 0,200,240,270: INI 0: BOX 90,200. 150, 21 0: B0X78. 29, 16! 
,4:INK7-:BAR 0,230,2:BAR 90, 146. 70: LINE 146,210,146. 
0:LINE90, 210,90,30 

1390 SPECIAL: FEN2: OUTPUT "BOWLING" . 2, 1 : [ 







174 PRINT H IPRINT" "::PRINTA»( 

175 PRINTC*CI )*D*CI) 

176 PRINTE*CI>+F«CI) 



151 SF'EClHL:M0Mt:FENL::SFEClAL:OUTF'UT"C;0MF'LET 1 
C" .4. 16:PEIJl:STAMDARD:CURS0R8O,80: INPUT! A*: 

152 5CREEN24, 186. 194. 174:CLSO:F0R 1=N1T0N2:PR1 



Suite de fa page 69 



154 PRINT/7' 

155 PRINT/7.' 

156 PRINT 
57 PRINT/" 



FICHE No: 



0THENGOT05 



158 F 



(INT/7;C» 



hi INI 



; P,i"L'- 



.19 



20, 192: 



0:F:0*::.2]B.218, 



7:E*ip 



iPRIN 



■■: INI 



BO '3: 



218 



127 SPEC I AL: HOME: SCALE 1 . 2: PAPEP7: PEM1 : OUTPUT "L I STE 
P. SUR ECRAN",6. l:PAPERl:PEN7: OUTPUT-M" . 24. 3s SCAL 
El. 1:PAPER0:PEN2: OUTPUT "RETOUR AU MENU" . 4, b: OUTPUT "t- 
EBUT DU LISTING No" . 4. 10: PEN1 : STANDARD: HOME: CURS0R19 
0, 146: INPUTN1: PENO .-CURSOR 190, 146: F'RINTNl sPEN2 

12B SFECIAL:HONE:PENO:0UTPUT"DEBUT DU LISTING No", 4 
, 10:F-EN7:0UTF'UT"No DERMIEPE FICHE: " , 4, 22: FEN1 : OUTFU 
T NB,23.22:PEN2:OUTPUT"FIM DU LISTING No" , 4. 10: peni : 
STANDARD: CURS0P190, 146: INPUTN2 

129 INKOs BOX 174, 150,210, 120s PEN2s SPECIAL: OUTPUT "A 
DRESSE Tsper-- A", 4. 14: PENI: STANDARD 

130 SPECIALsH0MElPEN2sSPECIAL:0UTPUT"C0MFLET tspe;- 
-> C".4. 16 : PENI: STANDARD: CURSORBO. 80: IMF'UTI AI : PEN2 

131 SCREEN24, 136, 194, 174:CLS0 
172 F0RI=N1 TO N2 



146 1F1N=OTHENGOT05 

147 WIPLJlNKli B0X2O.22O.220.4: INKOl B0X22. 218, 216, 
6: IN. 1:BAR2'J.220, 1"2: BAF.20.220, 1 90s INt 3l B0X22.218 
,21B. 194 

14B SFEC1AL: HOME: SCALE! , 2i F APER7: PtfH : OUTFUT LtSIE 
R Suft IMPRIMANTE-.4. 1:FAPEP1:FEN7: OUTPUT "M" . 24 , 3: S 
CALE1, l:PAFEFf:FEN3:OUTFUT"PEI0UR AU MENU" . 4, b : OUTPU 
r "DEBUT DU LISTING No",4. 1...;PENI:STANDARD:HOME:CURSO 
R190, 146; INPUTN1 : F ENO; CURSOR 1 90 . 1 44>;PRINTN1 :FEN2 

149 SPEClALiHOMEsPENOiOutf UT-DEBUT Du LISTING No" , 4 
, 10:PEN3:QUIPUT-No l*PNtERE FIChE: ", 4. 22: PENI : OUTPU 
T NB,27.22:FeN2>TJUTFUT-FH': DU LISTING No", 4. 10: PENI s 
STANDARDsCuF-SC*! ' . 14*s INPUTN2 

15" INi Os B0X1T4, 150,210, 1 20: »EN2: SPECIAL : OUIFUT "A 
DRESSE Tape;-- A", 4, 1 4, PEN 1 : STANDARD 



1 THENG0TD165 

161 PRlNT.'3"Tf Uphone: " iG» 1 1 1 ; : PR1I 
: :PRINT/3iH»CI> 

162 PPINT/7"1NF0 2: " s s F'RINT.'31« 1MB: 

163 PRINT/3"INF0 7s ":: PRINT ,'3J* <NB: 

164 PRINT/3" "i PRINT/; 

165 PAUSE. 6:NEXT:PRINT,'3 

166 PRINTsPRINf'tape; une touctie":A' 



PLANE 



Protegez votre base navale, de la sournoise agression 
imperialiste de 25 avions ennemis. 



Michel BERTRAND - 



Mode d'emploi : 

Votre joystick branche dans le port 1 . lirez a vue. 



1 REM lorflL UHlrt DECOB -48096 

,: FEN IOTAL I'HTH VltEUk = 2730 

3 REM TOTAL DATA EXPLOSION = 724 

4 PEM TOTAL DBTR BOMBES ■= 4611 
3 REM TOTAL BFiTA AVION = 4744 

" PEM TOTAL HHTA HELICO = 3182 



PEn 
PEN 



49 



TOTAL 



en m=ii i =255 pokev-m6.0 POfEV+21 
B=INT<RND' l;*2)+l 

oi H*itfrtPt«<i)+iae)*sa pokev+31 

92 Z»lNT<RNlKI)*15)*6 POKEV+39, I 

83 W=lNTiPMB' l >*2>*I 

3 P0KE7S2,2<P0KE?83. 




Ml POKtAD-14 P0KESR.39 P0KEFB.147 
P0KEFH.8 
362 POKEBB, 129 FOPT=0TO40O NEXT HE 



f-'rE-,- : .EZ Fl ■■" 
325 1FPEEIa203.=4 THEN 538 
526 POKEVO, 15 POKEFB, 227 POKEFH, 22 

POKEBB.129 POKEEB-128 GOT0525 
ZV< FOPK = I5 T .ti;-'tF -J. POI EVO . F POI' 
EHD.14 PDKESRj39 P0KEFB,!47 POKEFH 



DHTfi282.231.13 



'■0 PEM VARIABLES 

=,1 IiR=l600 ul =53280 CF=53281 DE=" 

272 D1HSOJ 

5„: V=S324% Rfc-204n =.J. = !i, < ; : 

93 SO/«194 ><4»193 KO>-19« 

53 xv=iro vv=i i« J0=56.2i h=i 

'..4 ■■.■Tj=r;-ti-.-^ M[i^ 1 ■' :-='.4.-_V. rf: 

4272 

33 FH=542?3 B6=542:'6 ?l=u Pul E80! 

225 

60 0030B500 



XT 

74 FQRF-1984 TO 1933 P0KEF,168 POI 

EF*DE,5 NEXT 

75 FOPF'^1934 TO i;-4; P0IEF.227 POI 

EF+DE.6 NEXT 

76 FORF-1944 TO 2823 PC'IEF.160 POI 
EFtBE.5 NEXT 

:-:r.i fEH iPPITES 

81 POP F=M;^3-10I^.<>: REmIX' 

82 POI EF . NEXT 

63 F0RF»1T05 PQKERE+CF-1S,S(F>:NEX 

T 

34 POI EV- 33- 11 POKEVMO 9 p>_iiE'>4.3 

■» FOIEV'43.0 POKEV+41,2 

S3 PRINT" MiMI 

."PRINT"" 
3* P0tvEV*29.2 POKEV+25,4 POfEV*37. 
?'P0KEV+38.2 
:;'.' pi> ev . : .v poiEVI VV 
■=■& F0PF=54i:.2 TO 5429ft POKEF. HEX 
T 

*.* FEN DEPOT HE PART IE 
90 Itfi-iJ-SC-y PR=0B'I=6OO POKEul-O 
'1 P0KE781.23 POKE-82.2 POKE783.0 
SVS 65520 

:■■.,■ FPINT'*01IIT3l(a r.TfiEM-;."! 

MVIuin.^-.lMi!' i:fi ."tOMBE^-B" 

99 pem ++++*++ DEROULEHENT I'E frpt 



SYS 65520 




531 FOKEBB 


129-FORT=0 


TO .400 NEXT 








105 IFSC ;=8THEN8C0 


400 POKEV+21.8 POKE?81f2-P0KE782,? 


NEXT 














187 PRINT" *>Q1NTS ■MM"SC.TRB 


POKErf^ ■ S SVS65520 POKEC-C , 2 






























MR 


**+" 




PEM DATA DECOR 




• US. 1, 136 


192 
















3031 IiRTm;: 


8.96.6.0-4 




" !ji-=H +HH 








0,24.12.0. 


4.255 




•■ ■.., ■! suB2ee.2i0 


403 PPIUT"WW»EOHUS : TEH ■ TAB' 20 ■ 




lirTr";.' 


,111,1,36, 


11,1,42.103. 


■30 32 I'RTRl 


.0.24 


12,0,24,6,0,48. i 


im iun*- ifh:>=k theh 300 


"■SCORE FINAL TSC 










■3,96.1.201 


192.0 


255,128 


111 POKtVO. 15 ; PUKEFBj227 P0KEFH.22 


404 PPINT"*>Pr/OULEr VOL!;- AHELIORE 










90 3 3 I'RTmO 


62,8,8,8/C 


" ■ -.1 1-..- 1 "I-EH..I2* 


R VOTRE 5C0PE ■'" IF Stl-i-l THt'-tl = :■ 














:i : .' t -. " r .-EV.I.H 


C 






.116.9,114 


91.1,115,91. 


9043 PEM EXPLOSION 


114 POKEV.XV PCrtVH,YV P0KEV+21.A 
















E MOMENT "51 


90{t4 


<jh:.-:i_ 


3,102.9.12 


.116.9.140.9 






1!' II M>TREEK<JO>ftN&l$TMEN220 














Hi [i ■ NOrF££I ■ JtxHNBl ilHEWW«W-3 


PRE35EZ 'Fl 








■160.2.150.2 


8,8,56,0,8 


16,0 






410 FQPTiO TO 4000 IF PEEK<283?»4T 
HEM56 


9086 


BR 1 - : ' 




•8,2,162,183 


305.: DHTmO 

.0,0.0.0.0 














411 NEXT SVic.4733 


















450 print print" wmnniin on k 


9807 






.236.9,1*7.2 


9054 BATRO 






201 RETUPH 


ECOMMRNCE " 














210 u-g i-am-is 


451 PRINT"«" FORT"0TO18 








,9I>1.19S,?1 


9060 BATH3 








452 PRINT" 


■ 11 














120 iF<:-y*ik.' :i-iiHE!!pi;ictv+3o 


" HEXT 


9009 


IlM ! M . 




,223,2,283,1 








221 IF FEE' -:0'HNHm.THEN230 


45/ FOFT=0TO.jOOO Nf.XT 0OTO90 
500 REM PRESENTATION 


82.9 
9010 


ii-:i ". 




.160.2,208.2 


4. 143 |<t 








505 PPINT"^" P0KECC4 P0KECF.4 


















510 PPIHTTBEatJ" -H" 


9011 


[IM i ' ■ 




,288, 11 ,224, 








234 POKEV*ai 9 FOfiF*15T08STEP-l PO 


511 PPIHTTHB' 11 1" irm^'' 
















KEVO ■ F POKEBD. 1 4 FOKESR , 39 POKEFB . 


512 PPIHTTflE- 11V— 0P~ " • ^-^ 








.227,8,229,2 




















906? PEM R 


ION 




235 POKEFH. 34 POKEBB. 129 F0PT=0T05 


313 PRINTTHBaiJ" 00 ~%^~ 00 








91,1.235.91. 








o:ne:-:tt 




















514 PF'INTTAF'U ■" •" 




ImT-v 




9.223.2.240. 








237 POKEV-30.0 POKEAD.O POK.ESP ■ O 


r :-i5 fPiiiTTHE- lO'-iwuns ■ a ■ a 


81.3 














OTO1O0 


I ■ M 


3.:' 13 


['Ml-. 




■81.3,245.23 








390 IFKL =253 THEN-i 10 




6/13 






6.15 








391 G0T0358 


■ fc.« ■" 


9016 


L-.--Th_ 




61. J. 252. 3! ■ 








3ie n-fl ' =€? poKEv+iSiA eoTOiie 


517 PRINTTRB' IS) 1 :* ! St ■ :i 1 


















■ « n 


9017 


1'HTMJ 


7,66. 11.258. 105 








381 lO-Un RHl 1 tOO>il>U>MT<RHD 


511 ir:>c. 1..;.. ... . a ■ a ■ a ■ a 


215j 




213,11,261 


210,11 










■ ■ ■ 




Dm "Hi 


2.123. 11,263,188,11,264 










5i.- cpphtmi- 10 ■■ s ■ a ■ a ■ a 


1 if 




.231,15,26 


.236.9 














[ifilH,- 




.160.15.269. 


















66.0 


















66.0-274.10 




















0.31 252.8 







•.■■»»»:■*»■!■. 




HECTOR 



FICHIER EN B3X 



Suite <3e la page 70 



1 7 1 N7-=0 : SPEC I AL : HOME : SCALE 1.2; PAPERS 
MOD I F I CAT I ON" , H, 1 : PAPER 1 : PENT- 1 OUTPUT " 
l,llPAP£R0lPEN2lOUTPt)T"RETOUR AU MENU" 
MERO DE FICHE",4, 10: PEN1 : STANDARD: HOME 



: INPUTN3lPEN0lCURS0R190i 146tPRINTN3)PEN2 

17^ IFN7=0 OR N3 N0 THENQQT05: ELSEG0T056 
177 'TROUVER UNE TICHE 

174 IFIN=0THENG0T05 

175 WIPElINKll 60X20 . 220, 220.4: 1NI.0: R0X2: 
b: INI-'l:eAR20.2ZO. 192: BAR2O.220. 1<?0: INI T: 

■ 219. 1<?4:5CF:EEN24. 100, 194, 174 



PENli OUTF-UT" 
i* , ,24,-;: SCALE 
4.t:0UTF-UT"NU 
CURSOR170. 146 



187 FORI=1TONB 

ISO IFNN«=A»(I)THENG0SUB241 

IB 1 ! NEXT 

190 1FVV=0THENPRINT"I1 n'y a 
: PAUSE 1 

191 PAUSE2 

192 G0T05 

197 'RECHERCHE/ PRENOM 

194 CLSi NN«=" ":CUI 

195 F0RI=1T0NB 

196 IFNN«=B»(I)THENriOSUB241 

197 NEXT 

19B IFVV^OTHENPRINT-Il n'y a 



i;RECTIFYNN« 



' GCT05 

. "RECHERCHE.- NUMERD DE L"ADRE5SE 

: CLS: NN«=" ":CURSOR30.20:RECTIF' 

! FDRI»1T0NB 

■ IFNN«=CI(I)THENGOSUBr' 



231 PAUSE- 
2Z2 G0T05 

233 'RECHERCHE/ TELEPHONE 

234 NN»=" ":CURS0R7O,2O:RECTIFVNN*iRETUR 

275 F0RI=1T0NB 

236 IFNN*=G«(1)THENG0SUB241 

237 NEXT 

238 1FVY=0THENPRINT"I1 n'y a pae de tiche ' ce m 
: PAUSE 1 

239 PAUSE2:G0TDS 

240 NN»= " » 1 CURSOR30, 20 : RECT I FYNI 
RETURN 

241 YY-1:RR1NT"IMPR1MANTE-: 3 ou ECRAN- 1" : INPUT 1 Hi P 
RINT/IM'-Numero: ": I : PRINT/IM'NOM: " j A« { I > j 6* ( I ) : PF 
T/1M;C*(II :Dt(I) : PRINT/ IM; E« ( I I ;F*(I) : FRINT/IM"T*: 
hone: " i Gt I I 1 : PR [NT/ IM; H% I I ) : PRINT/ IMj I« ( I ) : PRINT. 
|J*(I) 

242 PEMSl PRINT" ": PRINT: FEN1: PI 



17i F3=0: SPEC I AL: HOME: SCALE 1 . 2: PAPER?-: PEN 1: OUTPUT" 








RECHERCHE", 9, 1 : PAPER 1 : PEN7: OUTPUT "0" . 24, 7: SCALE 1. 1 
:FAFEF:0: PGN21 OUTPUT "RETOUR AU MENU" , 4, b: FEN7: CURS0R4 


204. IFYY = 0THENFR1NT"I1 n'y a 


P*> d - f 


Che ■ e 


.8: PR INT "PAR "j iPRIMTTS(O) ( lPEN2t PRINT" 1" 

177 PEN7:CURS0R4, 10s PRINT "PAR "i :PRINTT«{1I i:F-EN2: 


207 PAUSE 2 

208 60T05 






178 PEN?:CURS0R4, 12s PR I NT "PAR " : : F'R1NTT» < 21 1 s PEN2: 


209 'RECHERCHE/ ADRESSE SANS 

210 CLS: NN»=" 


NUMF.RO 




179 PEN7-:CURS0R4, 14: PRINT "FAR ": : FRINTTt (3> i : FEN2; 


ECTIFVNN* 
211 F0RI-1TON6 






190 PEN3:CUR50R4. 16:FR1MT"PAR " ; : FRINTTt ( 4 ) : :PEN2s 


212 IFNM*=D»U)THEMG0SUB241 

213 NEXT 






1B1 PEN3:CURS0R4. 18: PRINT "F-AR " : : FRINTT* 15) : tPEN2l 


214 IFYY=0THENPRINT"I1 n'y a 


p«» de * 




182 PEM7;CURS0R2,22:PRINT"DERNIER NO LISTE: "llPRI 


215 PAUSE 2 

216 G0T05 






IB?. STANDARD! CURSOR 180, 20: AI»= I NSTRf (11 :AI=VAL(AI*1 


217 'RECHERCHE/ CODE F'OSTAL 

218 CLS: NN«=" ": CURSOR 


■0."0:REC 


riFYNN* 


IB4 QNAI-1 G0TO5. 185, 197,201,209.217,225 


230 IFYV-OTHENPRINT"!! n', a 

s PAUSE 1 


pas « e 1 


che ' c 



244 "EFFACER LE FICHIER 

245 1FIN-0THENGDT05 

246 INKll BOX2O.220.22O.4s 



"THENG0T05:ELSERETURN 



:20. 190: INI 7 



]-Ct.. 



7 SPECIALsH0ME:SCALEl,2sPENl: OUTPUT" EFFACEMENT 
FICHIER", 4. 1:FEN7: QUTPUT'ETES VOUS SUR ?",4,4:A» 
lSTR*(ll: IFA*="0" THEN CLEAR: ELSEGOT05: GOT05 
9 F0RI-1T0NB 

IFNN»=E»([ ITHENG05U6241 

1 NEXT 

2 IFYY«OTHENFRINT"ll n ' > a pas de +iche ' ce nom" 

7 PAUSE 7 

4 G0T05 

5 -RECHERCHE/ VILLE 



IN*=F«! I I THL'. l ..l.i'=.Jt--. 



8 AFTER 8 



Donnez de I'effet a vos programmes, par quelques 
sympathiques lutins. 



COMMODORE 64 



I SBpT OE 
' EM rt*Wtf»«l 



Pascal GAUTIER 

Mode d'emploi : 

Cet utilitaire permet I'affichage simultarie de 16 sprites. La program- 
mation de ces demiers est identique a cells utilisee pour les sprites 
d'origine (chapitre 6 du manuel). seul les poinleurs seront a modifier 
comme indique dans les REM. 




L.I .-.......-.--.-- 

1 PEM** 8 •• 

2 PEN** AFTER «» 

3 REM** 8 •< 

4 REM*************** 



34 REM MftIS RUCIJN NE POUPRA LE 
FflIRE VEPTICALEMENT. 

33 REM 

35 REM IL EST HOPriflL QUE LE CURSEU 
R WIT ANIME PLUS RAPID 
EMENT. 



.-.' 



< pen roup DESflCTIVCT LH TOUCHE S 220 



14 PEM 
1EPS 

15 REM 

16 PEM 

17 PEM 
S1EN 
16 PEM 
19 PEM f 



PASCAL GRUTIEP <C> PJ 

VOUS DISPOSEZ DE 2*8 SPRIT 

INFORMATIONS SUR LES 9 PREM 

NVELLE ADRESSE VIC +43248. 

ORDONNEE MAXIMALE 103 

HU DELA.RFFICHAGE NON CARTE 



21 PEM f 
37 

22 PEM 

23 REM INFORMATIONS SUB 8 AUTRES 

24 REM NVELLE ADRESSE VIC *€3249 

25 PEM ORDONNEE MAX 255 

26 PEM ORDONNEE MIN 153 

27 REM EN DESSOUS.PAS D'RFFICHAGE 
29 PEM AU LIEU EE FAIRE'POKE 53248 
.198' 

29 REM TAPER 'POKE 63248, 198" 

39 REM HDPESSES POINTEURS ++320-827 

31 REM 



49 i 

•if. FORI*0TO35 READA POKE00708+1 A 

S*S*A NEXT IFS-3743THEN95 

60 FOPI-0TO36 PERDA P0>E'.3uw-i S 

D=D*A NEXT IFD-12273THEN95 

70 FOPI-0TO32 PEADA P0KE53109+1 A 

L=L+ANEXT IFL-12146THEN93 

-,. HjFI-rtT.j,- fEHIiP. IKM-A R0KE53209 

♦I .R NEXT 1FM-363THEN95 

81 SV5706 POKE53280.G P0KE5326I .0 

Si FCiR[=0rrJ135 PEHI.H K'KE5200ti*I R 

0-0+A NEXT IFOO17S01THEN95 
33 H'F!=0TO312 PEADA POKE32300+IA 

H=N+A NEXT IFNO42770THEN95 
39 FOPK-0TO59 ROKE43248+K.0 P0KE63 
248+K-0-NEXT 

92 SVS58692 SVS52588 SVS32590 FOPJ 
*0TO3898 NEXT SVS52559 

93 FOR->0TO3590 NE-.T S.VS52602 iVS3 
2731 END 

95 P0KE33265.27 PPINT'TERREUR AVAN 
T LIGNE"PEEK<63>*PEEto:64>«236 END 
100 DATR120, 169:8, 141 28-3.169 






I DATA297. 141,21,3.163.1, 141 
1 DATA13. 220, 163, 1.141,26.209 
) DATA169,0. 141, 18,208, 173,17 
1 DATA209,4l, ,27, 141. 17,209.88.9 

1 DRTA165, 1,41,254, 133.1.162 
DATA0, 199,246, 168, 157,0,298 
DATA232, 224 , 1 7 , 209 , 245 , 162 , 
DATA189.21, 169, 157,37,268,232 
DATA224, 10.298,245, 173,13.169 
dnv DATA141,29,209,173,7,169,14t 
266 DATR23, 299, 173,12.169,141,28 
270 DATA208, 173,3, 169, 141,21,206 
280 DRTA173, 11,169.141,27,208, 162 
290 DRTA9,189,23?,7,137,247,7 
300 DRTA202, 208,247, 165, 1,9,1 
310 DBTA133, I, 169, 108, 141,20.3 
320 DHTA169.287, 141,21.3, 169. 143 
330 DATA141, 18,209,76,208,207 
408 DRTA169, 37, 133, 1,162,0, 189 
416 DATA16, 247, 157,0,200,232,224 
428 DATA17,208,243, 162,0, 199,53 
430 DATA247, 157,37,209,232,224,10 
440 DATR209, 245. 173,45.247,141,29 
458 DATR208, 173,39,247,141,23,268 
468 DATR173,44,247,141,28.20B,173 
470 DATA37.247, 141.21.208. 173,43 
488 DATA247, 141,27,298, 169,55. 133 
498 DATA1. 169,8. 141.20,3, 169 
300 DATA207,141.2],3, 169.0, 141 
510 D«TA18,208,152,8.189.31,3.13? 
529 DATH247. 7, 262, 208.247. 76,268.2 
07 

600 DATA 169, 1,141 ,25,288.76.49-234 
616 PROGRAMME LM ENTRE LES ADRESSE 
S 33900 ET 33207, 769 ET 7 
33 

700 DATA124.0.0. 198,0,0. 198 
719 DATA112.6. 124,89,0. 198, 119 
729 DATHO, 198.84.0, 198,6.224 
739 DATR124,4. 64. 6,8,92,0 



> IJATRO 30 8,6. 24,6 

) DATfi2e,0.0,0.0.31,6 

) DATH8.49, 133,8.49-134,8 

) DATA31,5.6.49,128,6.49 

) DATA128,0,49, 128.0, 31,0 

■i DATA0. 120. 253, 232, 132,3,6 

) ERTA186251 124,164,203,96,180 

) DATA243. 112. 132. 134, 192, 120,25 



> DR7R0. IS.-. 64. j, 157, 132.63 
) DATA202, 208. 24? 96.162.2,138 
) DATA157.2I, 169, 157,53,247,23; 
) DATA224, 10.208.245, 169, 15, 157 
) DHTA42. 3, 157, 229.7, 232,224 
) DATAI9. 299. 245. 162.9. 138, 141 
) DBTR13, 169. 162,0. 169,252,157 
) DATA17, 247, 232, 232. 224, 16.298 
) DATA247.162 0169, 65, 157.16 
) DATH247, 157.248. 168,24,193,27 
) DATA232. 232. 224. 16,208.241,16 




] DATR40. 169. 139.238, 174,0,6 
) DATA0. 238. 175. 118. 138. 165,63 
I DATA142. 165. 162, 176, 165 69,23 

< DR-R22?. 117.0.0.0.0,8 
1 DfiTA0,ll .0.8.0,0,8 
I DBTA0.8, 0,0, 0.6,8 
I DATA8, 1.224, 0-3, 224,0 
( DATA?. 224. 8 15.248,3,63 
I DRTA150.-'. 255. 234, 15.255.254 
, r,MTHti.i-,», ^^4 . '47 ■ 255 ■ 252 ■ i 
i I'ATm253-248, I. 63-240. 0,7 
I DATA224. 0,3. 224, 0.1.224 
' DATA0.8'9.00,9,0 1430 

< DATH0 0.0.253.253-253.255 1440 
■ 1'CiNi.EES iPPl-t: 5;y00-5^135 1458 

18 DATA169-1, 141 . 17, 268. 141 ,5 1468 
6 DATH169, 141. 13. 169.141,23,169 1478 
:0 DATR105, 23, 141.240.168,103,29 1480 
'0 DflTB141,241, 168.162,192,183,3 1490 

1560 
■0 DftTA263. 157 63-3 2S2.26S.247 1516 
,0 0HTA169.255. 141,238,7. 169,27 1520 
.0 DATA141.17.2i..'- L-S-13S 162,65 1339 
'6 DATA160 -6- lit ><K 253. I02.26S 1540 

19 DATA230. 170, 96162, 0.189. 128 2698 
'0 DHTA3, 157. 192.63. 189. 129. 3 
'6 WTH137, 193,63, 19?, 130.3, 157 

8 DATAl 34 . 63 . 232 , 232 , 232 , 32 • 66 
DATA265 22463. 268,228.96. 162 



) DBTA141 5, 163,141 37,247,162 
) DRTA24, 32.64,266, 139, 168,0 
) DRTA153, 241. 168, 230. 200, 192,1 

) DA.TA208. 247. 169, 30-142. 255. 3 
) DATH56 237, 253. 3168. 0,153 
) DATA17. 247,280.288. 192. 16.268 
) DATA247, 232 224,145.208.216.9 

I DATA162.0. 168,0.173-180.220 
DATA153. 23, 163. 153,53,247.206 
DATA 1 32 . ft 298 . 242 . 32 . 64 , 20f" 
HATA2 32 224.6.208,232. 162. 
DATA199.44.206 32,210255 23. 
DATB224. 26 268.245, 169. 6. 141 
DRTRSi 163 141,37.247,88.36 
DHTR154 147 .56.32-65-7Q S4 
Ifl!-i^.- -c 32.56- 32-66,8? 
DATR32 SO 74. 76. 32, 17, 138 
E'RTm 1 62 ■ ■ 1 c.6 6.13-.. 26'? . 25 J 
C'p?-;o; 20t 250-176,36 
DONNEES PRESEI'TATION • 



SPACE STORM 



Missions de jour et de nuit, qui feront appel a vos ver- 
tus de tireur mfatigable 

Emerich FERNANDES 

Mode d'emploi : 

Branchez Ie joystick dans le port 2 et faites RUN. Ce jeu comporte 4 

tableaux et les regies sont mciuses 



COMMODORE 64 



9 REM»*» PRESENTATION **■ 

10 P0KE53299.il P0f£53291.9 PRINT'' 
",t*b<l !)"»»• »P#c« St^rm «• 



26 PRINT" 

W';;iiimnn 

36 PRINT" nflBKMWOUS ETES EOUIPE 

D'UH VR1SSEAU A TIP" 

48 PRINT'B LRSEP ET VOUS DEVEZ ES 

SAVER DE VOUS" 

50 PRINT"« FRAVER UN CHEMIN A TRfl 

VERS LES LIGNES" 

60 PRINT'S ENMEMIES. ATTENTION i 

VOTPE LRSER N'" 

78 PRINT"* EST EFFICRCE QUE SUR L 

ES ■.■P:•.iEHUX.' , 

99 PRINT"* DE PLUS, r.ERTfllNS D'EM 
TPE EUX SONT - 

36 PPINT"I1 INViANEPABLES R VCiTPE 
TIP...RRIJDENCE '" 

100 FOPI"1944TO2023 POKE I. 169 POKE 
1+54272,11 NEXT 

110 PK.]Hj"tuaawmaaeaiaimiiMxy.fitaie 
»PPasi*z »ur Tl' Pour commtn 

CER ": -X-2 

120 FORI =3533 1T055461 POKEI-X NEXT 
X=X*1 IFX>15THENX-1 

130 FOPI-1TG200 NEXT 

140 GETA* IFRtO"l , 'THEN129 

149 REM*«» INITIALISATION BPUITAGE 

5 **• 

139 F0RI"34272T054272*24 P0KEI.16 

KEXT 

160 SI-34272 P0KESI.3 P0KESI*1.5 P 

0KESI*215 RGKES1+3.15 POKESIM. 17 

170 P0KES1+5255 P0KES1+6255 POKE 

Sl*24.10 

190 Vl*4 SC — 100 

189 ,-■;.■■*-* DECOR ••• 

190 P0KE53288-8 P0KE532816 PRINT" 

288 FORI -12288T01 2527 PEADO POKEI. 

NEXT 

216 V=5 3248 

226 F0R1=12544T012551 POKEI.O NEXT 

238 DATA233-233,255,253.235.255,25 

5,235 

246 DATA8,8.6.8,8-e.0,0 

256 DATA6.0.8,24,24,0.e,0 

266 DATFI8. 8 28,127.28.8.8.8 

276 DATA6- 16. 8. 17. 0.63. 67, 9.224.1 

6.72,49,65,269,194 

290 DATR15.55.74.191 137. 144,68 32 

.236,144.36.4.8.240.0.0 

296 DATA0. 6.0. 8. 6, 3, 31, 121, 6, 9, 0.0 

0-224,188.53.9,1.1.3.2.2,6.7 
300 DRTA255.246. 179. 249. 21 7. 251 ,57 
,48.53,156.132.23.248.176.112.224 
316 DATA?. 7. 6. 3-2. 3 1 . 1 . 154, 1 39. 19 
2192. 224. 112. 9.128 



329 HRTA0. 0.0, 0.0. 0,255. 255. 153,12 

6.126.255.255,126.126.153 

336 DRTH246. 126,51, 63, 12? 249,8,0. 

0.O255.252. 240. 0,0,0 

346 DATA0,62,64-64,62- 3.3, 126.0. 12 

6. 65, 65,126. 96, 96.36 

356 DRTA0, 62, 63,65, 127.97,97,97,0, 

62,65,64,96.36,97,62 

360 DATA0, 127,64,64. 126.96.96 127, 

0,127,6,8,12,12-12,12 

370 DATA0, 62, 65. 65-97, 97. 97. 62-9,1 

26,63,65,126.97,97,97 

380 DATA0.65.98, 119. 105, 97.97,97,8 

,63,98,119,103,97,97,97 

390 DRTH0, 65, 65-65. 127-97-97.97 

■100 Pi>EV+24 2S 

410 FGRI-1TO60 POKE1024+INT<PND<1 i 

•470^+1,1 NEXT 

428 PQRI-ITOH POKE1024-INT'PND'l' 

•470, ♦ 12 NEXT 

430 F0RI=1T018 POKE1024»INT,RND'l > 

•476^+1,3 NEXT 

440 P0KE1393.4 P0KE1366,? P0KE1345 

.6 POKE 1346, 7 

436 FOPI-1664T01694 POKE I. 8 ROKEI* 

54272, 11. NEXT 

460 F0RI-1624T01654 P0KEI.8 POfEl* 

54272 12 NEXT 

476 F0RI=1384T01614 POKE1.0 P0KE1* 

54272 15 NEXT 

480 FORI -1344T01 374 POKE!. 6 POKEI* 

54272,1 NEXT 

436 POKE 1286, 6 POKE1207-9 P0KE1245 

■ 10 PrjKE1246,ll »0KE124r 12 Puf E12 

85.13 

509 P0KE12S6.14 

510 FGRI-1O55TO2015STEP40 POKE I. B 
POKEH-54272,0 NEXT 

320 FORI-1504TO1534 PG»:EI. 15 POKES 

4272+1,0 NEXT 

538 FOPI-1704TO1734 POKEI, B P0KE54 

272*1,0 NEXT 

340 FOPI-1B56T01743-TEP40 fof;»iK' 

1 + 7 POKE J, 32 NEXT NEXT 

■■.■:}• PEN*** SPRITES IM 

338 FORI»6T062 PEADO POKE704+I . & N 

EXT 



378 DRTA9, 8, 96-6 0,0 -8.8.6 ^-OO. 

0.0. 0,6 -9, 6-8. 6- 6 0.6. 0.0- 66 6. 

0.0,0 

530 PCiKE2048.il POKEV+33.0 P0KEV.5 

5 POKEV+1,123 

590 F0PI=0T,;,62 PERK ' ;■' ESii+1 . N 

EXT 

600 DATA0,0. 170. 8. 6. 42, 0.6. 42-'"'. 6. 

48 9.0, 1680.2, 160.9.5. 160.0- 37. 16 

0,2.166,169 

619 DATA10. 170. 168- 170. 179. 170 0.2 




^fsti6A65'$j^J 



i-rso 



620 F0RI*294 1 TO2046 POKE 1,13 NEXT 
F0PI=V+46T0V+45 POKEI, 8 NEXT 
630 POK.EV+28,255 POKEV+37.7 POKEV+ 
33-2 

640 F0PI=6T062 PERDi^ P0KE836+L0 N 
EXT 

656 DATA0. 6, 9,6. 6, 0,0. 0.6, 0.6 0-0' 
0-6 .0. 0.0.0. 0,8,0,6. 06. 0,0,0. 0.0, 
9.9, 9 

669 DATR90. 17.0,0,6,9,0,84,0.5-84 
2!. ?4.f. 127. 80.0.127. SI 127.6 



690 DATA?2..128,2.1S2,16.2.90..41, 
96. 129. 149. 85 96.41. 86, 128. 2-90. 4- 
66-170. .18 

798 DRTA2, 128,40, ■ 166,, 64, ., 

,,,,,.,,,0 

718 FOR1-0TO62 POKE 1*1 6356. 8 NEXT 

FORI -8T02 POKE 1 + 1 6236 , 1 76 NEXT 

-2.3 P0KE16239,42 

738 POKE2047.2S4 POKEV+14,35 POKEV 

+15. 173POKEV+46.0 

740 F0RI=6TO62 POKEI + 16320.0 NEI':T 

P0KE16328.243 P0KE16331.95 POKEI 63 

34 . 248 

750 POKE16330.63 P0KE2846-255 

"69 F'ijK EV+21 ,191 

770 FOPI-V+3T0V+I1STEP2 POKEI, HE 

XT 

780 PWEV+2,15 POfEV+4.75 POKEV+6 . 

107 POKEV+8. 13? POKEV+19,169 

730 FORI=0TO62 RERDC P0KE16192*1.Q 

NEXT 
-■iiri rjfiTMM fi ij.ij. 12. fj.rj.6S.fi. 0.44, 8 

0.24.0.0. IS4. 9.6. 232 ■ 0,8. 6,6, 12 
6.8 

?:0 L'RTfw 25':.- 12:3.255. 135- 128.6,25 
5.128.0.127.0.15.255 :iS16.65 4.2 

3*29,116 

?:o r-HTRJO. 1-.2. 13:3.40 162. 133.23,2 
■ 11-,. 16. 65, 4. 15,, :35. 24i 
S2? PEM»»* LANGAGE MACHINE ♦♦* 
.:30 FOP-1 = 3 -:-='"i-.- ' ■.■ I . ■:■■■ -■■ ■< M.ir ;1 

ne::t 

840 DAIA174. 2- 269,202 202,142.2.29 

350 DATR174 4, 209. 202 202.142.4.20 

8 

:>0 I,RTH1746 20S292 20;; 142 u . ,;Ci 

8 

;-» DRTnI-4 >. 203 . 201 202 142 § ■ 26 

& 

388 &ATA17-I. 19268.262,202, 142. 10- 

268-142, 6212, 96 

330 FORI =138007013949 PEADA POKEI, 

A NEXT 



DATA 1 73 , 8 , 220 . 4 1 , 1 . 26 1 . . 
• 96 ■ 1 74 , 1 , 208 . 202 . 1 42 , 1 , 208 
310 DHTA174, 14,266.232,142, 14,208. 
96 

320 DATA1 73- 0.220- 41, 2, 261. 0.240. 1 
-36,174.1 203-232.142.1.208 
930 DATA174. 14 203-202,142.14,268. 

346 F0RI-1389670131S7 PEADA POKEI. 
A NEXT 

950 DATA173.2,208,41,255,201,1,240 
•1 96. 174.235.3,142.3.288.96 
360 thTR!73.4 26?. 41. 255. 201. 1,246 
■1.96.174.235 3. 142. 5. 20S. 36 
3"'; I'ATR1^?6 iO> 41.255.201.1.240 
I 36 1-4 ". ,J ; ' 298 -'-6 

EM 41 255-261.1,240 



,52.32.78 

1160 DATH52.32. 115.52. 32.115.52.96 
1169 PENt** DECGP 'SUITE' *♦« 

PPPPFPPPPPPPFPPPPFfPPF'PPP" 

11S0 --I'.' ■)'■' '«:i HW.-K1 i,,., 

■aOPtMMP' 

1 20M PC I ,;T ■' PPF F F PF - FRPPF F ■- -- F r F 

PPPPP" 

1210 F'FINT-TTTTTia T ] U S U" 
1220 F0PI»1663T0102:-;7EF4O POKEI 
-POKE 1*54272. 8 NEXT 
1230 F0RI-1662T02622STEP46 POKEI. 
POI-EI+54272.0 HEIvT ^^^ 

4'-f»FniMrp««iii;'piwiirp" 

1250 PRINT*»«ir7HB(33>"BaWBT»HJ 

1260 F'PlNT-'fllWWTHE' 36 ■ "-. HHI "WirVW 

rE" 

1276 FOPI=1655T01063 POKEI, 8 POKEI 

•54272. NEXT 

1288 FOPI=2615TO202l POKEI. 6 POKEI 

•54271 NEXT 

1230 FORI=1615T01621 POKEI. POKEI 

'54272-0 NEXT 

1297 REM --.--....-...-•...-... 

1298 REM * COPFS DO FPOORAMME * 
123? REM ********************** 
1366 TU'-orjOOOO" 

1310 SVS49152 FOlE532T=: SC'iC-lO 
P0» EE 1*4, 17 
1319 F'EMt** TREtEF-J 1 *** 
1310 SV=4?152 Pi>Et'Jl3 INT.FND'l'* 

L1SH44 

1330 IFPEEh '5327S- ..OTHEH1390 
1340 SV-349I52 

1350 IF127-fEEK<56328>*lEflNDlTHENl 

669 :.'-'S4?15; 

1366 lFTi-156HJAHDH _60mThEI1| S30 

3 20* -lOl- 202. 202 .201 1170 'ivl.43152 IFT I ! 5000THEH1 -i6iJ 

1.9.208.232. 142,9. 26S 1 3S0 G0T0132O 

138? PEM*** SCF'ACH ♦♦* 

1338 PC*EV+2I 190 F'i>Ev+-?.8 POKEV 

• I-PEEK'V'l .-10 F'C'F£V*23 1 P0KEV*2 



1 96-l"4 253 :-■ 142. 9-2 

930 wmnn n zm 41 29s<2ei*i<z4 

0-1,36.174.253.3,142.11 208,96 

1896 DATA17?. 12.208.41,255,261 .12 

48,1. 96 I 74. 255, 3, 142 13. 298,96 

1016 F0P1=13312T013473 PEADA POKEI 

■A NEXT 

1026 DATA174 . 2 ■ 268 262, 202. 202. 142 

■1.212,142.2.208.174-3,208.232. 142 

-3-208 

1030 DATA1?3,3.20S-41.127.261.0.24 

0.1. 36, 174. 255 3. 142. 2. 208, 162, 30. 



B8 41-127 

1056 PATA201. 0,248, 1,96. 174-255 3. 
142 4. 208. 162 36. 142,5. 268. ?6 
I960 DfiTAl74.6,288.262.262. 142-6 -1 
03 174. 7. 203 232. 142. 7. 208. 173, 7. 2 
88.41.127 

1679 DATA261 0.240.1.96,174.255.3. 
142.6.208. 162- 30. 142. 7- 208 -96 
1080 DATA174. 18.268 262.202.142.10 



I PEM**. APREL3 SOUS -PPOGPAMMES 

1116 F0RI-49152T049185 PEADA POKEI 
■B NE"T 

1120 DATA32 30.32200 50 32 ■ 223 ■ 

56.32 0.51. 3^.17.51-32. 34.51.32.0. 

58 

11?0 DATA32-51-5I32.6S-51.32.35 5 

1 32.0.50-96 

1140 FCiRl=4?260T049236 PEADA FOtEl 



1466 PO1E2O40.15 P0(E'-.'.2l 131 
1416 POKESI+5.15 PC»ESI+'.".6 POI ESI 
+ 1,2 PCHE2640.I5 PQf EV+21 . 131 FO' E 



1440 St'S43161 MEXI F0RI=1T0180 f 
J-1T06 NEXT SVS49161 NEXT 

1450 FC'FI=342-JTCi54:T2 + i4 POKEI- 



RING 



Savourez ici ie plaisir subtil de cogner et de vous faire 
cogner. 



Raphael BARTHE 




10 iJDSUB1670 

20 tmjTmmmmn votre nww;n* 

Af=LEFT*(NI,3> 
38 IFN*"'" , THEN28 
40 PRINT'TTJJN INSTANT SVP ..." 
30 R"l S1-0-S2-0 
60 X-53-V"165 ^ Y2=90 : X2-235 
70 FORI"0TO62:RERDR P0KE12288+I,R 
NEXT I 

80 FORI-0TO62 RERDRP0KE12352+I.fl 
NEXT I 

90 FORI=0TO62 RERER P0KE12416+I.R 
NEXT I 
100 F0RI-9T062 RERDfl ! P0KE12469+I .R 

NEXTI 
110 FORI-0TO62 RERDA P0KE12S44+1 , A 

NEXT I 
120 FOR I "91062 PEADA P0KEI2696+I ■ A 

NEXTI 

130 FOP1-0TO5 POKE2049+1, 192-1 NEX 
Tl 

140 POKE33261.8 V53246 
130 POKEV, X POKEV+1, Y 
1 60 P0KEV*2. X : POKEV+3 , V : PDKEV*4. X2 
-POKEV+3, Y2P0KEV+6, 50 POKEV+7,100 
170 FOKEV+6,168 PUKEV+9,100 
IBB POKEV+I0, 100 POKEV+11,100 
190 P0KE33276,PEEK<53276)0P<2T8> 
290 P0KE53276 :PEEK( 53276) 0P'2TP 
210 P0KE33276,PEEK(33276>0P^12) 
220 P0KE53276,PEEK(33276)QR(2n> 
230 PUKE53276,PEEK-:53276.>GR<2T4) 
240 P0KE53276,PEEK<532?6)ORC2f5) 
,'..;, -HKEV+39,10 POKEV+48.10 POKEV* 
41.8 P0KE53283 , 7 P0KES3286 , 7 POKEV 
♦42,9 

260 POKEV+43,18 POKEV+44.8 
279 prjKE33277.63P0KE53271.63 
288 TI*-"000900" OOHIB770 POKEV+2 
.5 

290 PEN COMMRHDES 
308 REM 

310 JOPEEK(!S320> DI"INT(RNB( 1 >*1 
2J + 1 

32? PFIHT-'WB"," ".A*. SI, "CEri" .'-,k 
330 IFUORND16J"0THEHiiOS"JB600 
340 IF(JORND15>=7THENX-X+20 
350 IF I JORNI)l5>"llTHEM/=.';-i-0 
360 IF' JOAND15^13TNENY=Y+20 
370 IF(JOAND15;=14TNENV=V-20 

380 [noasmwewKB 

390 IFX<«55THENX=55 

400 IFV>"I83THENY-185 

410 IFV<=90THENV-90 

420 ON DI D08U8 470,500.530,566,10 

60.1060. 1069, I860. 1060. I960. 1069.1 

060 

430 POKEV. X POKEV* 

0KEV+5.V2 

440 1FS1>14ORS2>4THEN1230 

430 I FT 1 *>=" 800025 "THENGOSUB 1360 

460 GOTO 310 

470 REM CBM RVRNCE 

460 X2-X2+20 IFX2>*255TMENX2«233 

490 RETURN 

380 REM CBM RECULE 

310 X2-X2-20IFX2-C-35THENX2-35 

320 RETURN 

330 REM CBM DESCEND 

340 Y2-Y2+20 IFV2J-185THENV2-185 



530 RETURN 

360 REM CBM MONTE 

370 V2-V2-20 IFV2O90THENY2-90 

389 RETURN 

390 DY. 

699 REM COUP 

619 REM 

620 PQKEV+38.1 

630 X1"X-V1"Y POKEV+2.X1 POKEV+3, V 

1 POKEV+21, 6 

640 IFPEEK<V+39)RNDX-XlTNEHvO r ..[.;:, 

9 BOSUH138 POKEV+30,0 

650 IFPEEK<V+30)RHDX«XlTHENr>O=u£63 

G0SUB1138 

660 FQRI-1TO100 NEXTI POKEV+21. 5 

670 RETURN 

680 REM BRUIT 

690 REM 

709 VL=54296 BS»54272 FV"54276 RD« 
34277 

710 AD-54278 HR-54273 POKEVL, 13 
720 POKERD.0 POKESR.0 

730 POKEFV, 12? PO'Eir- 253 ■ *t— ■■ 

6 

740 F0BI-1TD25 NEXTI 

750 POKEflD.B POKESR,0 POKEFV. POK 

EVL.0 

76B POKEV+21, 5 RETURN 

770 REM DESSIN RING 

780 REM 



1000 PRINT" 



1020 PRINT" 
1030 PRINT" 



9 C2*10 RS*20 

1480 IFR2>R1THENX4-110 X5-190 Cl»l 

C2-B HS-17 

1490 REM FIN PAR NOMBRE BE COUP? 

1500 REM 

1510 POKEV. 119 POKEV-1,123 PGKEV+4 

.190 POKEV+5, 125 : FORI - 1 TQ500 NEXT I 

1320 P0KEV+8,X5 POKEV+9, 125 -POKEV* 

44. C2 



OUND " i R 

1030 RETURN 

1060 REM COUP CBM 

1070 REM 

1080 X3-X2 Y3-V2 POKEV+30,8 

1090 P0KEV6.X3 POKEV+7-, Y3 : POKEV+2 

1.9 

1 100 IFPEEK<V+30>RNBX3"X2THENGQSUB 

680 G0SUB1 180 POKEV*30. 

1110 IFPEEK<V+30>RNDX3"X2THENQOSUB 

680 GOSUB1I80 

1120 FORI-1TO100 NEXT T POKEV+21, 5- 

RETURN 

1130 REM CBM RECULE 

1140 REM 

1130 F0RI-1TG3 P0KEV+4.X2 /2-X2+I8 

1169 IFX2>-235THENX2»255 

1178 NEXTI Sl-Sl+1 RETURN 

1190 REM BOX. RECULE 

1190 REM 

1200 FQRI-1T04 POKEV. X x*x-18 

1218 IFX<"35THENX*33 

122B NEXT1S2-S2-1 RETURN 

1239 REM ANALYSE GAGNANT RRR KO 

1240 REM 

1250 IFSIM4THENX4-110 X5-190 Cl-1 
C2«8 

'.26? :ps2>"-*£!..- = :.-? ■= = :■..? ;; = - 
C2-10 A*-"CBM" 
1279 REM FIN DU JEU PAR KO 
12B0 REM 

1290 POKEV, 110 POKEV+1,125 POKEV+4 
. 1 90 POKEV+3 , 1 25 FOR I ■ 1 TO500 NEXT I 
1306 POKEV+6.X4 POKEV+9. 125 POKEV* 
10, X5 POKEV+1 1,125 P0KEV*4?,C1 POK 
EV+44.C2 
1310 POKEV+21, 48 
1320 PRINT" — 



1550 PRINT "jmumiMtM VHINQUE 

UP ",flt," RUX ~ 

1560 PP1NT"»»M»MP0INTS RUST, P." 

EME ROUND" 

1570 REM RPPLRUDISSEMENTS 

1580 REM 

1590 POKEVL. 10 POKERB, 190 POKESR.0 

1600 POKEFV, 129 POKEBS, 1 P0KEHA.45 

1610 FORI=1TO500G NEXTI POKERD.0 

1620 POKESR,© POKEFV, 129 POKEFV. 

1630 POKEVL, 

1649 F0PI-1T019 GETXI NEXTI 

1650 C-ETX* IFX*=""THEN1630 
1660 RUN 

1670 REM PRESENTATION 
16B0 REM 

1690 P0KE53248+2I POKE33281-0 PO 
KE53290.0 

1708 PPINT"."TI *** H E I D D G 
I C I E L *••" 

1718 PRINT 1 * P R E S E 

N T E " 

1728 PRINT"!! 

■ ■ IBB' 
1738 PRINT" 

■ I I" 
1748 PPIN" 

1738 PRINT" • I 9 ■ I 

■ ■ I I" 
1760 PRINT" 1 ■ > ■ 3 

■ ■ HV 
1770 PRINT"«EOD*MIMIB»l COMMiJD 
ORE 64" 

1780 --:-• ::>.<,F»iiMiiii par bprth 
E RAPHAEL" 

1790 PRINT"SB I tnTAPEZ UNE TOUCH 
E POUR COMMENCER" 

1600 PRINT" im TAPEZ *T1S1 

POUR LA REGLE" 
1610 OET X» IFXf»""THENlB10 
1820 IFX»OCHR«<I33'THENRETURN 
1830 PPINT"^!! ^ mf 



1910 PPINT"in CL'ORDINRTEUP DOIT V 

OUS BONNER 5 COUPS" 

1920 PPINT"POUR VOUS METTRE K.O.AL 

ORS QUE VOUS, VOUS", 

1930 PRINT"DEVEZ LUI EN DONNER 15> 

1948 PRINT"OT 3 BONNE CNR 

NCE l M J" 

1950 PRINT"M RPPUVES SUP UN 

E TOUCHE " 

1.H-.C! UETXJ IF:<«"" ,, THEN196B 

1970 RETURN 

1989 REM SPRITES 

1990 REM 
2000 REM BOXEUP 

2020 BRTR 5,64,0,5. 128, 9,£, 126, f 
2031 [=(TH e. 129.0-2,6.0, 10. 132. i 
2040 DATA 10,72.0.10.160,0,10,128, 




DRTR 10, 129,0. 10, 128.0, 4,64, G 
DATR 4,64,9,5.64,0.2,0,0 
DATA 2,0,0,2.9,0,2,0,0 
DATA 1,0,0. 1, 64, 9.0, 0,0 
REM rrnjp DROIT 
BATA 1,80.0,1,96,0,1.160,0 
DATA 1,160.0,0.129,0.2,170,16 

BRTR 2,144,1,2,160,0,10,12 
DATA 10,126.0,10,128,0,4,64.0 
DflTR 4,64,0,5,64,0,8,128,0 
DATA B. 128.0.32,32,0,32,32.0 
BflTA 64,16.0.16.20,0.0,0.6 
REM ENMEPII 

BRTR 0.1,60,0,2,88.0.2.144 
DRTR 0,2,144,0,0,128,0,18,160 
BRTR 0.33.160,0,10,160,9.2,16 

DRTR 0.2,166,0,2,166,0,3,112 

DRTR 0,3.112.0,3,240.0.0,128 

DATA 0,0,129.0.0,128.9,0,128 

DATR 0.0,192,0.3,192,0.0,0 
REM COUP DROIT 

DATR 0,5.64,0,9,64.9,10,64 

BRTR 0,10,64,0.2,0,22,170,128 

DflTR 16,6.128,0,10-128,0,2,16 

DRTR 0,2,160,8, 2, 160, 8, I. 16 

DRTR 0, I, 16.0, 1,60,0.2,32 

DRTR 0,2,32,0,8,8,9.8,6 

DRTO 0.4,4,0,20,16,0.0,0 

(it. -I '.■niNGueu* 

DRTA 4,84,64,4,164,64,8.164.1 

3 DRTR 9,164,128.9,32,126,2.170 

BRTR 0,166,0,0,168,0,0,166,0 

DRTR 0,168,9,8,169,0.0,84,8 

DATA 8,64,0,0,68.9,0,136,8 

DATA 0,136,0,8.136.0.0.136.0 

BRTR 0. 136, 0,0, 6B, 9, 0.68,0 

REM K.O 

BRTR 0,0.0.0.0,0,0,8,0 

DflTR 0,0,0,9,0.0,0,8.0 

DflTR 0,0,0,0.0.6.0.9,0 

DflTR 0,9.8,0,0,0,0.0,0 

DRTR 0,0.0,0,0,8,0,32.8 

BRTR 0,32,0,0,32,32,8,20,132 

DRTR 0.130.4.106,150,169,0.0, 



SPACE 
STORM 

' Suite de la page 72 



NEXT 

1460 P0KESI5 POKESI+1.5 POKES I +2. 
15 PDKESI+3.13 POKESlMjl? 

1470 POKESI+5.255 POtESI+6.1'55 POK 

£'■1+^4 in f'i;ke'-'+;i.i90 

14S0 POKEV+39.0 PrjKEl-O40.il FORI-V 

♦3T0V+13STEP2 PWEI.O NEXT-P0KE532 

7B.0 

1490 POKEV+23.0 POfEV+29.0 POKEV+1 

■125 POKEV+21 -191 POKEV+14,95 

1500 VI=VI-1 IFVK0TKEIU570 

1510 IFTl>2S08flMDT] SeeeTHEHPOKEV* 

39.11 

1520 IFVI-3THENP0KE1698.32 P0KE169 

9,32 

1530 IFVI-2THENP0KE1778. 32 P0VE177 



9. 32 

1540 IF'..'I = lTNENP0KEl&53-32 P0i.El'i5 

9-32 

1550 lFVI"0THENP0t'Ei:-O:- :2 FOKE193 

istO OOTO1320 

1569 PEM»*# FIN DE JEU «*• 

1-7.? PW E v*21.0 PC*E532Sl-0 F0KE5: 
280-11 PPINT'TJ" POKEV+24,21 
1580 PRINT "1MPLUS DE VR1SSERUX. . . 
BOtlMRC-E '" 
V,i-{) POi EiI+24.0 

L6ee ppiht-bwccope n".Ti+sc 

1619 PRIHT-JWJWJME AUTRE 1 (O/NjH 

1620 OET Rt 1FN1»""IHEN161'0 
1630 IFR»="N"THENEND 

1640 IFflf-"0"THENCLR RESTORE P0KE5 

■jl7?.<d PIJN 

1-70 r.rir0162O 

165? PEM**t TIP •♦♦ 

1660 P0fEV+13.PEEK'V+l ■ P0KEV+12.P 

EEh .-■,'■ + 15 fOtEV+21.235 

167fi =-V^4915i' FOKESI+4,129 

1630 F0Rl*79TOa58STEPiB PWEV+I2-1 

1690 SVS49152 

1700 lFPEEK(3327S)<J«nHBFEEKC53278 

K97THEN172a 

1710 NE::T POKEV+21. 191 POKE53Z7S.0 



P0h;Eri+4,17 GOTO1320 

VJi IF' LEt ■\.y^:i ■=66THF_NF0hEV + ;.0 

n>t..-l [-31 .:.r.T013l9 
1730 IFPEEl ■' 53278 >«€8THEHP» EV+5-0 

pot Ev-ii-i.-i ijOTome 

1740 lFPEEK'53273'=72THENF0tEV+r.0 

Fu' EV+Il . i:n I1.0T01310 

1-^0 IFFEEl J 5.! t 7!r.=3OTHENP0I.EV+?.O 
f>e +.: :.-: i-touio 

1"'? I"- FEE. r ,'..~: ■=?6THEIIF'0fEV+ll 

Fy»E'.-*21 1.-1 GOT01310 

lT'-o :VS49152 

1790 IFPEEt 5:-JT:J . = .:i.iFFEE( ■■:._"•■; ■ = 

5THEN139fl 

1890 IFPEEK'53273-=OORPEE1- 53278' = 

1 7THEN1 390 



-XE-I-- 



17 POKE 



1 :?■:*>> FOKEV+39,0 F'jfE5:2=l .^ 
13-0 PMiEV + 2?-3i 

1890 F0PI-56132T056156 P0KEL14 HE 
XT F0RI=56192T056!96 POKE I. 14 NEXT 
IXiO :=0 FOFI=v+3Trj','+?' : lEP2 :-:^::+25 
POfEIX NEXT POKEV+11,150 
1910 SVS492O0 P0KElB23.IHT-PNIf.r-* 
155 -+30 

1920 IFPEE*. '53273'-'.: 9THEH1360 
1938 SVS49200 

1940 IFTI>750ORNDT1 :r60nTHEN2140 
I :-'_■< OOT01910 
1959 PEM*«* SCRRCH TRBLEBU 3 ET 4 



1970 POKE2O40.I5 POKEV+21 - 191 
15--I0 P0KE1I+515 P0IE=.I+6 F'>E-1 

♦I, 2 POKE2040.I5 POKEV+21, 191 POKE 



:> POiEI 14 iie::t 



3 NEXT FOP1=1TO100 FOPJ=1T010 N 
EXT NEXT 

202O F0PI*54272T054272+24 POI EI ■ lU 
NEXT 



2030 P0KESI.5 PC* ESI + 1 .5 PO:'ESI+. 

15 P0IE3I+3.15 P0KE31+4.17 

^14i: PTjv t E I -I- .55 K*Ell*6-255 P'J> 

EM+;'4 19 POtEV+21,190 

i-05-J F0IE-,--.-3.0 f:'EI04Q.11 P0KE53 

278.0 

..■yi-O P'jlEV+23.0 Pnh-EV+2?, i2 POKEV* 

M25 POKEV+21. 191 

2870 VI=VI-1 IFVl-:0THE(U':-;'0 

2838 IFTI>7580THENPOKEV+39,U 

2d?Z IFVI=3THEHP0KE1698,32 POKE I 6! 

9-32 

2100 IFVI»2THENP0KE1778,32 P0KE171 

9,32 

2118 ifvi = ithenf-u(eiw. :-; foi-ei>-5 

9,32 

2128 IFvl=»THEIfPi;HEl?:<S.32 P0KE1?-: 

9,32 

:i>j C0T01369 

2139 PCHt** FRILERU 4 **« 

2140 PC*E5?2?1.0 POKEV+44,9 POKEE 
280.11 POKEV+39. 11 

:■!•;» F'jF-I -7.-; I'ivTuT-i.lc.^ POIEI. 14 «E 

;:T F0PI=56i.=-in:i5-:-.,-i:i> foiei.m next 
il'Ai OOTO1910 



CITRONNADE 



Oevenez par votre sens des affaires et malgre la 
concurrence, le pape de la citronnade. 



EXELVISION-EXL 100 



J. F ESTORGES 



1 i** STAND DE CITRONNADE •• 

2 ! COPYRIGHT J.F. ESTORGES .. 

3 '■ ■•GRAPH ISME H.D.*»tt 

4 QUAS=0:CIUAC=O: J = 1 : CLS ■■UBe 11 :CALL 

5 '..•MER SOLEIL NUAGE....** 

6 FOR 1=0 TO 33 



1=0 :&■ 



-I:D=] 



!,C,D):NEXT I 



8 GALL 

3 FOR 1=0 TO 30 STEP 3 

10 A=0:B^0:C=1O.COS<I):D=1Q.SIN(I) 

11 CALL LINE("Y",A,6,C,D):NEXT I 

12 FOR 1-0 TO 30 STEP 10 

13 A=0:6*0:C=2Q.C0S(I);D=20.SIN<I> 

14 CALL LINE("Y",A,B,C,D) 

15 NEXT I 

16 FOR 1=0 TO 180 STEP 3 

17 A=70:B=0:C=70.B«COS(I> :D=B.5IN(l 

18 CALL LINEl"W",A,B,C,D) 
13 NEXT I 

20 FOR 1=0 TO 180 STEP 3:A=5S:B=0:I 
3.SINII) 

21 CALL LINE<"U",A,B,C,D):NEXT I 

22 I.PALISSADE SERVIETTES PARASOL. 

23 CALL LINE("B",22: 

24 CALL LINE< N B",13! 

25 CALL LINE("B",133,28,: 

26 CALL LINE("B",179,35,' 

27 CALL LINEC'B", 173, 35, i 



CALL I 



"B",173,. 



133,29) 



1=0 TO 53 
1.75/53:8' 



•J', 



.INEC 



80,53) 

I:C=313:D=I 

3,C,D) :NEXT ] 

-130-1. 1/23." 



5«RND:E: = 23*I»1/23*10i. 



31 CALL L 

32 FOR 1=' 
RNO:CALL PLOT ( "Y" , A ,&> 

33 NEXT I:E=0 

3d FOR 1=1 TO 53 

35 A=170-I»2.RND«5:8-ItRN0HS:CALL PLOTCC" ,A,B; 

38 NEXT I:E=E.1:IF E'E THEN GOTO 37 ELSE 34 

37 CALL LINEC'R", 145,45, 125,45) 

3B FOR 1=0 TO 5:A=145.I.2:6=45-I:C=A.3:D=B 

33 CALL LINEC'R", A,B,C,B) 

40 CALL LINEC'R", A-20,B,C,D)iNEXT I 

41 FOR 1=0 TO 5:A=175.1.5.I:B=17-I:C=A.15:0=e 
NEXT I 

6=55-1 :C=A. 24:0=8 
NEXT I 

5 FOR 1=0' TO 30:A=17£ 
8 IF D)53 THEN 0=53 

7 CALL LINEC'B", A, B, C, Dl :NEXT I 

8 FOR 1 = TO 2B:A-133.I»36/2B:6=2B 
IF E:<8 THEN 0=0 



CALL 


LINE! 


•M 


,A 


B 


C,D 


FOR 


=0 TC 


S 







+ 2* 


CALL 


LINE! 


■M 


(A 


b 


C,D 



• 34/30:8=35. I* 24/ 30:C-A:D "I 



) CALL 



.INEC'B" 



,8,C,I 



NEXT 



CALL LINE( 
CALL LINE( 


-v- 


,40,38,35,40) 
,90,13,75,21) 


CALL LINE' 




,90,30,00,34) 


CALL LINE 


'■"'■ 


,S0,S=,40,59> 



0"„ FOR 1=0 TO 1B0 STEP 7 : M 1 98 *3«S IN ( I ) : i 

SE D=7.6*C0S(I.1B0) 

5? CALL LINEC'R"',A,B,C,B):NEXT I 

5B CALL PL0T("e",133,7) 

53 CALL LINEC'B", 135,3,190, 11) 

80 I -STAND DE CITRONNAOE* 

61 FOR 1=0 TO 12:A=240:E"59-I:Cc313iD=8 

82 CALL LINEC'R", A, B,C,D)[NEXT I 

63 FOR 1 = TO 12:A = 295:ES = 53-IiC>=305:u-Ei:1 



64 CALL LINEC'B" . 236 ,52 .23E 

65 FOR 1 = TO 20:A=240.I:E= 
Y",A,8,C,01 :NEXT I 
86 FOR 1-0 TO 20:A=240.I:B* 
"C",A,6,C,D) [NEXT I 

67 FOR 1=0 TO 20 STEP 5; A=£41 .1 iB=47- 
L LINEC'b",A,B,C,D)lNEXT 

68 FOR I---0 TO 10:A=263.I:B=37-I:C"31S 
B",A,B,C,D):NEXT I . 

63 FOR 1-0 TO 53 STEP 7:A-I 
2B THEN B-29 

70 CALL LINEC'b",A,E,C,D)iNEXT I 

71 FOR 1-0 TO 2:CALL LINE ( "b" ,24 



72 FOR 1 = TO 9:A: 
A,B,C,0) iNEXT 

73 FOR 1-0 TO IS : f 
C",A,B,C,D)iNEXT 

74 CALL LINEC'b'V 



)=6:CALL 1 
13:D=B:CALL 



■BiCALL L; 
C«A:D=36 



75 CALL LINEC"l>",2l 
268,25) 

76 FOR 1=0 TO 133:1 
G",A,S)rNEXT I 

77 IN«**"CX1 



81 .CALL 
260,231 

82 CALL 



86 CALL 
281 ,23) 

87 CALL 



OiB 


■24- 




404 


UB" 


6-1 


,16 


290 


0)1 


.26 


266 


26) 


263 


.RKO 


54 1 


■ 1! 


::^e 


22) 


.23 


,258 


23) 


,16 


263 


23) 


■ It) 


2/0 


19) 


,18 


273 


23) 


«81 


275 


21) 


,13 


276 


20) 


.19 


273 


22) 


,18 


261 


18) 


.1B 


285 


23) 




2R7 


21) 


,18 


291 


23) 


,?0 


293 


21) 


,19 


297 


23) 


,18 


293 


18) 


,18 


303 


23) 


,23 


305 


23) 


,18 


303 


23) 


.23 


312 


23) 



C-313: 
CALL LI 

CALL I 
B-3B.8i 

:CALL I 
tCALL I 



:CALL 

:CALL 
:CALL 



CALL L, 


NEC'Y 


"BlCAL 


LINE 


EC"b". 


13,5, 


NEC'b" 


263,2 


NDiCAL 


.LOT 


NEC'b" 


257,1 


.OT<"b" 


259,2 


NEC'b" 


26B,1 


NEC'b" 


273,1 


NEC'b" 


D7=,Z 


NEC'b" 


m,< 


NEC'b" 


280,2 


WW 


288,1 


«<-.- 


234,1 


NEC'b'- 


300,1 


NEC'b" 


233,2 


NEC'b" 


303,1 


NEC'b" 


308,1 


NEC'b" 


303,1 


NEI"b" 


303,2 




See*! fPene-PAKj 




Y", 260, 36, 253, 36 
M", 205,47, 285, 44 
3:CALL LINEC 



05 FOR : 

06 CALL 

07 CALL 
OB CALL 

09 CALL 

10 CALL 
CALL 
CM L 



LINE("C",296 


33 


298, 


LIN£("H",287 


3? 


289, 


LINE("M",2B6 


31 


288, 


LINE<"M",2B7 


30 


288 i 


LINE("Y",2BB 


30 


289, 








LINE C'Y", 287 


."■< 




LINE<"C",2B6 


VU 


283, 


LINEC'G", 287 


?B 


283, 


LINE("b",286 


35 


288, 


LINE!"b",2B5 


36 


287, 


LINE("M",2B2 




286, 


LINE C'Y", 2B2 


96 


283, 


LASHING»»»... 






WBB"iCALL CO 




"OKB 


"SSTTAANNDD 


DDEE 


PRESENTATION 






COLOR C'OUJB") 


LOCATE 



I CALL 

CALL 



7 CALL 

8 CALL 
3 CALL 



25 LOCATE C10,3):PRINT "Et 
on. ?":LOCATE (11,10) 

26 INPUT P*:LOCATE <12,5>:PRIN 

27 LOCATE (13,3):PRINT "Con 
et=5":L0CATE (14,3) 

20 PRINT "dans une station 



,204.1 ,41 
.283.42-: 



183 LOCATE (9,3):PRINT USING'PRIX DU SUCRE :tm.II",F 

104 LOCATE (10,3):FRINT USINC'PRIX DU CITRON :b.H", 

IC; :PRINT "par unite" 

165 IF J=1 THEN LOCATE (12,1):PRINT " IL FAUT 10g DE S 

UCRE FOUR UN UERRE ■ " 

186 IF J=1 THEN LOCATE (13,1):PRINT "*1 CITRON PERME 

DE FAIRE 5 VERRES." 

197 ! .««ACH ATS. .».«••.. ». 

188 IF J=1 THEN A=15 ELSE A=12 

1B3 LOCATE IA,6):PRINT "VOS ACHATS:" 

130 INPUT "SUCRE leu kg):";QUA5A 

131 INPUT "CITRON (unites >:"; OUACA 
192 IF DUASA.PR1S.QUACA.FRION THEN GOTO 183 

133 N=N-<QUASA.PRIS)-<QUACA.PRIC) 

134 PRINT USINC'IL WOUS RESTE MUttl ■ 11" ,N; :PRINT " F. 

135 QUAS=QUAS.QUASA:QUAC=OUACtQUACA 
196 LOCATE !A.5,6) :PRINT USINC'STOCK : HH . OH" , QUAS; : F 



197 I 



1*6,12); 



" UGING"] 



,QUAC; : 



" FRO ID" 



3):PRINT "Bonjour ,b; 



; pouvez 



23 I 



INT ' 



6,3):PR1NT "foul tela vuu5 
[ (17,3) 
votre stock, du temps previ 



:CALL COLOR( 



.E"iflitt1* 



':LOCA- 



■:LOCATE 
': LOCATE 



Ptre ": LOCATE ( 
dont":LOCATE < 
rche":LOCATE (1 
re 5era";L0CATE 



200 !.. TEMPS. ..».»«. 

201 UARTEN=INTRNDC100) 

202 IF UARTEN<=10 THEN T*=" 
("0t<B"):H=,0E6B6eS666 

203 IF VARTENMO AND VARTEN<=30 THEN T»="NUAGES, TIEDE 
":CALL COLOR! "ORB" ) :M=. 133 

204 IF VARTEN>30 AND VARTEN(=70 THEN T»-"50LEIl 
EL E;LEU":GOTO 205 

205 CALL C0L0Rl"0C8")iM=. 268666 

206 IF UARTEN)70 THEN T*="TRES CHAUD ET 8EAU":CALL CO 
LOR t"OYB"):M=. 533333 

207 LOCATE (3, 14):PRINT "LE TEMPS ESTi 

208 LOCATE (11,(40-LEN(T*))/2):PRINT l 
203 A»-KET» 



"UOULEZ VOUS FAIRE DE LA PUE 
1,1 ,1)="0"THEN GOTO 214 ELSE ( 
■ "COMBIEN D'AFFICHES UOULEZ UO 
(EN GOTO 214 

. vous reste nniin.iti 





10 


THEN 


12 LDCA 


F 


14,3 


CITE ?" 






13 INPU 


R 


:IF 



218 At=KEY* 

213 CLS "WBEi":LOCATE (7,1):PRINT "J( 

220 I..FA6R. vERRES. ....... 

221 LOCATE (3,3):PRINT "UOUS DEUEZ ( 
OS ":LOCATE (10,3) 

222 F'RINT "UERRES FOUR LA JOURNEE " 



i.'.:l, loc;ate (15,4):PRInt 
22g locate (16,4):input 

227 IF NE;VER)GLtAS/.01 OR 
LSE GOTO 230 

228 LOCATE ( 1B,2) :FRINT 
DE UERRES":PAUSE 2 
223 LOCATE ( 18 , 2) :PRINT " 

":GOTO 226 

230 A=NByER/5:IF A< ) INT( A)THEN A=INT(A).1 

231 DUAS=QUAS- (NBOER.,01 ) ;QUAC=QUAC-A 

232 LOCATE < 1B , 4 ) iF'RINT USINC'St ock Uln.llH 
NT "hgs de sucr e" 

233 LOCATE ( 1 3 , 10 > :PRINT USlNG"linu " , OUAC ; 



SING" 


tack :im.ntr',DuA5;: 


USING 


HUH "iPUACjiPRINT " 


COMB I 


N EN FAITES UOUS ?" 




verr-es:";NBUER 


NBVER 


5.0UAC THEN GOTO 22 


STOCK 


TROP FAIE^LE POUR LE 



DEUR MDYEN' 



:LOC 



:PRINT "Uous . 
=0 TO 12:L0CA' 
);CALL COLORC 



E:ON vENOEUR":L0CATE i 



16,8) 



EUR DEBUTANT" 
INPUT NIU:IF 
>3 THEN GOTO 
IF NIV=1 THEN POPTOT=200.1NTRND(500) 
IF NIV=2 THEN F'0PT0T=400. INTRND(500) 
IF NIU-3 THEN P0PT0T-700.INTRN0(500) 
: FOR 1=0 TO 11:L0CATE (3.1 , 1 ): PRINT RPT* 

!..*.PRES. 4« «..»■« 



du": LOCATE 


234 


LOCATE (20,10) :F'RINT NBUER;" verres pret.s 




235 


LOCATE I21,3):INPUT "PRIX D'UN VERRE(.B-) 




236 


IF P(.B OR P)2 THEN 235 




237 


LOCATE (22,23):CALL COLOR( "OYBLIF" ) :PRINT 




238 


At=KEY» 




233 


I...RESULTATS DE LA JOURNEE*. ■ 




240 


CALL COLOR("OUB")lCLS "UBB":LOCATE (7,1): 




OUR 




ENTREE" 


242 


P0P=POPTOT.MitRNO/2:PT = POP.(LOC(NBAFF.1).P 
IF PTJF'OPTOT THEN PT=POPTOT -P0PT0T/9 




*" 


AD=INT((PT/(p-1.2))n2.5) 
LOCATE (22,23) :PRINT " ■■ 














246 


LOCATE (3,(40-LEN(BI»))/2);PRINT BI*;J 




Ipr 


LOCATE (11,E):PRINT "DFFRE : " ; NBUERtLOCATE 
NT "DEMANDE:";AD 


U<>2 AND N 


248 


IF AEDNBUER THEN y=NBUER 






IF AEK-NBVER THEN U=ad 




250 


LOCATE (12,13) :F'RINJ "VENTE:";V 




251 


LOCATE (13,13) :PRINT "ENTREES :" ;U.P 



• F'OP.RND/3) 



tta.H",N; :PRINT " F." 

254 PAUSE 

255 IF N(.05 AND 0UAS=O THEN GOTO 264 

256 IF N(.OS AND OUAC=0 THEN GOTO 264 

257 IF POUR=0 THEN GOTO 253 

25B LOCATE (16,10):FRINT "DONT" ;POUR; "F . OE POURE:OIRE" 
253 LOCATE ( 1B, 10) :FRINT "VOULEZ SOUS CDNTINUER ?";CA 
LL KEY1(A,8> 

260 IF A=73 THEN GOTO 263 

261 IF A=7B THEN GOTO 262 ELSE 253 
282 CLS "CeB":LOCATE 



i-M" I LOCATE <2 

'0 PRINT "que d 

'1 FOR 1 = TO 1 

ItCALL COLOR* 

2 LOCATE (22,1 

3 U..PRES. 

4 LOCATE (1 



:LOCATE (3.1 



3):F'RINT "ETES UOUS ' 



263 LOCATE (15,: 
BIEN ":GOTO 267 

264 LOCATE (15,: 



. COLORC'OTB 266 LOCATE (20.3); 



1RS.AU REVO I R "; 
E5PERE OUE VOUS VOUS ETES 
UOUS N'ETES PAS UN ErON VENDE 
J'ESF'ERL OUE UOUS VOUS ETES 
HEME AMUSE AUEC ""CITRONNADE 
AMUSE AVEC ""CITRONNADE"" 



CALL C01 uRC'Ot'B" 



IVOIR LES ";:CALL COLORC 
"NSTRUCTIONS ?":CALL KE1 



' EXELMISSIL 

Avant que le "plastoc" de votre engin fonde sous la 
chaleur des lasers, faites face a la folie destructrice 
des extra-terrestres expansionnistes. 



EXELVISION-EXL 100 




Pierre BRETON 



Mode d'emploi. 

Les regies sont incluses. 




EO ' 



750 IF INTRNDC4)>2 THEN E = 
760 RETURN 
770 IF R(P>)l-9 AND D(h<I 
THEN F'T-PT.30 ELSE 300 



:GOSUEi ■ 



>!GOSUB 2050:1 



... HROFFiCLS I 

CB6":CALL COLOR! 'TLB 'J 

jO GDSUE 1490:G0SUB 1550 

JO uAC=5:V«C-15:C*'"W"iO*-"B" :K« 1 1 > = "R" :K»(2 )■"&" : 
1*(3)="H" iNB=30:NT=£:RED=a 
IO0 X=150:Y^1O0:E=.4:Z-.2tN u I-4 
110 CLS , 'Gt.e , ':CRflO:CflLL HRON( "B" ,3, 18) 
ISO CLS "CRB" 
130 GOTO 940 
140 GOSUB 440 
ISO G05U6 710 
160 GOSUB B90 

170 IF WACO THEN UAG-VAG, 1 iVAOYAC- 1 ELSE yflC-e:WAC-^ 
ISO CALL KEY1IA,B) 
I30 IF A=HA THEN Y»Y-1E:IF Y<0 THEM V-0 

=BA THEN Y=Y.15:IF Y)178 THEN Y-178 
=DR THEN X«X*1E:IF X>313 THEN X' 1 



7BO FOR < 



-3 TO 3 



ZOO I 



IF 



AND 1 



17;IF X<1 THEN X = 31! 
)0 AND R<2)< >0 AND F 



ID=4 THEN AD=0 
1-TI AND ND>0 THEN AD' AH.' 
■•SiNB-NB-UGOSUB 1250 
P-1 TO 3 



730 CALL I 

BOO NEKT 

SIC CALL SPEECH("L,"»Sf > 

B20 IF LH70 THEN XX*I:GOSUE 1 0EO 

830 N02^N02*1 

040 IF N02-NT THEN EE-1 ELSE E£=Q 

850 IF GC = 1 ANH DD-1 AMI CE-1 THEN G05Ut: 

ei",o casus 880 

B70 GOTO 210 

GBO U«INTS,'NDi 261.10. 20 :L =OlI=U 

630 IF 1N1RND<6)>2 AND LK 60 THEN K-0 ELSE 

300 IF INTRND'.7>>3 AND U>60 THEN J=-1.7 E 

310 IF u)200 THEN K--1.3 

920 IF INTRND(4))2 THEN J=.7 

330 RETURN 

340 CALL C0LORI"1H6"> 

950 LOCATE 113,1) 

3t.0 PRINT •' ";CHR*!6) ;CHR*(6> [" 

370 CALL C0L0R("1GB"> 
390 F-RIMT CHR*<8> ;CHR*!8) ;" "j 

330 CALL CQL0RI"1HB"> 
1000 PRINT CHR*(6);CHR1(£: 
FOR K-1 TO 5 



■ 20 S3*""78CO0 I' 

30 S*=S1»1S2» 

40 RETURN 

50 LOCATE i 7,1] 



1640 GOSUB ■ 



Chaisi^ses les touches que"; 

uaui dailr-M pour:"; 

RINTlCALL C0L0Rl"0HB"):PAOSE .3 

HUNTER.... :"; 

DE8CENDRB l"| 

ALLER s DRDITE...:"; 
ALLER a GAUCHE. ..:'■; 



) GOSUB ■ 



;CHR«(E>;CKR»(£) 



'BO CALL PLOT!) 



=0:S1I 



PLOT(0«.R(P) . 



300 NEXT 

310 IF N)170 THEN 510 

320 IF F>170 THEN £10 

330 IF D170 THEN 7B0 

340 IF CC<>1 THEN CALL t 

n=n. uag -.n-nt < p. o i /oac 

350 IF PD01 THEN CALL I 
E=F.yAG:C-C.(E ( Z)/UA'' 
3£0 IF EEOI TH*", l alL I 
L-L.VAC:!-* ,*.J)/UAC 
370 GAIL t-'L0T<C*,X-1,Y) 
3PI LALL PL0TCC»,X,Y.1> 
330 CALL PL0TCD1,X-1 ,Y> 
400 CALL 



1020 V 

1040 UI13)=0 

1050 GOSUB 1250:GOTO 1 

1060 i 

1070 IF Z551XX AND XX 

NVI«NU1-1:YY'33:G0SUF: 

10B0 IF 20S<XX AND XX< 

NYI-NUI-1:YY-27:C0HUB 

1030 IF 14B1XX AND XXt 



[7S AND 111(5)00 THEN I 

140 
!25 AND MU4X >0 THEN I 
140 

. C THI II I. ■.'■., I.:| 



:>0 THEN VI (I 



'Y-13:GUHUB 1140 
XX AND XX<E8 AND ' 
Y-7:GOSU6 1140 
=0 THEN PAUSE 2:0 



1740 1 
1750 PAUSE 3 
1760 RETURN 
1770 CALL KEY1!A,B) 
17B0 IF A=255 THEN 1770 
1730 IF A-128 THEN CALL COLOR( 
CHR»(1>:G0TQ I860 
1BO0 IF A-123 THEN CALL COLOR! 
CHR*(2):GOT0 1860 
1H10 IF A-130 THEN CALL COLOR ( 
CHR*(3):G0TO 1860 
1820 IF A-131 THEN CALL COLOR! 
CHR*<4):G0T0 1860 
1030 IF A=32 THEN CALL COLOR!" 
CHR»I5>:G0TQ 1860 
1B40 CALL COLORC'OYE") 
1650 PRINT CHft*(A) 
1860 PAUSE .3 
1B70 CALL COLDRCOME:") 



1BB0 I 



I COT 



ISO 



420 GOSUB 440 
430 GOTO 310 
440 0=INTRNDir£)i 
450 IF 1NTRND<6 J 

460 IF INTRN0<7>: 
*70 IF 0)240 THEN P-- 
480 IF INTRND<4)>2 Tl 
*30 RETURN 

500 IF RCP>)H-3 AND I 
SCPMN.3 THEN Pt=PT.: 
FOR V--3 TO 3 



140 LOCATE (13,1 
150 CALL COLOR!" 
160 PRINT CHR*n 
170 RETURN 



> CALL 



1830 RETURN 

1300 CALL CO! ORC'OVb") 

1310 LOCATE (22,10) 

1320 PRINT "APPUYFZ SUft UNE TOUCHE" 

1330 CALL KEYKRA,UA> 

1340 RANDONIZE 

1350 IF RA=25S THEN 1330 

1360 RETURN 

1370 CALL COLuRriCBLHF") 



'1GB" 



I 0=.7 

KM. 9 AND S(l 



■■>:.*: 






SJO CALL SPEECHCL 

550 IF N>170 THEN ) 

560 NOHB=N0HB.1 

570 IF NOME-NT THEN CC-1 ELSE CC-0 

5B0 IF CC-1 AND [>0 = 1 AND EE = 1 THEN GOSUP. 1410:G01 

530 GOTO 420 

600 IF RIP))G-9 AND R<P)(G.9 AND S!P)>F-3 AND Slf 

THEN PT=PT.30 ELSE 770 

610 FOft Y=-3 TO 3 

£20 CALL LINE("B",HtU,0,C*U,F> 

630 NEXI U 

650 IF FH70 THI 

£60 N01=N01.1 

670 IF N01-NT THEN DD-1 ELSE DD'O 

6B0 IF CC-1 AND DD-1 AND EE«1 THEI 

630 GOSUB 710 

700 GOTO 310 

710 H-INTRND(26I«10.20;F=0:G=H 

720 IF INTRNDI6D2 AND H<£0 THEN 

730 II 



\-.i-,u';i>\: ■ 



1^G:G«SUB 1 



:D)18 1HEN REO^IB 
1230 PRINT CHRi(RED);CHR«(RED) 
I240 RETURN 
1250 RR=RR.1 

1260 IF RR-3 THEN RED-REDi 1 : Rft^O :CDSLI& 1 
1270 IF NE<0 THEN RED=20 :GOSUE: 1200 
12B0 CALL 5PCECH!"L,0ri7C31ArErtDB02FC") 
1230 RETURN 

1300 FOR TP-TP TO PT STEP 3 
131(1 LOCATE (1,13) 
1320 CALL COLORi-OMRH") 



1350 CALL C0I.0RCORRH-) 
1 360 PRINT TP 

1370 CALL SPEECH ("L ,ADCE:E2: 



RIN' 



■■I F ..I i , I 



MIIHSE1SI II 

niissssin 



> NEXT 

1380 IF N6! )0 THEN PT=F 

1400 RETURN 

1410 NOHB^OiNOI =0;N02=0 

1420 CC=0i0D"O:CE-0 

1430 GOSUB 1300 

1440 Nfi=30 

1450 RED-B 

1460 WAG^VAG" 1 :UAC=VAC. 

1470 GOSUB 1200 

1400 RETURN 



2000 LOCATE 

2010 PRINT "EEXXEELL 

2020 CALL C0L0RC1ME") 

2030 GOSUE 1300 

2040 RETURN 

2050 RESTORE 2070:F0R 11*1 TO 

2060 READ H»:CALL CHAR! 1 1 , H* ) :l 

2070 DATA OB1C3E7F080B080B0B00 

2080 DATA 080B08080B7F3E1C0800,00 

2030 DATA 007F415D5159515D417F,1B: 

2100 DATA 000000000010386EBOFF, 

0O0000000O000B14 2A-,-, ; (,0OO0O0Oi>u0O001 *2ASi 

2110 DATA 00000000000000042A55, 

00000000000000002A55,OUI)00000000000002B'i% 

2120 DATA 00000000000000002B54, 

00000000000000000854 .OOOOOOOOOOOOOOOOOu'ji! 

2130 DATA 00000000000000000014, 

00000000000000000004 oooooooooooooooooooo 

2140 RETURN 



0C080000 
3O70FF703O1O00O0 

/El I ■.'I'M I 3F 'Ltf lif 




i 

EXELMUSIC 



J B" Cor¥toS 
M Qui Vfi SC 

Degfmncm 

~*A > 



Les qualites musicales de I'EXEL, au service de votre 
talent discutable de musicien. 



ssm; 



,Bi*(S8),2*<eai 



■ ftl .i Nl !>] ION 



cnt l .oi ir 


"OEiB 


) 


LOCATE 


11.1 


1.14 


IP 


IOR J-' 


1U 


20 




CALL Kfc 


M<A,fc) 




IF A< )2 


,5 <I>EN 


'MO 


NEXT J 








CM L 1 C 


III- 


"OI.C 




I DCATE 


113 






"Cxi I: 


'AUSE 1 




CALL COLOR 






A '113 








LOCATE 


(13 




HI 


FOR I-' 


111 


8 




LOCATE 


122 


40): 


RI 



l,*AI L PO«l <2-.3,45) 




CALL COLORl'OBC") 




LOCATE (6,2) : PRINT ' 


U0ULE7 DDUS l" 


LOCAIE (3,6) :PRIN1 ' 


DACCEDER 


ORCUE ELGCfRONIOUE' 
LOCATE (11,B)iPRINT 


'DFTiOGRAMhER UNE «C1.0ti|E 


LOCATE 1 13,6) :PRINT 


'3>CHARGEB UNE NELODIE" 


LOCATE 1 13,6) :F-R!N1 


'4>AU(11R UN!" DEHOHBTRATIQ 


LOCATE !1B,5):PRINT 


'MOIRE CHOIX :" 



Swte page 76 



PATROUILLE LUNAIRE 



Confortablement installe dans votre vehicule. decou- 
vrez le calme relaxant dune randonnee lunaire... 



Mode demploJ; 

Les regies sont incluses. 



pour EXL 100 



10 "PRESENTATION 



1E0 'GRAPHIQUES 

ISO CALL CHAR!E5, 
130 CALL CHAR! 75, 
200 CALL CHAR (76, 
210 CALL CHAR(77, 
220 CALL CHAR! 80, 
230 CALL CHAR(EE, 
240 CALL CHAR (£7, 
250 CALL CHAR(G8, 
2E0 CALL CHAR!E9, 
270 CALL CHARC71 , 
260 CALL CHAR179, 
230 CALL CHARI72, 
300 CALL CHAR{74, 
310 CALL CHAR (70,' 
320 CALL CHARI7B, 



<"/.) ;OII 



(66) 



00000007 1E7E7FFFFFFF") 
00000000001038383B38" 1 
00071F3E7E7EFEFCFCFC" J 
FCFCFCFE7E7E3F.1F07O0" ) 
00000C00C3C33C3C0000" ) 
O0OQOOE01O1Q3EFFFFFF" ) 
DB603C1BOOOOOOOOOOG0") 
C3B11B3C3C18OO0QO0Q0") 
C3B100O0183C3C1BO000") 
44BFFFFFFFFFFFFFFFFF" ) 
101 0307071 F3F7FFFFF") 
E6FFFFFFFFFFFFFFFFFF" > 
BOBOCOEQEOEBFCFEFFFF") 
FFFFFFFFFFFFFFFFFFFF" I 

oaoooooooooooooooooo" ) 

OB1C080000000000000Q" > 
00000003EFF ') 



RIM 1 



3B0 LOCATE i 

330 CALL C0L0R("0GbHL"):LOCAT£ (5,1>:PRINT 

"FFAATTRROOUUIILLEE LLUUNNAAI 1RKEE" 

400 LOCATE <6,1>;PRINT 

"FTAATTRR00UU1ILLEE LLUUNNAAI IRREE" :CALL COL" 

410 CALL COLORC'OGbL") sLOCATE (18,1) 

420 PRINT "UUNN JJEEUU RREEAALLI ISSEE PPAAI 

430 PRINT "CCFihrr iissttoopphhee BEOOUUI ILLLLI 

440 CALL C0L0R("1Yb">:S=21 

450 FOR 1=1 TO 3B:L0CATE (S,I);PRINT 

"P":CALL P0KEI25B, 1.19, 132) sNEXT I 

460 S=15 

470 FOR I=3B TO 1 STEP -IsLOCATE (S,I):PRINT 

"P":CALL PDK,£!258,I.19,132)sNEXT I 

480 CALL C0L0R!"1Yb") 



300 FOR T 


=0 TO 2 


510 CALL 


0KEI258, 100,1 


520 FOR P 


1 TO 2:L0CATE 


PRINT CHR 


<67.T1);NEXT 


530 NEXT 




540 NEXT 




550 gosub 


1320 


560 ! 




570 !CIEL 


ETOILE 



530 DATA 125, 150, 132, 150,132, 163, i; 
EOO RESTORE 590:F0R 1-1 TO 7:READ 1 
POKEI25B,Y,132) sPAUSE .2:h 



"YbB": 



>1Yb"] 



STEP - 



e:to randohize 

E40 FOR P=30 TO ' 

850 GDSUE: 1280;*: 

.1 sO=INT<RNDit2).78 

660 LOCATE !X,Y) sPRINT CHR»!0):NEXT 

PsLOCATE <2,5):PRINT CHR*(76> 

670 LOCATE (3,5)sPRINT CHR» < 77 ) sCALL CC 

LOCATE (22,1>:PRINT "score:" 

6B0 CALL C0LOR("16b"> 

880 FOR P*.5 TO 20:L0CATE I 20 , P»2> :PRIh 

CHR*(71); sLOCATE <21,P*2) 

700 F'RINT CHR*(70) ;CHR*<70) ;:NEXT P 

710 CALL COLOR ("ObEi") :LOCATE (21 ,3) i PR] 

720 CALL KEY1(DF,FG):IF FG=0 THEN 720 



Christophe BOUILLE - 



'<^ 



g*Tr?g£ 

fA 



730 CALL P0KE(258,90,150) 

800 Q=0t1:CALL COLOR( "OGb" ) ;LDCATE (22,8) :PRINT 

0:CALL COLQRCMYb") 

810 IF P=300 THEN PAUSE 2:P-1sG0TQ 780 

820 IF SEG»!P*,2,1)=CHR*(73>AND R-18 THEN GOSUB 

830 IF SEGi!P*,2,1)=.CHR*(75)THEN Q-Q-10 

840 CALL KEYKA,6):IF «s<>0 AND R = 18 THEN GOSUB : 

850 0=0-1tIF 0-0 THEN GOSUB 350 

860 IF SEG*(A*,3,1)=CHR»(74)ANC< R-18 THEN GOSUB 

870 LOCATE (20,1)sCALL COLOR! "IBb" ) sFRINT 

A*:LOCATE < 13, 1 J :GOSUB 2140 

8B0 LOCATE (R,E):CALL COLOR! " 1Yb" ): PRINT 

CHR*<65! ;CHR»!66) 

B30 LOCATE (Ri1,E) sPRINT CHRKES) ; CHR*(63> 

SOO NEXT P 

910 FOR RT-BO TO 80 STEP -UCALL POKE! 25S , RT , 13: 

:NEXT RT 

920 LOCATE (13,E);PRINT " 

■':LDCATE <18,E):PRINT CHR* (£8) ; CHR»( E-B) 

930 LOCATE (1B,E):PRINT CHR* (67) ; CHR»(67> 

340 LOCATE (17, E) sF'RINT CHR*(E5); 

CHR*(66>:0'7sR-R-1 : RETURN 

350 CALL COLORCIYb") :LOCATE (17,E):PRINT 

11 ":LOCATE (19, E) 

360 PRINT CHR*<6S);CHR»!G£>:L0CATE (19, E): 

PRINT CHR*!69);CNR*(E9) 

370 FDR RT=£0 TO 80 STEP 3:CALL 

P0KE(258,RT,132):NEXT RT 

980 IF SEG*<A*,3,1> = "J'"AN0 R=3 THEN 1040 

330 IF SEG*(A*,3, 1 1="I"THEN 1040 

000 R = R.1 :RETURN 

010 ' 



I"30"):NEX 



INT "SSCCOORREE :: " j 
30 CALL COLOR! "OYbl") :LQCATE !5,18): 
PRINT SC;" m":PAUSE 3 




1020 


! ACCIDENT 








1030 














FOR 


= 1 TO 


10:CALL 


SPEECH 




1050 


CALL 


COLOR! 


■OBR") sLOCATE 










jru ";G 


" ra"sPAUS£ 




SC=SC*Q:Q=- 










OATA 


250,. J 


,187,1. 


,250,.. 


|18" 




5,1 .8,150, . 


.,1B7, . 


,130, .< 




1080 




250,1, 


187,2 






1090 


REST 


RE 1070 






1100 


FDR RT-1 TC 


12:READ TY..YU 




CALL 


POKE 


25B.TY 


,132) :P 






1110 




POKE (258, 255, 






1120 


CALL 


COLOR ( 


■OYLI") 


LOCATE 


(5,9 



I ?";GSC* 



"OG"; 



'sCSC*:' 



LOCATE i 



MEILLEUR SCORE 
AUEC ";GSC;" m":F'AUSE 5:SE=1 
190 CALL COLOR("OYR");CLS "Y 
NPUT "VOULEZ-UDUS REJOUER ?";PA* 
130 IF SEG*(PA»,1,1)="D"AND SE-1 THEN 590 
200 IF SEG*(PA*,1 , 1 )="0"THEN RUN 
210 I 
220 IFIN 
230 ' 

240 CLS "G6B":CALL COLQR( " 1GLH1F" ): LOCATE i 
INT "AAUU RREEWU001IRR":LOCATE (16,1 
AAUU RREEVUOO IIRR" 
260 FOR 1=20 TO 250:CALL PDKE< 23B, I , 132) 1NE 
270 CALL P0KE!253,0) :PAUSE 1:CLS:END 
BO CALL P0KE!25B,P.20,15O);RETURN 



290 ! 

300 "REGLES OU JEU 



350 CALL KEYKI, J) 

370 CALL POKE (258,250, 195! 

380 IF 1-73 THEN 1420 

330 IF I-7B THEN 1610 

400 CALL POKE (253, 255, 135) 

410 GOTO 1360 

420 PAUSE 2;CALL COLOR( "OYb" >: LOCATE (2! 

RINT RPT*<" ".BO) 
30 LOCATE (7, 10) sPRINT "REGLES OU JEU" 
40 K*(1)-"U0US PILOTEZ UN ENCIN SPATIAt 

450 K»(2)="SUR LE SOL DE LA LUNE." 

460 K*(3)="UDUS OEUEZ EVITER " 

470 K*(4>""LES BOSSES ET LES CRATERES" 

480 K»(5)="EN PRESSANT UNE TOUCHE." 






EXELMUSIC 



Suite de la page 75 




i!E) = "UOUS FAI1ES ALORS DES BONOS I" 
1500 K»(7)-"SI UOUS RENCONTREZ UNE OINE" 
1510 K*(B>="UOUS RECULEZ DE 10 METRES." 
1520 K*(3)="E0NNE CHANCE ET BONNE PATROUILLE 
1530 FOR 1=1 TO 3:CALL POKE(25B,50, 132) 
1540 LOCATE (1E,1):CALL COLORCOME" ) i 
IR»(12),40) 



550 I 



(I) 



1560 FOR Y-W TO U.LEN(K«<I) )-1 :CALL COLOR!' 
1570 CALL P0K£(259,45>sCALL POKE! 258, 100, 1 ; 
1580 LOCATE !16,Y):PRINT " " 
1590 CALL COLOR("OGM"):LOCATE 
( 16, Y) sPRINT SEG*(K*(I),Y-U1.1 ,1) 

ALL P0KE!253,45) sPAUSE 2sNEXT 



1610 i 
1620 i 



FORCE 



1640 CALL P0KE!25B, 100,132) 
1650 CLS "Ybb"sCALL COLOR( "OGHL" ) 
1660 LOCATE (3,1>:PRINT 
"PPAATTRROOUUIILLEE LLUUNNAAI TRREE" 
1670 LOCATE <4,1):PRINT 
"PPAATTRROOUUIILLEE LLUUNNAAI IRREE" 
16B0 CALL C0L0Rl"OGb") 

FOR 1=8 TO 18sL0CATE 



1 700 I 



,36):NEX' 



1,2) 



1720 DATA 
1730 DATA 
1740 DATA 
1750 DATA 
1760 DATA 
1770 DATA 



COLOR!' 

9,3,ENTREZ LE CIRCUIT 

11,3,FFAACCIILLEE 11 

12,3,HM0OYYEENN 22 

13,3,D0IIFFFFIICCIILLEE 33 

14,3,TTRREESS DDIIFFFFI ICC I ILLEE . . . . 44 
15,3,PPRR00CCRREESSIIFF 55 

17B0 RESTORE 1720sREAD I ,U , I* sLOCATE !I,«)sPRINT I! 

1790 CALL COLORC'OGBL") 

1B00 FOR Y-1 TO 5sREAD I, ID, I* 

1B10 LOCATE (I,U):PRINT HsNEXT Y 

1820 CALL KEYKLjI) 

1B30 IF L(49 OR L)53 THEN 1 B20 

1840 U=L-4BsON U GOSUB 1860,1920,1980,2040,2100 

1S50 RETURN 

1B60 C1*=" IJ IJ 

1B70 B1*="GHGHGHGHFFFGHGHCHGHJ0II 

10B0 IF U=1 THEN RETURN 



1900 C»=C1*IC1»IC1*IC1*SC1*IC1» 

1910 RETURN 

1920 C2*=" IJ IJ K IJ • 

1930 B2»-"GHGHGHFFFGMGHCFFFGHGHGHJ0IGHGFFFGHCHGJIH I 

1340 IF U=1 THEN RETURN 

1350 B»=&2*lB2«t821iB2*IB2»IB2« 

13E0 Ct^C2»lC2*tC2tlC2*IC2*tC2* 

1970 RETURN 

13BO C3»=" KI 



1330 B3*= 
2000 ] 



:ghghghhghcfffghghffffghgh" 



k=B3tIB3tlB3t£B3*£B3t 
2020 C*=C3»tC3*lC3*IC3»tC3» 
2030 RETURN 

2040 C4«="IJ K IFJ I, 
2050 B4t="FFFGHJIGHFFFFGHGFI 
2060 IF U=1 THEN RETURN 
2070 B»=B4tXB4*KE4t£B4*KB4ttB4l 
2080 C»=C4*tC4*lC4*lC4«IC4tlC4t 
2090 RETURN 

2100 U"1;G0SUE 1860:GOEUE: 1920:C0SUB 
21 10 B»-£1ttB1*tB2*lB2«lB3«t£4S 
2120 C»-C1»tC1»*C2«lC2»iC3»lC4» 
2130 RETURN 

2140 CALL COLORC'IBb") sPRINT P*;RETU. 
2150 1 

2160 ISON ENTREE 
2170 ! 

21B0 LOCATE (10,2)iPRINT 
"PPAATTRROOUUIILLEE 
2130 LOCATE (11 ,2)il 
"PPAATTRROOUUIILLEE 
2200 RESTORE 2210 

) DATA 250, .4, 187,1. 2, 250. 



IGHGJDIGHGFFFFGHG" 



IsGOSUB 2040 



1.8,130, .4 
1,187,2 



187, 



2240 DATA 22! 
2250 FOR 1"1 
2260 CALL POk 
2270 RETURN 



,250,2 

:4:READ UI,IO 
S8,UI,132>sPAUSE I0/4:NEXT 




6^0 LOCATE !2,14)sFRINl "nDI.'RGCUIIEF" 
£30 CALL COLORC'OBC") 
640 LOCATE 15.2) sPRINT "TABLE 
DE COIVRFSF'ONDANCE : TDUCHE/NOTE" 
650 CALL COLORC'ObC") 
660 LOCATE 17,5>:F*RINT "A:SI" 
Z: DO 



RIN 



630 I 



E:RE 
R:MI" 

T:FA 



) ON A GOIO 500,680,2170,1900 

) ' ««■*.». «■,.,. ORGUF .*•..■..•. 

< CLSsDId V*(127) 

I FOR 1=0 TO 127:U*(I)="159":NEXT 



700 PAUSE 



TOUCHL O'ESPACEt 



FOUR RFVFN1R 



i or LA NOTF 



890 CLS "BWlU'sGOSUB 2360 
300 CALL COLORCOBW") 

320 LOCATE (15,1)sPRINT "1NTR0DUCT 

330 LOCATE (17,3)sPRlNT "NOTE N.";. 

340 LOCATE <19,4):INPUT A» 

350 IF J=68 THEN 1530 

360 IF A*=""THEN 1530 

370 IF LEN!A*))E THEN 340 

980 Z*!J)=A« 

390 IF Al()"E"THEN 10S0 

1000 X=X-18sIF X(22 THEN X=912:Y=Y- 

1010 CO»,CF'* = "lil"s J=J-1!A»=Z*(J) 

1020 GOSUB 2590 

1030 SI*(J)-""iX»X-1SlIF X(22 THEN 

1040 FOR 1=1 TO 17 STEP 4 

1050 CALL LINE("G",X-7,I.Y1.9,Xt8,] 

1060 NEXT I 

1070 GOTO 330 

1080 IF LEN<A*M1 AND A* = "D"THFrl 

SI*(J)="1";DU(J)=.2sC0T0 1330 

1090 IF'LEN<A*>-;1 AND A»-"S"THEN 



830 


G=A: 


F A" 


2 THEN CLS; GOTO 390 


1140 


CALL 


POKE 


25B.UAI.(U*1AI>,135) 


HrSO 


CALL 


KEY1 




HKO 


CALL 


POKE 


259,45) 


RHO 


GOTO 


790 





9i» 



'.,: GUI. 



1390 



"TANKATAK 

Grace a votre super tank laser. pen6trez au plus pro- 
fond les lignes ennemies. 

Patrick GERARD 



Mods d'emploi ; 

Entrez le programme en DEFM el lancez-le par F1 PO. Faites 
avancer votre lank en appuyant en permanence sur la louche "-", 
arretez-le par "+ ". " " permet de tirer. " " de saisir un projectile el 
SPC de casser un projectile aux rayons X. 



FX702P 



Tojs ces lameux projectiles som destructives par tir laser, mais 

certains lorsqu on les allrape. vous octroient des points supplement 

[aires : 

" :", vous pouvez le laisser passer. 

" >". vous devez le detruire. 

"*", vous rapporte 2 points si attrape 

■#",i passer aux rayons X. Si "- " apparait. vous pouvez lattraper 

pour obtenir un nombre de points aleatoires slnon detruisez-le 

Vous oblenez un BONUS tout les 200. 500 et 999 points qui renou- 

velle vos trois tanks de depart La partie sarrele avec lepuisemenl 

des tanks, mais vous pouvez obtenir un super BONUS a la LOTE- 

RIE et repartir avec trois tanks. 






LIST 

1 60T0 6 

2 "TRHKSTflK !t) 
J "SUB FX-782P 

4 B0TESR:P.SES8St 

5 "JBHVIE8 198S 

4 P8T C5P. 3i"TBHE 
BTBK =0 "I 
:F0R B=15 TO 12 
STEP -I 

? PPT CSS !!"=() 
"ilHEXT B:F0P, E 
=10 TO 3 STEP - 
1 

! FOR C=ll TO 6 S 
TEP -ltPET CSR 

c;"-"::hei!Tc 

) FOP C=!l TO 6 S 
TEP -ItPET CSR 
tl" 'I1I0I C:H 

EH BffflC 



IB HFtIT JI:M:«=! 
:*=":>** =0 =i 

) =0" 

11 M'MClfil 52 
:PRT CSP 12iBl! 

csk i6;tn;H; 

12 Ei=mo(i*(fl«nr 

,I!:6=B:X=!IIT i 
RBHtt2 

13 PRT CSB B;E*:sK 

t=KE«IF B=V 
THEH 24 

14 IF «="»' THEH 
3S 

15 IF Kl="-";«t="> 
(l-.PP.T CSP 12; 
(Ui!H=H»5i6SB4 
SlITjTO 18 

IE IF Kt="t";fii='= 
0";PRT CSP 121 

ni; 



'THEH 



17 IF H* 
• 43 
l!PETCSPBl"";i 

B=B«S:IF 5<12 T 

HEH 13 
1) IF £»=":•! IF H 

="=!)" THEN 23 
28 IF Ei=" " THEH 

12 

21 FOR C=8 TO 4:PR 
T CSR 12;"«W"; 
CSR l2i"M"iCS 
R 12;"ffi"! 

22 NEXT C!V=V-l:S= 
St.25:60T0 11 

23 S=S«5:60TO 12 

24 IF ES=" MF BI 
=")«" THEH 18 

25 IF «!="=<)" THE 
H21 

21 IF IKT B=ll THE 



H29 
2? FOR Ml TO IHT 
Bfl STEF-llPt 

T CSR G"="i 
2! KENT ClFOR C=iN 

T B TO 1B:FRT C 

SR C!" ";E(i!HE 

2! PRT CSP 1?:' "i 
CSR 111" •; 

38 IF Et-"*"iH=H+2 
:SSS 46S60T0 23 

31 IF Et=*PiIF 8= 
1 THEN 33 

32 SOTO 21 

33 FOR C=H TO H*H 
tRflllttSO 

44 PRT CSP 211111; 

C;:HESTC!H=C-[ 
33 PRT CSR 7;" 

"i:8SB46;S0TO 



2! 
3i IF 81=")!)" THE 
H21 

37 IF E(=" ";B=0 

38 FOR C=U TO IHT 

I STEP -11PRT 
CSS C;*-";:HEST 
C 

39 FOR C=ll TO IHT 

B STEP -11 PRT 
CSR CI" "iittXT 
C 

40 IF Et=" " THEH 
IS 

41 FORM TO 41 PR 
T CSR IITICSJ 

B:"t";:HEXT C 

42 SOTO 23 

43 IF E!«"l" THEH 
1! 

44 IF MiPRI CSR 




45 60T0 18 

46 IF «!999;H=K-lE 
3:H=H*1e3:0=0!P 
=8:SSS 58 

47 IF H=2»8;IF !=8 
I0=1:SS8 58 

48 IF H;588:IF P=0 
;P=l:SSE 50 

45 PRT CSP. 14; till 

Hi: RET 
58 PRT :S=1!M1F! 

8 C=8 TO 4 

51 PRT CSS S;"BOK» 
S","":8EKT C 

52 PRT CSR 19!" "; 
:P8T 

53 IF V«8!PRT "TflH 
iS:":HI0i(4-V)i 
4*1), CSR 12!fif; 
:8ET 



54 PRT "T8HKS EPUI 
SES !"IB=W 

55 FOR C=0 TO 4:PP. 
T CSR 71"L0TERI 
EV'tHEST C 

56 PRT "LOIERIE! I 

57 IF'KEY= ; " THEH 
57 

58 HOOE 5!B=8»1 

59 IF KEV<"" THEH 
58 

68 HOSE 41F0R 0=8 
TB HiOCtlMF C 
=1IIC=I 

78p«tcsrs;c;;he 

XTO 
71 IK 6H=-llF0R 
8=8 TO 19+IHT 
ONMKHU: 

IF o--ie;M 



72 FBI CSR 12!D;;H 
EXT BtHOOE 4 

73 IF C=0;P8T CSR 
11;"="!B0T0 84 

75 FST CSR Ui"t": 
t="PBRJ!E RCSEV 
EE" 

7£ FOR C=14 TO 1 S 
TEP -ltPRT CSR 
C>2irtID(0i 

77 NEKT CtPRT CSR 
191" ","()« (1= 
SC0SE:"1«; 

7! IF KEY="" THEH 
78 

79 P8T :PPT "AUTRE 
PB8TIE: 0.-H f 

SB B-KYHF Kts'O 
"liF KOT THE 
H 80 



IF tt=Ti 
PRT "Bll REVOIR! 
»BIEKTOI!"::EB 
I 

82 VRC :S=i:V=3:BI 
=-.()■:$=■: >t| 
=() =0 =()* 

53 PIT CSS 12;PJ!C 

ss I6;hi;h;;re 

T 

54 '":. C=S TO 4iP 
T CSP. li"M SUP 
ER BONUS WV 

":HEXT C 

s: :sc lilt; sivs-i 

:H=HX:EET 




~HJes,c?eie') 



EXELVISION-EXL 100 



EXELMUSIC 



™ Suite de la 


page 


76 


110 RESTORE 1160 






120 TOR 1=1 TO 7 






130 REAO NO«,H 






140 IF N»-NQ*THEN HA(^ 






150 NEXT I 






1EO DATA DO, 153, RE, 141 




26, 


A , 1 1 3 , SO , 1 06 , LA , 34 , SI , 


14 




170 : t r ,i .-.< . i i ■ 






180 RESTORE 1510 






130 EOR 1*1 TO 5 






200 READ OU«,£i 






;io if [i*-Du*tmi}:n du(„ 


«u 




220 NEXT ! 






230 IF LEN<A»X4 THEN 


320 




^40 FOR 11=4 TO LENlAt. 






250 &t-SECt(At, 11 , 1 ) 






2&0 IF B»=" , n , 'THEN HA<- 






270 IF B*-"b"THEN HA(^ 


-HA 


J)*1 


2B0 IF B« = "1**THEN HA<- 






230 IF B»="3-'THEN HA<- 




Jl/2 


300 IF B»="."THEN OUl- 


-DU 




310 NEXT 11 






320 IF H««JM20 OR DU( 


J)"0 


nn. ■. 


330 CO»-"B":CF'*=' , G" 






340 GOSUE 2530 






350 J=J»1 






360 IF h--\ THEN 2080 






370 IF E.'=2 THEN 2350 






:180 GOTO 930 






390 CALL COLOR! "ORU"> 






400 FOR 1=1 TO 3 






410 CALL F0KEC258, 15S, 


33) 




420 LOCATE <17,3>:FRlr. 


"ERREUR 


430 PAUSE .3 






440 LOCATE (17,31 :FRIr. 






450 CALL P0KE(258,133, 


33) 




460 PAUSE .3 






470 NEXT I 






480 CALL POKE(Z53,45) 






430 CALL CQLQR("OE:U"> 







830 OPEN m,"1.h 
8*0 PRINT 01, j;' 
350 FOR 1-1 TO . 
060 PRINT ai,Z«l 



-jVARIAtil E J«7«14 



CALL 
2570 
2580 
2590 

2600 



> FOR Jl-1 TO 31 

I READ A* 

) FOR K=1 TO LEN(A«) 

) IF SEC*(A*,K,1)-"1"r 
PL0T("B",K.3,I.34.I1 
NEXT KjNEXT 11 I NEXT I 
RETURN 



DES N0TES/SILFN,7E' 



I CLS 



920 LOCATE 45, 
330 CALL COLOR 
340 LOCATE (3,13> 
950 LOCATE 110,13 
360 LOCATE (12,3) 
CCAARRNNAAUUAALL 
370 LOCATE (13.3) 
CCAARRNNAAUUAAI.L 
980 CALL COLOR* "0 
390 LOCATE (22, 3> 
2000 A*=KEYHCLS " 
2010 COSUB 2360 
2020 X=23:T1=0;B=1 
2030 RESTORE 2120 
2040 CALL COLOR ("Oi 
2050 LOCATE (17,2> 
2OE0 FOR A=1 TO 64 
2070 FOR A=1 TO 64 
20BO NEXT AiCLSiCQTO 



:PRINT "L'EXELUISIGN VOUS PRESENTE 
ObHLF" I 

PRINT "LLEE" 

:PRINT "l-LEE" 



ODEE UUEENNI TSr.EC" 



ODCE UUEENNIISSEE" 

IC") 

FRINT "APPUVER SUR UNE 1 



NSTAN1 S'lL VOUS I 



S30 



CiESSl 

£610 i 

2C20 RESTORE 3040 

2630 IF Sl*(J» = "l"THf-N GDSOG 3050:G0T0 3O20 

2640 FOR 1*1 TO 7 

2650 READ NO*,H 

2660 IF N*^NO*THEN T»HtY1:G0T0 2680 

2670 NEXT I 

2GB0 FOR 11=4 TO LEN(A«> 

.'1, 30 E~.-:iEr,»'.rt! ,11,1* 

2710 IF Et*="3"THEK r = T-14 

2 720 NEXT II 

2730 FOR 11=4 TO LEN(A»> 

2740 &*=SEG»IA*,I1,1> 

2750 IF B»="."THEN CALL LINEICO* ,X.7, *»3 ,X.B, 

■THEN GOSUB 3140 

'THEN COSUB 3220 



II 



■THEN 2920 



2100 ' DATAS HELOt'IE iNOTE/DUREE 

2110 ( 

2120 DATA OON3,REE:3,CiON3,SIE|-.,LAN,SINt., 

SOEl. ,S0C,LAC,SIBb,SIN,ftE63,00N3,LAR,S 

2130 DAIA DDN3,FAE:3,OON3,CiON3,SINt., 

L AN , S INb , S06 . , SOC , LAC , S IBb , T. IN , RE P-3 , O0N3 , FAR 

2140 DATA S, DONS. DONS, SINb, LAN, LAN. 

SON, FAN, FAN, HIF. , SOC ,L AC , STBb ,SIN ,REB3 ,D0N3 

2150 DATA LAR.S, DONS, D0N3 , SINb ,LAN , LAN, 

SON,FAN,FAN,HIB. ,Snc,LAC,SIBb,SIN,REET3 

2160 DATA D0N3,FAR 



21SI 



CHARGEMENT D'UN MORCEAU 



L LINE(C0*,Xt7,Y.4,X«B,r.4) 
I IF T>T1.16 THEN 

. LINE(CD*,Xt4,»-3,X.4,'f >:GDTO 2B20 
) CALL LINE(CD*,X,T.1,X,T.13) 
I IF Y>Y1.27 THEN CALL 
^CPt.X-S.YI.SO.X.BjYItaO) 
) IF Y(Y1,6 THEN CALL I.INE!CP*,X -3, Y' 

> i 

I ' 0E5SIN DE LA NOTE 
J I 

> CALL LINE(C0*,X.1,Y,X*3;Y> " 
) CALL LINE(CQ»,X,Y(1 ,X, Y«3> 

> CALL LINElC0»,X.4,Y,1,>:.4,Yt3) 
) CALL LlNE!CQ.,X.!,Yt4,X.3, r.4> 
i II Dt-"R"Oft D»="E:"THEN 3020 



530 • EXECUTION DU MORCEAU 

540 < 

550 CLS 

560 CALL LINE(••e , ',X,Y1♦^,X, , 

570 CALL LINEC'B",X. 2,f\tS,l 

S80 CALL LIK("l"i X**| Y1t3,> 

LOCATE 



1610 ) 



16,21;PRINT "AUDITION" 

1 = 35 



(in. 



TO . 



1630 IF 

1640 CALL P0KE*25a,HA(I>,1S4> 

1650 CALL LINE("ft",X1,Y1,X1,Y1.2> 

1660 PAUSE DU(I>/UI 

1670 CALL F-aKE!253,45> 

16B0 CALL LINE("U",X1,Y1 ,X1,Y1.2J 

1530 X1=X1.18:IF XD313 THEN X1=2; 

1/00 FOR 11=1 TO 30:NEXT 11 

1 ^10 NEXT I 

1720 PAUSE 1 

1730 LOCATE (16,2):PRINT 

"U0ULE7. VOUS ECOUTER DE NOUVE.AU ' 

1740 A«=KEY* 

1750 IF A»="0"THEN CLS:GOTO 1530 

1760 PAUSE 1:CALL HROFF 

1770 LOCATE <3,2>:PRINT 

"^OULEr SAUUECARDER LE MORCEAU ' ' 



2190 


1 


2200 


X=23:Y1=0:B=2:UI=1 


2210 


CLS "8UU":CALL COLUR( "ODU" ) 


2220 


LOCATE (2,2):PR1NT "CHARGEMENT; " 




OPEN m, "1. MUSI", INPUT, VARIAE:LE 500 


2240 


INPUT B1,J, 


2250 


J1=J 


2260 


FOR 1-1 TO J-1 


2270 


INPUT «1,Zt(I>, 


2280 


NEXT I 


2230 


CLOSE Ml 


2300 


GO SUB 2360 


2310 


LDCATE (2,2J:PR'INT "UN MOMENT S'lL 


2320 


J=1 


2330 


FOR A=1 TO Jl-1 


2340 


A»=2*(AI:GOT0 10B0 


2350 


NEXT A:CLS:COTO 1550 


2360 




2370 


< DESSIN PORTEE 


2380 




2390 


CALL HR0NC , M",1,14) 




FOR 1=1 TO 7 STEP 2 


2410 


FOR J' 1 TO 5 


2420 


CALL LINE("C",0, J-4tI«17-1 1,313, J.4 


2430 


NEXT J:NEXT I 


244.0 




2450 


'DESSIN CLEFS DE SOL 


2460 


1 



■ 0* = ' 



< 302( 



3070 
3080 
3030 

3100 



then earn sooo 

; CALL LINE(C0>,X.4 J Y-3,XiS,Y-7) 

I IF Dt»"D"THEM CALL L INE'CO* , X*4, Y -7,Xtf 

) GOTO 3020 

I CALL LINE<CO*,X,Y.13,Xi.4,Y. 11) 

I IF DS-"0"THEN CALL LINE (C0« ,X , Yt 11 ,X>4, 

) X-X.18:IF J0312 THEN X-23: Y1 = Y1 .34 

■ ki 'ui.N 

) DATA DU, 28. RE ,26, MI, 24, FA, 22, SO, 20, LA, 1 

i OESSIN SILENCE 



* DATA 000011,0000101,0000101,00001001 

>iooi ,00001001 ,0000101 ,0000101 

j DATA 0000101.000011.00001,00001. 
11 ,00101 ,01001 , 1001111 ,10101001 
) DATA 10101001,101010001,100010001, 
P10OO1 ,01001001 ,0011111 ,00001,00001 



1 790 I 



THEN 



1990 



CALL LINE(CO»,X,Y' 
IF DU( J)*. 6 THEN ', 
CALL LINE(C0*,X.7, 

) RETURN 

I CALL LINE4C01 ,X, 1! 

) RETURN 

■ ■ ii- ,IN DII 51 

) CALL LINE(CO*,X- 7, 
1 CALL LINE'C0*,X-7, 
) CALL LINE(CD».X-6, 
I CALL lINE(C0«,X-4 
) RETURN 

i ' di 3sin bi nn 

, CALL LINClTOt.X-?, 

) '.all lIne<i.o»,x-7, 



SPACE RESCUE 



pcA<£ 



£*ySM&t 



Sauvez un malheureux vaisseau en perdition, de la 
convoitise d'un avide trou noir 

Laurent GRAVERET 

Mode d'emploi ; 

Faites DEFM 0. Vous devez secounr un vaisseau perdu dans les- 
pace a proximity d'un Irou noir. Le sauveiage effeclue. vous devez 
regagner voire base en x= 378. y= 517. i - 507. Vous avez 850 
unites de carbu'ant et la possibility de vous ravitailler dans diverses 
stations spaliales dont voici les coordonnees : 

- Station 1 :417, 535.498 

■ Station 2 378. 517, 508 

- Station 3; 378, 418. 537 

■ Station 4 756, 369. 587 

Chaque ravitaillement vous procure 800 unites de carourant el vous 
Ote 5 unites de temps. Le vaisseau a secounr se trouve en 202, 
110, 180 et vous devez eviter le vaisseau piege qui se trouve en 
500. 500. 500 Si chacune de vos coordonnees est inferieure a 200, 
vous exptosez dans le trou noir. Voire tableau de bord se presente 
comme suit ; 
x/y/z: 



Faites F1 P0. apres le message d'introduction. voire tableau de 



bord apparait Voire Vitesse initiate esl nulle et vous devez la modi- 
tier Appuyez sur 1 pour provoquer gn nouvel aftichage .000 
(X] ?, tapez la variation de Vitesse pour la direction (X) puis EXE 
Procedez de meme pour les autres directions, exemple 
5 EXE, -2 EXE. 9 EXE. aftichage du vecteur resultant : 5 -2 / 9. 
Ainsi. par unite de temps, x augmentera de - 5. y de -2 el z de - 
9. Attention ' La valeur absolue de la Vitesse dans chaque direction, 
ne doit pas etre supeneure a 9 sous peine de destruction A noter 
que si on a v(x) = + 5 et que Ton veut obtenir v(x) = -6. il taut taper 
-11 EXE. La Vitesse dans une ou plusieurs directions peul etre 
nulle. Vous devez pour voire survie. eviter 5 asteroides ou vous 
poser dans chaque direction, a des vitesses inleneures a 1 en va- 
leur absotue. Coordonnees des asteroides : 
440. 510, 500 
302. 695, 405 
277. 713.418 
806. 396. 702 
954. 205. 359 

Vous pouvez a tout mstanl revenir a voire base, en modifianl vos 
vitesses axiales. la mission continue. Si vous etes en perdition k la 
suite dun manque de carburanl. il vous resle a souhaiter le secours 
dune autre mission... Pour reussir le sauvetage du 2eme vaisseau. 
votre vitesse lors de laccostage doii-etre inferieure a i et ce, dans 
toules les directions (idem pour le retour a ta base). Sachez qu'un 
temps limite vous est imparti (250 unites) el qu un depassemenl de 
cette hmite. oblige le haul commandemen! sideral a vous transterer 
dans une autre mission. 



LIST 

II C=8:X=37S:Y=517 
iZ"»7!IW:V=!: 
«=3:C=B:8=I668: 
E=858 

IS )="— SPRCE RES 
CUE — "IFOR 1=9 
Tl 17 1 PHI csr I 
-UHKIiDl 

IBPRTCSR-WTiPi 
ID(-I*18>1);:HE 
X! I:«='T!0ISIE 
HE BIHEHSIOH" 

17 FOR 1=16 10 19: 
PIT CS8 l-nmt 
<i,i);css-ius 

!«!D(-H26,li; 
11 HEM lilMIT it 
28 S='ei2343S7S5": 



L=X:6SB I*BIFt= 

Pt 

25 if e<9;prt "von 

S ETES EH RASE: 
","FIH":EHD 

27 IF Ci25B;PRT "I 
RBHSFERT DflKS U 
BE";" HUTRE KIS 
S!0H!!!":EHD 

38 L-V:6S5 3«B:Et= 
PI:L=Z:6SB I«B: 
KS=Pt:L=C:SSE 3 

48 L=E:SSE 3»E:6SE 

leaeiesB 2686; 

Ki=KEY:IF K)<"" 
1838 4<8 
I HWIMWH 
»«ilf XiB THEN 



5'B 

68 IF m THEH 5»t 
78 IF 2>B THEH 5<B 
38 IF Zi9 IHEH 5«E 

'-:■: ■; ■-:■: :■:- ■. 
18! IF Z;B Tiffl :•; 

l!8C=Ct!:E=E- Hi 

otBES stflss .:. ■ 

2.2 

ne if *=5ee;iF v=5 

86! IF 2=588 THE 

H5>B 
125 IFX=448;IF i'=5 

IB: IF Z=588 THE 

H6889 
139 IF X=37S;IF V=5 

171 IF Z=587 THE 

(i }*B 
14! IF X=4IT;1F (=5 



35! IF MM THE 

«8tE 

158 if j;=;ts:if v=: 

17! IF Z=569 1HE 
K8>8 
168 IF :'=3TS;IF 7=4 
18! IF 2=537 THE 

179 IF K>3t21IF Y=f 

S5i IF Z=485 THE 

H6<E 
188 IFX=277!IFr=7 

13! IF Z=4I3 is: 

H6>8 
196 IF X=756;!F T=3 

88;: f :-"" •.-■ 

IIS<B 

2(( it ;:=;«: ;f ;=: 

~f!IF Z=7BZ THE 



H6«B 
218 IFX=954;!Ft'=2 

85! IF Z=539 THE 

Hb>B 
228 IF X<289;IF (Si 

88: IF Z=288THE 

HTtB 
238 IF X=2S2::F 7=1 

in; if :=:?? Tji 

H988 
388 6818 29 
998 IF flBS D«IIF B 

BttlllFM R 

£1 IHEH 95B 

>:e m "vkie e??l.l 

SEZ RVEC"5"L.flU 
T8E VRISSEfliriE 

010 5»E 
558 PPT "SBUVETSBE 



8E»5!r:ll=8:V=B 
:«=8:63B 4*8 

ssi tamm 29 

i8«e : pt :sp :;' ";c 

S8 7;".":C:S il 
lines* IKKil 

BET 

2898 pet cee 8;fs;c3 
R4;6s;csrs;hi 
iOSE UiKICH 
16!PI;:REI 

3888 J=IHT !L.'!60i:H 

=iht (L-ie-;ei 

l:0=L-ie»i:-i8Bt 

«:P!=k:o;:;i!,:; 

3!16 FI=P)»nI[';H'l-I 
)i»I0(0U,l!iRE 
T 

4988 PRT 1PR1 "C«BHt 




It. DE CBP:" 
48i8;:: ■[&]«' ■ 

iX)",R:6SE 1188 

!1HP " (Yl'iSit 

SB 4188 
4828 ISP " HIM* 

Ui«:V=«S:H=litT 

:IF BBS 0)9 THE 

H5iB 
4638 IF B6S V.'i TBEH 

sag 

4049 IF BBS Hli TKEti 

5»e 

1658 FBI "VE'.'E 1 :: '■'. 

S»LIBHT;":SS> -. 

188:RET 
4198 PF.T BlVlVi" ' 

;«;:8E! 

I=T 



uunrwi i-:for : 

I T8 LEH!!):PRT 

CSB i-iumi, 

1); 
5818 NEXT liEID 
i008 if BBSUi!:iF i 

3S K11IF BBS ii 

£1 THEH b:86 ■ 

;ei8»si "EEijiE!! 1 " 

:68T0 5»E 
!5e!F*T"imEi. I Ii5F. 

6E!!","i:8H!.=:l 

=9:v=e:n=6:c=tt 

18:ST0P :60TO 2 

8 
7998 FH "TR03 IIOIC 

:601B 5»6 
3868 FST 'RBVITB1LLE 

HEHT":E=388)C=C 



;885 i : 8=18 Hill 88 

88:8 : 8T "BET88 : f. . 
B8BSE iii8:;TS 
i'Ur,"REC»l«EHC 
EZ!!" 

9828 SOTO 28 

8:89 PRT -H13SM3II BE 
t9HPLIE n ,"TEHPS 
: - iC:IF8C!;J=E 
:P8T "RECORO'lt 







INTERNATIONAL FOOD 



FX702P 



En ces temps d'insecurite. II est peut etre fructueux 
d'investir dans la volatile... 

Laurent GRAVERET 

Mode d'emploi : 

Faites DEFM 1 Vous difigez une grande entfeprise de volailles el 

devez elablir un profit maximum pendant les 9 annOes que dure le 

|eu. un bilan est ensuite etabli Vous dispose; d on capital de depart 

de 100.000 dollars, lancez le programme par F1 Po. Voici le derou- 

lement du jeu : 

■ Aftichage du numero de I'annee. 

- 'Action O N ?": vous avez la possibility demettre e! de racheter 

des actions au cours du jour Vous ne pouvez vendre plus de 50 

actions pat an. soil un apport de capital de 5000 dollars maximum 

Soyez prudent avec remission d'actions, car vous devrez loufes les 

lacheter lofs du bilan tinal. Leur coufs est fonction de la variation de 

votre capital, au minimum 100 dollars Si vous desirez vendre ou 

acheter des actions, appuyez sur "O", sinon 'N~. 

"Ventes ?'. tapez le nombre d'aclicns que vous emettez (maximum 

50) puis EXE 



"Achats V, tapez le nombre d'actions que vous achetez (maximum, 
le nombre de vendues] puis EXE 

- "Achats de volaille ON?"; si oui. aftichage du prix par fete puis 
"Nombre ?". Tapez la quanliltj desiree puis EXE. Si vous demandez 
plus que vos moyens le permetlent, relour a I'affichage du prix 

■ "Graines N ?"; si Oui. aftichage du prix du sac (1 sac pour 200 
teles) puts "Combien ?". Tapez la guanine desiree puis EXE. 

- "Cheptet" suivi du nombre de teles achetees "trais sanilaires :" 
puis " 1 $ v combien ?". Donnez alors une certame guanine de 
dollars, si Irop faible. une epiderme ravagera votre exploitation. 
Tapez la somme puis EXE. 

- Aftichage des pedes puis 3,ia- annee" attchage du capital en 
voire possession, du nombre d actions et de leur cote, du total res- 
tart a rembourser. "Variation de capital" • ou ■ x V "Cheptel :" : n 
volailles 

Annee suivante : rappel du cneplei aftichage dn cours par fete : y 
dpllars "Vente O N ?"; si oui Combien 7 tapez la quantile a ven- 
dre (maximum celle possedeei pu.s EXE Relour a Action ON ?". 
Fin de 9eme annee: "Bilan final . aftichage du capital de chague 
annee puis du capital final Aftichage de la variation locale de capital 
(capital total capital initial), puis une appreciation de la pad des fi- 
nanciers 



LIST 

II Mil 26:!=" 1HT 
EJHBT10I18L F000 

26 FOR M TO 18:P 

RT CSR IHllTO 

(1H,1):CSR5« 

VllllKIW.DI! 

HEX! V 

38 WC':R=l:0=trJ: 

J=1eS!E=.2:18=J 

IPRI :PRT "CBPI 

TBI :"U:" V, 

48 PRT 'HHHEE:":fl 

51 IF B=l THEH 138 

58 PUT Bl" V:F=lt 

RH8((HRflH|lI2) 

•EXP (S-MMM 



.61,9) 
79 PRT "COURS :":F 

;" I","VEHTE 0/ 

K?". 
88 IF KV=" THEH 

98 IF KE7="H" THEH 

131 
188 IF KI'V THEH 

lis imp "ctMiar.J 

IIFHBTHFJI 11 

9 
128 HHUMHM 

136 PtT "BCTI6H fJ/H 

7"i 

141 If KE'<=" - THEH 
146 



158 IF KMT THEH 

238 
168 IF «E7>"0" THEN 

138 
178 IIP "VEHTE ",L: 

IF 1)58 THEH 17 

9 
188 J=JtL<188:I=Iii 
185 IF B(fl-l)=e:H=8 

160T0 299 
158 H=189«!|tfi!Hi/R 

(B-D! 
28! PRT "COURS :";H 

;"l" 
216 IK? "BCHBTS ",l 

■IF 1>I THEH 21 

9 
228 IF KIM THEH 2 



225 J=H>H:I=i-L 
238 PRT "BCHBTS VOL 

BILIE MB". 
248 IF HY=" THEH 

248 

258 IF HY="h" IHEH 

259 IF KEVi'O" THEH 

239 
279 6=RHD(«BH|t5If5 

6,8)1. 91 
286 PRT "PRIX :":6: 

" l/V.IHP *«0« 

BRE ".P 
298 IE J(Pi6 THE* 2 

295 J=J-P«6:B=B'P 



388 PRT "68B1HES 0/ 

H?", 
318 IF SEY>" THEH 

318 
32! IF KEY="K" THEH 

378 
338 IF «EY«"0" MH 

348 C=RHD!RBHH5I*1 

89,9! 
359 FRT "PRIX 80 SB 

C";C:IHP "CMI 

368 IF J(k THEH 3 

58 
365 MHNC 

378 PIT 'CHEPTEL "■ 
Bl' V"."FRB1S 3 



ITHIIBIRES :", 
388 PRT "1 l/V "; : I 

HP "conss :i'f,u: 

IF KO THEH 389 
398 J=J-0:H=E-8:IF 

»!8;H=8 
498 E=(RHDiIHT !RBH 

«21)«ie,8!/|88 

:H=RH0(HtEi8,8i 
419 PRT 'PERTES 'Il 

!" VVBIlflH AH 

HEE "il, 
429 PET "CAPITAL:"; 

J,"BCTIOHS!":I, 

"C0TE:"1H,"TB 

TBL:";HiI;" I" 
425 IF fl(B-l)=8 THE 

H 449 




438 PRT "YBEIBTIOH 
DE C1PITBL",8HD 
(U'flifl-l)-l)«l 
89,-2); 

448 PRT " POOR CEHT 
":B=B-SIF B891 

458 PRT "CHEPTEL :" 
,8;" YOLBILLES" 

468 IF KHtHIF 8=8 
iPRT "CEST LB 
R0IHE",:EH0 

479fli»)=3:fl=Jtl:IF 
mil THEH 49 

488 IF 8=8 THEH 528 

498 F=5HHT (F.BHM1 
B):PRT -COlrJS : 

•at' i" 



J=J»8»F:F=l>H:l 

F KFiPRT "Hum 

£!".:» 
518 J=J-P 
528 PRT "8ILBH F1HA 

L'iFOR 0=1 TO 9 

:PRT "BHHEE":B; 

9(8)!" iVHEXT 

1 
538 PRT "CAPITAL FI 

HAL l"Ul" t" 
548 PRT "VR8IBT10K 

TOTBLE":R=RKt(J 

.'t-199,-2):PRT 

(J 
545 PRT " P08R CEH1 

558 IF 8(-59!PRT "I 



RES HBUVBIS':60 

TOD 
568 IF R<-25;PRT "I 

BIJVR13":60TO D 
578 IF R<6;PRT "PBS 

SB8LE":S0T0 
588 IF R<1!;";"PBSH 

AL";6OT0 D 
598 IF 8>18;PRT 

ES 8IEH" 
1868 MflIT 5:l="FIH": 

FOR V=B TO I8:P 

RT CSR Tl" ';); 

IHEXT V • 



TE 



BACCARA 



Si vos moyens ne permettent pas la frequentation des 
casinos, voici de quoi attenuer votre frustration. 

Jean Luc CHTIOUI 



Mod© d'emploi : 

Les regies sont tres proches de celles du |eu de casino. Vous dispo- 
se; au depart de 100$ el jouez contre la machine qui represente le 
banquier. 

DEROULEMENT DUN COUP : le banquier demande votre mise et 
distnbue les carles. Vous avez deux ieux. a gauche el a droite de 
I'ecran. Le |eu du banquier est ceiui du milieu. La valeur d'un jeu se 
calcule par la somme des points des cartes, en ne gardant que le 
chiffre des unites. Las vaul 1. le 2 vaul 2 ete... Le 10 (X) et les 
tetes 0. Vous regardez voire premier jeu : 

- Si vous avez de a 7 : vous pouvez demander une Iroisieme 
carte en appuyant sur "0" ou "N" Le banquier ramasse son jeu et 
vous distribue (ou non) (a iroisieme carte decouverte. Vous regardez 
votre deuxieme jeu e! quelque soil sa valeur. vous pouvez prendre 
(ou non) une troisieme carte decouverte Le banquier peut a son 
tour, prendre une troisieme carte Son choix depend de son propre 
jeu et de la valeur des cartes que vous avez eveniuellement tirees. 

- Si vous avez 6 ou 9 : vous devez I'annoncer en appuyan! sur "8" 
ou "9". Dans les deux cas, les jeux sont abattus. 

Si vous etes gagnant sur les deux tableaux, vous gagnez votre 

mise. 

Si vous etes perdant sur les deux tableaux, vous perdez voire mise. 

Si vous etes gagnant sur un tableau et a egaiite sur r autre, vous 

?agnez ia moitie de votre mise 
i vous etes perdant sur un tableau et a egaiite sur lautre. vous 
perdez ta moitie de voire mise. 



TX 702 P 



Si vous etes gagnant sur un tableau et perdant 6ut lautre, ou a 

egaiite sur les deux tableaux, le coup est nul. 

Vpus pouvez arreter a tout moment en misanl 0. 

Le programme utiiise la matrice pleine (en P2) pour obtenir vous 

pouvez utliiser le precede suivant 

1- Mode 0. ROM (produit une ERR 1), DEFM 

Mode t en PI : 10 STEPSTEP (15 lois STEP tapes sans espaces). 

EXE, eteindre le machine puis la rallumer 

Mode 1 en P2 : 10 $ EXE, DEFM 20 EXE 

Mode 1 en P1 9999 $ $ $ $ S EXE, CLR # 2 

Mode t en PI 9999 EXE, 5352 EXE, le compleur de pas dolt etre 

a 2013. 

Mode 1 en PO : 1 A8C 2 (26 lettres), EXE 2 ABC ,Z (26 letlres). 

EXE. 3 ABC .. RS (19 lettres), EXE Le compteur est a 1933 

Mode 1 en PO 10SQR, EXE 

Mode 0, S ■ T9S . AS = M1D(3,1), la matrice se trouve maintenanl 

dans AS 

2- Mode 1 en PO : 10 " EXE 

Mode 0: S = T9S . T8S = MID(3,2), T9S = MID(1,2)+ "S = "+ 
MID(3,1)~ AS + ' ". Enreglstrer PO, eteindre la mechlne, la rallu- 
mer, taper ROM EXE puis charger le programme enregistre dans la 
zone P2. Mode 1 en P2 ; 1 EXE. 2 EXE, 3 EXE. 20 RET EXE Si on 
liste P2. on obtient une ligne 10 $ - "SOR LOG'' Ne jamais execu- 
tor cette ligne. II ne reste plus qua taper le resle du programme en 
zone PO et PI et se mettre en DEFM 1. Si vous ne disposez pas 
O'intertace cassette, faites dans la partie 1 (jusqua AS = MID(3,1|) : 
Mode 1 : CLR ALL EXE 
Mode : ROM EXE 

Tapez la zone PO et P1 du programme, en supprimant la ligne 10 
de PO et en moditiant la ligne 440 de PI 440 GSB 9E3 : PRT "AU 
REVOIR "END 



US! HL 

!» pee LIST 

(BE: 36 PRE: 1588 

P8: 157 STEPS 
18 ESS ii:?.!-r\[- : 

,1) 
28 S="tC»CR8P,E":ll8 

115 
31 FOE 1=8 10 lEtP 

EI CSP, 5t(-l)tl 

IMUBIIHEXI 1 
48 FTP 1=1 TO, 7 ST 

E? !:PST CSE 8t 

nrffla.mcsE 
IHIUMMil) 

58 EI I:K=8:F0B 
1=8 TO 4t8!=K!t 
BltHEXT 1 

SB FPT CSE l;H$! n 8 
fitCMMUtMTO 



II 
PI! 1416 STEPS 

5 bit :;:s;e -ec 

:S="12!456739XV 
tr:3=168 
18 P8T "V0U3 BVE2" 
ISiVUHF "VOU 

sb:sez",»;if s 
,ii ne le 

15 MKI S! IF use 

THEII 488 
28 WT=8t!B=8:87 

=8:E3=ii:PST tSE 
MlilMl^l? 

(SSE 2:: 
38 J=2:K=15:6SB 2e 

3:J=9:SSB 2e3:P 

a :■:- »;• '\ 

58 FOE 1=8 TO 5:8= 

:-: .,:'" 5e3:« 
l(U=HK(,|):|| 
EST 1 
68 T=8:BJ=" "+BU( 
" "*85S:PET CSE 



ItBBSiESF. 2181 
"8 8=6tS6K T;S=0:E 

:; <:'■■■ ■:, 

WiMSiTI 

SB 2t=KEY:lF 2!='™ 

THE8 88 
S5 IF I»8 MB 128 
98 IF 2!=*5";IF fii 

=9 TSE8 258 
188 lF2l='S":!F:v. 

=8 THE9 258 
118 IF <86-3).tE5-3 

=8 THEH 88 
1:5 PET CSE 3!" '18 

i:""; 
128 IF 2)=T:PE1 £ 

SI 5*T," "::E0 

TO 128 
138 IF Z!>"0" TKEH 

88 
148 t=i*M.4:Mrt!l 

=13»SEH T:6SS 1 

E3t(0-4 



:':: e=o:;;e <.im--. 

l-r E=:»:S=t 
1S1 MtSU IeC-C'C 

/58*.2:P?T Ei! 

«8tSSKTt!lE( 

E,l); 
178 E6T0 lSBtT 
ICiiCE Ce3:F:' CSP 
:■':..:■..: . 

B3{::T=8:£0TB 7 

8 
183 PET SSE SIB!!" 

";Bi:;Sii :=":: 

=8:SSE 4e3 
218 IF HOiElli •'- 

8.2<ESK!'32N - 

H.4!«<H.S>8 

.5 TSE1I 258 
228 FPT CSC 7:F;;" 

-?.:■■ -6! 
248 E=3:ESS "E3:h>= 

B4«t" "*B5!t' " 

misiF.,1) 

2:8 CFT SSP "iHttCC 



E 16;fi2t.i£SB 13 
IR3I 

:u pec :=s te s:e= 

IlESB 4e3:IIEXT 
I 

265 PET :PET ?.i:CC : 
ItflSltSE 1SIB7 

ctv est; c;c*ijh s 

6-B8)tSSB (KT-8 

278 LS="FEE[)E2":J=- 

11: SOTO 298 
CCC !:=:ST !li/2:60TO 

278 
.:•: f ?7 E-F C:"C:c : 

S»L":60T0 18 
281 K-INl W 
232 L!="SflSKE2" 
:':i FPT "Villi "::,': 

6ES KIT 
358 C=C-K:IF CsflFF. 

T "VOUS ETEC FS 

i«E...":60T0 44 



318 8310 18 

i;:s=;-!e!:FPT -;o 

UifiVEZ'iUF S 
C8;PET "PEEOU"! 

41! IF i-i;"F; " 5 iC 

!IE"; 
428 PET BBS S!"f 

428 : : ; ;:,::c; :cc 

BT S:SSE7e3 
448 SSE Se3: P-" "Si 

EEVilF...":SS3 
I2!PET M0i3): 

EH) 
CCCf C = : CCS i:i!'Si 

f'lilF J=9IH 

ES Ce3 
2818 FOE 1=7 TO I ST 

2? -!:FPT CSP. I 

IBS!" "ItHEST I 

,TF Ml PET 
CCCC :: " CCS ::■-!': 

IF J=9;EET 
3818 FOE 1=18 Tl [:( 

ET ESS I!" M» 










;:HEX! l:EET 
4SCC S S!=lStFSB0 (fi 

'CB).'10:BET 
CCCC E=!*::iT :Pf:S!M 

3: IF E=i:S:S;=: 

(SHE 
5918 PET 
: CC" : C : :--% TO 38:« 

EXT ItEET 
7888 FOE 1=8 IB 1T:F 

in ;=it tb i s; 

EF -l:PET CSE J 
■ft "i 

781; :;;:,: ;::et I 

CCCC C" •;: :" iTF 

ES6H";::sF::J 
=lEH',!)-7:lFIi 
3 THEK 8e3 
8618 IF JCS;F!=:;;!:i 
,7)iJt=tlIB(8,]) 
:BET 

■626 tl=!:!=8:EET 
988! PET ■SElllElIB, S 
BIB =>',Fi(011! 



»> m LIST 
(BE: 36 PES: 

c: --'. 



C =8 
6 =8 
E =3 
F ■-■: 
i =8 
Ht = 1 S 
1 =9 
J =12 
I =13 
I) =FE«iiE2 



Bli=X 

-.: 

s:;=: 

84i=l 

151=5 

lf:i 

88 = 6 



JEU DE L ELECTRON 



Arm6 de votre canon a electrons, debusquez ces sata- 
nees particules dissimuiees dans une grille. 



(((( 



Jean Marcel OREPIN 




SS5SJV?S t S"ea'5!8 B g°?S3k6 s ll s 



I PCUT ETBE 



oppose oe chboue Nova; 



IL PCNCON-.E :-.: 



.80... -SOLUTION 

J SB III 



LIGHES .2 ISINCS PflROLL 
^QIT OU L ELECTRON 



lUf flPBES C«O0uE COUP., 



B THEN SOTO 058 



18» LET Ct.CI 



.BCHNE DEDUCT 



LLE'. ■■-.-. 

3 H - - - - - 
COEPIH* 



■ PEn ifluvCGOPOE RRB ( 



. 3e p-iiiT the 3. KH^HKKI 

40 PRINT TAB 3; "|N N H H N H 

tfa print too :;"■! i j< s< 

^60 PRINT TAB l.'^-.TRB 19,' 

?a for iri to s 



■_8.«.c*ii to ; 

35s next 

ana nekt ± 

aae ppint rt a, a 

asa print rt e,8. uoulez-uous i 

RIRE UN ESSRI iO-Ni ■ 

i^_ INP'JT C( 



RINT I 



8.8.' 



J78 LET N>t 

aT-i let Ni>r 

aae ow r«k 

-:;.- Din x ,NJ 

388 DIM V iNi 



see ip lcn t»>* then goto aeea 

BOB IF LCN Ti.3 TMEN GOTO »1«0 
098 IF LEN T»oS THEN GOTO BOB 
088 LET <■ t 

018 IF x|o"! RND Xlou RND 
XtO-Z" RND UtO-N" TMEN 50TQ 55 

• 
oaa let -.,-. :■*■* 

038 IF Ytl OR V)B ■ 

030 LET FfCHRI (OllOS 

ti; j civO see 

ese if x»<i"U" rno xao'N 

OOTO 718 
068 LET R.B 
S7B LET D*8 
008 LET P>1 

aae ooto leae 

718 LET Q«l 
738 LCT D>S 
?3B LET P.-l 

^4* jiTj laaa 

oaa reh ..=.,..,..,,. 

818 REH 0FFICHR0E 

eae pen .,.. f #.,,.. t * 

838 IF X«. -U- TMEN PRINT I 

> *U .3:Ff 

8*a IF Si»"B" THEN PRINT I 
. .1. ,19,F| 

BOB IF Xt.-N" TMEN PRINT I 
• IV*1) ,F| 

808 IF i ■■■'»" THEN PRINT I 
S*I¥*1>,F« 

078 RETURN 

988 REH iiitituii 

91B REM ABSORPTION 

aae rem niiitini 







IF X».T«llJ ■ 
I. LET F|. J 



THEN PRINT RT « , i* , ' REFLECHI " 
1160 FOR T«l TO 68 

ii7« if o.aa tmen ooto 5«b 
nea goto iiea 
iaaa rem *«•••*••< 



3138 PRINT OT StlXtl),a»lV 

3135 FOR Till TO SB 

3136 NEXT T 

3i*e if N>e tmen ooto *eaB 

315a IF 0<38 THeN OOTO 088 

ci'.'.o ,:to nee 
3iaa -pint rt i.ss," r"" 
6,35, ■■ oe -.rt a, as 
saia pop t»i t6 oe 

3328 NEXT T 

3338 IF 0<aB TMEN OOTO 5BB 
4888 REH -....,, r... 
IBIS REM C EST ORGNE 
:-•;." REH tilflltllll 
*B3B PRINT OT *,2*,- GRGNE 
6.35. eN ;RT 6.29. O.R 
3.- COUPS 
*8*e GOTO 43BB 

tiee reh IIIIIIH4D 

tlia REM EST PERDU 
«138 REH itiHIH.tt 
4138 PRINT RT 4,24, PERDU 

0.20, RESTE -,RT 6.31.N.R' 



a. a 



■ -.ii • 



L TO » 



1278 LET P>1 

iasB ooto laee 

1388 IF I>8 OR I>9 THEN OOTO 114 

5 

1388 LET XLCHRt l50t.Xi-"E" OR 



•-' r 



ft 111 



138 PC 



■ 6 6 5 S 

113 3 4 5 6 7 

j'UGULKZ-VQUl L 

1 TMEN SOTO 228 



.■1 THEN OOTO 304 



308 NEXT . 

39B LET HI, I ill ,Vi 

488 NEXT I 

401 IF OiUl i)"0" ■ 

*a3 FOR 1-1 TO N 



-.1 



985 GOTO 1178 

BBB REM --•' 

BEH TEST 

___ REH •'<! 

838 FOR I-D TO R STEP 1 



1338 LET P.-l 

1348 LET ■: 

13S8 OOTO 1888 

2888 REH ikii.i 

2818 REH TEST NC 

3B38 REM IIIIIM... 

383a FOR Hal TO 3 5TEP i 



OUURIS 4 NOYflUX ■■"§ '■» [.IS5IHUL6 
5 DRNS CETTE GRILLE. EN 28 COUPS 
HR.IHUN.PQUR ;El« UOUS OISP'JSEI 
PE 4X8 CRNONS R ELECTRONS iE" U6l 

105 LET 0*=Clt"R CMROUE COUP WO 
US P0UUE3 TIBER EN TBP«NT PAR 

Exehrle E4- ou PROPOSER une PO 

SIT Ig N t , E N0 -,^ u epl TRPRNT PiR Ex 

E ?S !yo!S u l*H s^u?^li T ^ tSpEISV 

18' LCr'ci.cii'., .CMROUE ELECTR 



485 LET .1. 



538 LET 0«0»: 



19,23. NOtRUX " 

TE COUP 



.lit CEM 

183B FOR .-. 

1335 IF I>B OR I>9 THEN QOTO 105 

134B IF lRaiY.I)a"0" RND lX«i"E" 
3B lli'U'll OP <At<I,V)a"0" BND 
ixt"'S- OB XH'N-II TMEN GOTO 9 

1868 IF Y>1 OR il>a6 RND > 

(I..1 tu- ~- ' 
1868 IF 

'.8 OC --- 

) P.lt TMEN GOTO 1898 



3B88 LET ' 
3898 IF V 
3B98 NExT 

3iee pRiN- 

3118 IF P. 
288 

3138 LET I 
3135 PRIN" 
6.2B. - Ul 



■ "_l" BND T8IH1 1 >"U 

.6 THEN OOTO 668 
IX, 1) ,2t IV*1) , ■'» 
■0 THEN GOTO 3 

14, BSRVO ",RT 

IT 6. 25. HOINS 



III ,1) 

4168 NEXT I 

4166 FOR T«l TO 68 

4178 PRINT RT 8,34, 

4188 PRINT RT 8,34, " 

4198 NEXT T 

4388 PBINT RT B.a, ■RPPUTEZ SUR I 

NE TOUCHE " 

4218 IF INKEV**' " THEN SOTO 421< 

4328 RUN 

5881 REH PPESENTRTION 
5883 REH ............ 

5885 CL5 

»» hr R i- 

EretTrnri 

8828 LET -.---.-. 

?!5e^ffr*R , PR^' ici u-n crepin 

5835 FOR 1-1 TO 8 
5848 LET Tt<R|L. TO 33) 

5B5B for j»ae to B*i step -i 

5868 PRINT BT J.B.Tt 
5878 PRINT "' 

5888 NEXT J 

5898 LET R(>BtE33 TO I 

S1BB NEXT I 

5118 FOR HI TO 08 

siae nevt i 

5138 CLEAR 

514B RETURN • 



CARNIVALE 



D^gommez a souhail. les machins qui s'obstinent a 
polluer le haut de votre ecran. 



Henri CHASSAGNEUX 



Mode d emploi : 

Tapez le listing 1 et apres lancement, lapez 1359 a la question 
"LONGUEUR REM ?". Enirez ensuite les codes du listing 2. Trans- 
formez la iigne 10 REM en REM par POKE 16510,0. Remplacez, 
a I'exception de la REM, les lignes BASIC du listing 1, par le 
programme principal. Les regies sont incluses. 



i# yyic&K 



ZX81 



<§>.,% 



iHSEssesssa 00000 



iooo&oooooooor..: i ■:.:-. I :,:, : :_:■; 



se print -longueur een ■ 



118 LET B-INT ifl/i 

ise LET C»INT |R- 

13« POKE HL^iL c 

..■■-■■ :*.?: -^ : 

14* POKE IS.-:.:-. \- 

170 RP.ND USP- 1651" 

see scroll 

SIB PRINT -RDBESS1 

sse input a 

S3B SCROLL 

s*a PRINT P., 

SOB FOB N.O TO 7 

see input -i 



MU 



l»COOE R»*CODE (<» 



33B SOTO 36B 



306 OOTO S3B 



108 SfiUE "CHRPGEuB" 



5 8B SB OS 91 80 1 



.6614 

esia a. .. 

6E30 BB 8D 00 96 08 BE 20 I 

6530 88 94. BB 94 OO 96 80 9s 

6546 88 95 80 95 88 SF 88 SD 



. 00 97 08 97 



6594 BB 96 BB 97 ( 

-:■:-;;; cc no oa 96 t 

6518 88 96 80 96 I 



1642 00 96 08 BB OB 6D 00 97 

MM 88 96 80 96 00 96 00 6F 

"-■% 00 96 88 96 80 96 00 94 

i 08 97 80 95 00 .= ? :■- 

. 00 96 OB SD 00 -'. .-? iF 

! 00 9& OB 94 00 ; . ,: -■: 

I 00 96 00 BE 00 it it 17 

i ee eo ee oo bb ee 00 95 

6786 88 97 80 08 00 94 00 BP 

'■ 08 BD 08 57 BO 80 00 9B 

I 00 9B 08 88 88 97 OB BF 

i 08 96 Bo ee ee o; oe 00 

1 eo 97 eo 96 ea oe oa Be 

. i 00 of oe 96 ee be ob 00 

'■--i eo ob 6F ee oe oe ■■• ee 



E AU 



Une fie maudite abrite comme il se doit, un fabuleux 
tresor Serez-vous capable de le decouvrir ?.. 



Mode d'emploi; 

Tapez et sauvegardez a la suite ces deux programmes, le premier 

contient les regies et le second, le programme principal. 



i OEM . 
4 REM I 

i =e!i I 


L ILE AU TCC 
ft OLI'.'IEfl 1 


sop | 


i aln ^| 


:■ pem ... 

5 REM • 

6 REM . 


DE p CESE ^a 


10.. i 














i . : -0 = ue i 






•"jT* 




■w 


Toe 7, m 


'l":i"JC 






SURVIE 



II y va de voire survie: courir reioindre un abri ou servir 
de festin aux pelils martiens... 

Pascal HUART 

Mode d'emptoi 

Tapez une ligne 1 REM de '6 caracleres quelconques et pokez de 
I'adresse ' 65 1 4 a 1 6528 les valeurs suivanles : 33. 191. 3. 62, 1 28. 
215. 62, 0. 43, 188. 32. 247. 201. 118, 0. Tapez le reste du listing 
les regies sont incluses 



SSBffiVIfcSVBSS, 



IONC5 


copacTtfies 






























*,'.-z. 


*■«:■* . 


.BONNE CHBNCE. 














S5iO. 






T Suite de la page 


ass l-Et ■iix.Yi-cV 


INI 


IMMI 


870 Nl^T : 

i : .et S(.',i ■ D 

277 FAST 

.-■-.,• 'c;; l-t r-: 1 iOd 
is 1 . ;/ ; 'i ^6 ia>ae r 


UUV 1/8 "INT 


1*S If BtjX.Y) ill 

j ■'■:■■ j'.iu ii^_ 


IHT 


as ■ ... j 

IftHBCSt 


jes agro »« 

a;* LET M(X,VS* * 








COrwn 

lilT OES RE1E(»\IE$. YOUl 

_... OUIT 50' 
EJOK 1 .. - SUf- UI.E ILS 
£a*E y'JE i. OW 
S.tr.Oina ■ l ILE "3L& 



'■::=■ :-■ 

iNE, ' 

BUT OU JEW ■ 
-IHTENWT |X- - 

^..Ttt-i'o,;' _>?"_ 

■Je ."■:'. 

.MS "U ILE — 

,-■• lese'.:e gs;i;hT 



■-;:';; 






et-, . .- enBo&reo .;e FwuL 

Eu' TRE3CB, 

. =:-j= MENEB S ZZZ-. .'i.THE 

, . . Miij:ori jo-jS oevpez 

. -£~ ; t6i:& ET L asp&BlEH 
fl- . . , OV)T H .0.1 bbbbr 

riirsfl slobs- 1 



DEBUT I 



■ils au i 



.ME TQu 



,,A-'» 



, : 



***. . . maM*XUA 



•'."?-/ 



Ml ■■■ j;_iO TMBN LET HfiX.Zfa' 

Siea jots 13 



-:;it:ji.s 



coyfjfigxi 

CQODCS : 

seaa i 



wi le: bb™ 



. :, 



CBOBCTeOES 

It::: &»,»»«? «.»] 






as; Ltr eo-r 
asi -■::■->: >■-.• 
ss: 5Sto 75- 

BEE PfllKT OT 17,2. '"tftJLH 

zz z - e- T E-'.. - . . 

66C LET fliO 

i*i le- ei I'i.M' - ■. 
i-c l?t n* mi s*u ■■ ■■ 

3S5 &ET!jKti 

||| LE^ K>|MT lRND*Ml ; 

nee cMi uh tboo' inrc-E 
j.es. 

Si* LET i-lMT .»■ 18+. 9 
SlB PBIMT *;l '.iuT 
■ ■>, P'jlje ;-c-l it, 

■:-20 :" :-it ib^..;. a?«> 

TMtM 5;--E 040 

s;«i jp c."s. ,o"imeij'5i&t( 



£TEi TQ 

. . . it£- 
conoe 



* '- L 


'1 


S 
-5 


1MB 


L« ' 


" 


... 


B "iC 








-:-. 
>= 1C 




>Ei. 





TuOBIN 

ise... BfiEre'-T^TiOH ol ¥ eu 

;;*>. . . !>LE.TiiBLEF '• 

bI-lE Jul ' 



-.'. ■-■■ 



: toft con 



:.e c-- 



16?. . 



;tkob 



V.,:- 
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FUNCTION 



Ce jeu de memoire, consiste a se souvenir du mes- 
sage ou du mot BASIC, attnbue a chaque touche de 
votre clavier. 



Mode d emplot : 

L'appui simuitane sur 'FUNCT el une touche delinie. permel dobte- 
nir la fonction desiree Si vous ne possedez pas de moniteur. placez 
les codes HEXA en DATA de la boucle BASIC comme indique 
Apres lancemenl de cette boucle. sauvez r implantation de la panie 
MACHINE par CSAVE ".A* 6E60,E« 72FF vous la lancerez par 
CALL* 6E60. Pour detinir vos touches appuyez sur " '". e reste est 
exphQue dans le programme Sur ORIC 1. la louche SHIFT gauche 
remplace -a touche FUNCT" de I ATMOS 




: ?[i ft k ca ...o.... 

, 6F 65 74 2» ..Llo«t 

72 2B ?4 r«tour t 

1 «i3 «P 63 6£ nitfwii 

■ ■>: if -V 68 t...Co.h 

' A3 92 «• 6H • 

32 2C- -2* 59 .L-o2- P 

i 75 63 76 ?2 ourwiw 

I 61 69 74 63 ■ »r*it* 

I 90 9l> t'F m«nt 

: F0 FB C9 Bl 

: F6 96 4L 3t Lv 

i m tie H m ol.p 

» M> Fl 73 ..S....J 

: 79 ft? 92 81' ..L.P... 

> 66 92 20 I k. 



COBRA INVADER 



ORIC ATMOS 



Un cobra a envahi votre ORIC ! Tentez de detruire 

cetle bestiole, qui a la facheuse mane de se multiplier. 

Christophe LESTRADE 



2 REM LESTPftDE '.HKIsl'jRHt 

6 REM COBRA IHVADtR 

12 CErl loo". LMMiimJi MKHlt* 

14 REM 0*11. 1 UK 1 1. MTNV» 

93 REM DATA LMMUM^t HHCHlHt 

100 DATA 188>H3.8,8D.2.4.K},lt 



1.272 



H.4 •; ■■■ 



110 I'HlM HI 

128 t-rtlM lit 
if.fa.2C3 

130 win lifo.Ho.e.Hi'.oB.'ji.o.bo.H 
e-e.Bi.3F6 

140 WITH 140, 8. H3 ■ 28. E6. 16. Ml*. ^.4 
,63.0,327 

150 DATA 159.AD.3.4.8V1.HD-4.4.6 
D.9.27C 

■69 DATA 169>4.ftD.5.4.8D.l.4.6o.H 
0,0.259 

170 DATA |79 4 l^i 1 • >■ ■ I ■/ i 
A5-9.2E4 

ISO CAT" 1BO. £--..:-.. 6'.' - ■: : : ■.• 

.60.nD.4lC 

190 DATA IJtD.4.i.-...W l.-Dtt 
9,4, 2F7 

290 DATft 289.18.h>j 8 -,.•.._-.. -o.:fc 
6I.83.34C 

210 C-HTF* 218-B-'>8.Hl>.1.4.C9.23.D« 
. I.60.32F 

220 DATA 220,fcfc,1.4,t6.8.Di- 2t6 

I.60.3F2 

230 WITH 238 -ftl'> 1-4.1-0. 1 ■s.J.'.t.l 
4.C6.37C 

240 DfiTft 248,9.ft5-0C?.Fl-.LiO.2.'.6 
. 1 . 60 . 466 

256 DATft 230.AD.6.2.C?,HC.l-M. (.* 
,B2,99.44D 

260 t-ATA 269. C9 B4 !,'■:■- ■■ 

C9.9C.D0.Wft 

270 DATA 279.3.4C.44 iO -..* ».,«. 
3,40,70.427 

280 CifiTft 288.88. 6920- 17. SO. 20-0. 
ee-28.96.2El' 

290 DATA .;98. 88, 29 -25- 1*9. 20- IE-JO 
,60-87S.2E3 

300 DATA 390.96. 14.84. 15- Ao.o.H! 
14, HA. 98 KM 

319 DATH 318,4B,8,78.»iD.I-. j.MB.BM 
■ CO. 7, MO 

320 DftTA 328.D0.2.9.48.4B.AI..'. . 1, 
9.EE.3I6 

330 DATA 3)0-«D.'.,3 -.--. 11 ?..l..m» 
.C.3-247 
340 DATA J40.MM,e.8.i*t,h,a.8H,?.t>. 

.bo.cjc? 

350 DATA 338.3.29.11. 9iU.ai-.C j, 
26,66-23E 

360 DATA 360. AS. C8 ■ C4 fc i*. ■ 4 . - 
60 ■ A9 • 6 ■ 580 



370 DATA 3.8. 
ftft.E8.BA.61E 

380 DATA 3o8. 

*-..E8 --.'■- 

399 DATA 399). 
5 ft?. 1 460 

490 DATA 488. 
A5. 0.291 

410 DATA 410 
,Eft.ft9-51C 

420 Dn I ft 420. 
Hi ,. ii.i. 

430 DAIft 439, 
.2.E9.368 

440 1 41 T ft 448 

2.L9.JA6 

450 DATft 450-.; 
9.29-L.329 

468 DATA 460.- 
J-3C3 



t - -■>(■■. 
99.95.BB.6*,H».,*,y9 

DO.EH.-60.HD.».4D".l 

-\- - -4 M9-14.*.,',4. 

BS.2iM,l,iA. i tn.kn 

J.1.MO.0.'l.-'.t-. -4. 

ft9.9,«D,b,4.t»0. « M) 

i2B.B8.2.l6. J.S5.2.BI 

P.D0.3.A9.6C uli.t. 




=7 #€/>.' TUSAlc. C£ <^Al\ 

(J* A la rgCe'ce songs 



TUtu- MOi AMIS 

Xj^e- eires-j 



V 



470 DftTA 
6A.t-0.3ED 

468 [lift 4B8 
*.D0.3.490 

490 PATH 490 
8A-C9.E0.628 

500 DATA 500. 
12.60.3A2 

510 DATA 510 
.68.ft2.458 

528 I'"'" '.-'.' 

87 hi- At- 6A 

530 DATft 5)9. 
68 . EH . Eh . 584 

540 DATft 548. 
9. 60. A?. 536 

550 DATft 550 
0.0. 61-486 

560 PftTft 560. 
25.D9.F3.5e3 

370 DATft 578, 
6,3.B5.41C 

580 DATH vw. 
9.B8-D0.5DS 

590 DAI A 590- 
B1.4.C9.4ft2 

600 " HTft -■■■' 
6B.Do6.4CA 

618 I'-'- 618 

01 ... MM ',AS- 

620 DATA 620. 
,4,9A.ft6-42C 

639 DATA iM. 
.4.A9.BF.592 

648 DftTA 648. 
A F0-1A.440 

638 DATA 636 
30.602 31B 

•„68 DATA 660 



6.4H1J.0.B1 .2.LS, 
5.A9.E8.?l.2.b«.l,9.6 
Rf.Ea.91.2iM.hM. I h. 

F9.3,91,^6h AS-.289 

HO. 8-61. 0.L3- 66.1-0-1 
FF.AO.E3.2e.C6.O0.i.E 
87.88.1.?. «- 1-9.5-68. 
69-ftt>.8,2.C?.84.Do-F 
6ft.s5-4,A?.l»-.et..3 ft 
4C?6?F0. lB.L8.C0 
J8.ft5.4.E?38.B8.2.'. 



6-A3.3-4FF 

679 141TA 670. 
.2091.4.5DC 

680 DATA 680 
C. 32. 82. 45? 

690 CtfiTA 6?0 
4 . 88 . 4C ■ 498 

709 DATA 799 
.AS. A?. 6?. 44i. 

710 Dfttft 718 
82. 28. CI. 424 

720 DftTA 720 
4.F0.1364 

730 DATA 7)0 
.8B.88.D9-58D 

748 [ATA 748 

82. 28. ?A. 433 

-ii r.HiM ."■• 

-20.23.81.2D3 

760 DATA 760 

9.4,58. ?A1 

- -ii ( -ih ■ :-.., 

-92A9A3.6FA 

789 DAIA 790- S 
-9D.0 3A8 

790 C-AtH r?8 .4 



.- tfc : i.- f o.-.o tM.M-- 

C6.B1-4-1.9-29.D0.), 4 

C9-6B.D9.e.ft9,6ft,91. 
26. 82. 98. AA. 16.69.27 
-l,4-8A.AH.6w.4l..2e. 
61.29.16.82,69.CE,8, 
69A9.18.A?.69.«9,B7 
FA. 68. 28. 6A. 8^. 28, 71 
81. 29-23. HI 29.23.01 
2».M.M.4i.3b.ti.A, 



- -. ■.- : .. ' 



.41. *£ 



S.9.A? Bt ^-i.Fn.e 



*.C9.W.DB.E4.HS.».C 

•.■E.p8.h?..-0. -1 4 --.. 
29-D9.).4C.Fb.8l.C9. 
A?,69.91.4.C64C.D1. 
18.H?.^9,ft?.ft9,6A.91 
(.e.4t-H,81.H?,92.03 
93 3-ft924.B14.C-'.* 
98,D9.F7.39.A3.4 t9. 
C6 5.834.Cy 6.- DW.f 



65 E*. ft?. 57s 

830 DftTA e». )3-8D.87.et.M?.lj.BD 

8F.9B. A?. 57E 

640 1*-TH ,4.t 4)-tlt<.98.Ml.H-.4t .«. 

,».BB>».38Q 

850 [-ATft B38.52-9D.92.6feH9.4t SD 
.93.68, ft?. 5-E 

860 C4i!A 869. SA.at-. -4-W H?. #.nL. 
96 B8 8D 53ft 
979 DATA 879.97.B8.0D.9o.Bb.9t>>?? 

eeet-. 9A. 63ft 

880 DftTA 860.88 B1..96.B8 BD .« Bt 
.A?.ftfi.85.63A 

8?0 DATA -?0*..-.- efe.B5..-.H?.6D ft 
O.B.?1-43D 

999 DftTH 999.6-A9.23.91.CI8.n3.>>. 

69.28 <*--- 

919 DATA 919-99.2.E6. 7.85.6 t? tt 
-D9.E7.56C 

929 DATA 929.A3.7.t*» D8EI68. 
EA-EA-EA.793 

939 DATA 939. AE. ?,4. H. .94. 88.1-9. 
fD.CA.493 

?40 DATA 94e.D0.F7.4C.82.fti.35.5t 
■33.33.33.4C0 

1909 Mires TEXT PftPEBO lt*2 

1019 aEA» > 



1030 l»Eri VEBIFlCATIuH-i \ 

1039 ren HliE EM ftMOire 

1963 PLOT 19-3.-VEB-1FKMTI1JN6 1" 

1969 PLOT I0.7.-niU V ntnoire" 

1070 A- •6000 

1099 FOR p.i TO 95 

1998 PEAD D C"9 

1993 PLOT 119.-LI0NE M» "«sTI»«(D 

1199 FOR 1*1 TO 19 
1129 READ Bt e«""»-*B» e->.'AL>B»> 
1139 POTE fi.B ft«ft*l 
1149 C"C*B 
1139 NEXT I 

1169 READ B« :.•«■•»•;* -■■■.■■! 
1179 IF C:>B TMEM CA'O 1298 
1188 MEYT P 
1199 WTO 1329 

1280 FL0T7-l-,.-£RPfciJft I-E DA I A fell 
LICHE Mo -•STP8-D' 
1320 PEM CARAC TERES 
1350 DATA 12,0,0.0,9-0.9 
1360 DftTH 12.38-0.8,0 0.8,8 
1379 DATA 12. 306 j. 0.0. 9-0 9 
1399 LATA 12. 30.63.63 9. 0. 9 
1399 DATH 12. 39-6). 63. 12.9.9.0 
1499 DATft 12. 39 63.63. 12 12.9-9 
1419 DATA 12.39.63.63. Ii.li.li, 9 
1429 DATA l2.3a.C3.C3. 12. [2 U. U 

1439 DATA 0, 14. 31, 49. 4?. 31.J4, 

1440 PATH 0.2«,tt.39,33 1 «,W.i 
1439 [-ATA 12. 12.6363. 30.1/. 0.9 
1460 DATA 00 012.12 9 B 

1470 DATA 1212.l933.iJ.lB -U - 1.- 
1399 CLS 

1320 FOR I-46S36 TO 4,-5- 
1339 rent- a 
1349 PC»E I. ft 
1559 HBO I 
1699 CLS 

1619 PRINT PPImT'-wkLE- ViWi W-. 
IMSTUUCTIOMS v- 
1629 GETft» 

1639 IF A»«"n" THt" GOTO '.'--> 

1640 IF ft»*"N" THEM Cn-l-J JO.-U 
1638 '^OTO 1628 

2028 REM INBTWXTliJtfe 

2040 CCi PmPERO ll».' 

2930 PRINT PRtHI-VMi Rt BUI l>-i itU 

EST DE- 

»060 RPINT PRINf>l* IRiljre L' CUBt> 
H BUI" 

2079 PRINT PR|tH-(4>-.INt> «4.' tUR t 
T A HUSWE" 

2998 RRINr RRIMI-H-Jt. ..Elm Vu"»>. R 
01>VEZ VOUS" 

M?0 PRINT RRIHt-ltPLACtlt iJ"« I r. 

2199 PRINI PRIMI "<.'•--*•.* ..Mi-Hf 



•Rlltr-'.'iKitUR Bh>- 



2120 PRINT PRINT 


■ |p-.l If. M,. 1 


--■HAUT- 




21)0 PRINT rVRlMI 


LURtEU* DRQilh 


— ■DROITE" 




2140 PPIMT PRINT 




N'AVE2" 








TOUCHE CAR 1 ' 




2160 PRINT PRINT 
C>" 
2179 CET AC 


' TAPE2 out TilJCH 




2189 CLS 




2190 PRINT PRTMT 


LE TIP SE full A 


VTOMATICHJEMEMT," 








EST TOUCHE " 




2210 PRIMT PPIMT 


LA PARTIE Ti-JCMt 


E SE TRAMSFORME" 




2229 PRIMT PPIHT 




LE COBRA- 




2230 PRIMT PRINT 


SE SEPARt EH DtU 


2240 PRINT PRINT 


fl L'El-PAH U CUB 


RA EST PERRE-,EKTE 


PAR " 


2250 PRINT PftlHI 


1 ET >" 


2269 PPIMT PRIHt 




ENTE PA* I'- 




2270 PRIMT PRINI 




NS EN " 




-.--_,• pRiNI PRIIir 


INVERSE vll-f.0 " 


2290 PRIMT PRINT 


'btnttu 


:■••>.• " i>i' "un 

2310 'iET AS 


' TAPEr UME TC».M 




2?2o '"L> 




2338 PRINT PRINI 


LE S'"PE AJXMEMT 


E DE 19 RTS- 




2349 PRIMT PRIMT 




E VC-VS A-JEJ" 




2339 PPIMT PRINT 


WJELDtt CHOSE." 






m DFPAkT 1 ' 




2379 PRINT PP1NT 




UE LH- 




2389 RPINT PRINI 




RARIDE EST- 




2390 RPINT PRINT 








MOOT" 








■ * REPPEUre LA" 




2429 PRINT PRINT 


.... , E , 


243B PRINT fklNT 


'""'- *■• '"'"-M 
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COMPOSITION 
MUSICALE 



ORIC/ATMOS 



*&•%#* 






Si vous possedez un minimum d'oreille musicale, voici 
un bon moyen de vous regaler de votre zizique. 

Patrice CHARLANNES 



LISTING 1 : 

- Ligne 140, changez C8 par 2D 

- Ligne 160, changez 68, F2 par E5.F1 

- Ligne 180, changez FD par 64 
LISTING 2 ( remplacement de la touche FUNCT par SHIFT droite) : 

Mode d'emploi : 2015 CV= ABS(PEEK(# 209)= # A7) 

Tapez et sauvegardez a la suite ces deux programmes. Chargez et 2016 CP= ABS(PEEK(# 209)= # A4) 

lancez le premier pour I'implantationdes codes MACHINE. Proceder 5731 IFSH= # A4THENDU(N)= DU(N)+ (DU(N))/2 

de meme pour le programme principal, qui contient les indications 5732 CURSETH+ 5.VE+ V(N)+ 5,(ABS(SH= # A4)) 

necessaires. Les possesseurs d'ORIC 1 devront effectuer les modifi- 5733 CURSETH-1.VE+ V(N)-2,0 :DRAW5,0,ABS(SH= 4. 

cations suivantes : A7) :VO(N)= 10-ABS(SH= # A5)- 10 




18 FORH=*t4000TO«415r- 
20 REHDH* ■ H=VfiLt "#"+fl* , 
30 P0KEN.HNEX1 
180 DRTH A3, 5 ,85, 03, Eft.. 

119 PATH E2,02,8t>,E4,02, 

120 OATH 8L',E6,02,A5,00, 
130 DATA A3,0C,3P, El, 02, 
140 DflTfl E5,02,20,C8,F0, 
150 DfiTfi 1,80, £1,02, 3D, E3 
160 DATA 11,SD,ES.02,20,68 
170 DMTM 00, 3D, El, 02. 311. E5 
180 DflTfl 03,8D.E3,02,20.FD 
130 DflTfl 50, 41, Efl, EH, Efl, Efl 
200 DHTfl 40, A3, 43, Efl, EH, H0 
210 DflTfl 01,H0,01,B3,40,S1 
228 DflTfl 00.20, 40, 41, 60, Efl 
230 DflTfl Efl. A3, 40, 3D, 52, 40 
240 DflTfl 80, 50,40,20,51, 
258 DflTfl 3D, 52, 40, H5 , 50. 
260 DflTfl 20, 51, 40, H3. 41 
270 DflTfl B9, 50, 80,50,40 
280 DHTH B9, 41, 3D, 52, 40 
230 DHTfl 5C, 40, 20, 5 1,40 
300 DHTH 52, 40, A3, 50, 3D 
310 DflTfl 51, 40, A3, 40,80 
320 DHTH 70, 80, 5C, 40, 20 
330 DHTH 41, 80,52, 40, A3 
340 DHTH 40,20, 51, 40, A3 
350 DHTH 40. A3, 60, 80, 5C 
360 OATH 40, (19,44,80,52 
370 OHTA 80, 5C, 40, 20, 51. 
330 DHTH 30, 52, 40, B9, 64 
390 DATA 20, 5 1,40, A3, 44 
400 DATA H3,68,8D,5C,40 
410 DflTfl fl9, 43, 80,52,40 
420 OHTA 5C. 40, 20, 51, 48 
430 DATA 52, 40, A3, 60, 80 
440 OATH 51, 48, A3, 48, 80. 
458 DATA 68, 80, 5C, 48, 20 
460 DATA 40,SD,52,40,H3 
470 DHTfl 40, 20, 5 1,48, A3 
488 OHTA 40, A3, 40, 80, 5C 
430 DATA 48, 60, Efl, Eft, 60 
508 DHTH 13, A5, 01, 63, 28 
510 DATA 02,63,00,85,82 
V./V- DflTR 13,MG,03,i:H.L»J 
530 DATA 40, 86. 83.4C, 27, 40 



J. 00. 3D 
,., EM..02 
J,E3,02 
J,00,8D 
i,05,H3 
!,02,rt9 
S,F2,H3 
5,82. A3 
:.,F8,4i: 
i,4C,63 
J, 08, 31 

el, He 
Efl, EA 
H9,60 
),fl9,41 
> , 50 , 40 
',52,40 
1,51,40 
1,50,80 
i,41,8D 
;,40,20 
i,40,H3 
.,40, fly 
J..80.5C 
>., 80,52 
j,20,51 
j,fl3,78 
S,A3,45 
>,5C,48 
,.52,40 
i,51,40 
1,78,80 
i,40,3D 
:,40,20 
?,40,A3 
.,40, A3 
},8D,5U 
S.80,52 
j-20,51 
),EH,EA 
j,01,H5 
1,55,55 
,4C,4H 
55 . 0m 



5 TEXT 

10 PHPER4 i IHK1 ■■ P0KE#26fl, 1 1 ■ GOSUB1 

000 

20 REM 

30 REM 

48 REM COMPOSITION MUSICALE 

68 REM ecr It par 

70 REM CHHRLHNNES Patrice 
80 REM 

108 REMdef inition des caracteres 

110 F0RI = 1T06 

120 ■REHDH 

130 'FORJ=0TO?'REflDK 

140 POKEC fit- J >,K 

150 iNEXTJ 

163 .NEXTI 

180 ; DHTA46808,6,5,4,4,4,28,60.24 
, 46816,4,4,4,4,4,28,60, 
24 

181 ' DHTA46824, 4,4, 4, 4, 4, 28, 36,24 

182 DATfi-46832,0,0,0,0,0,24,36,24 

183 "DHTA46360, 0,0, 0.28,62, 20, 62, 
20 

184 :OHTA46368,8,0,0. 16, 16,26,28, 
28 

198 PHPER3 : INK1 

199 'HIRES:PRPER3INK0 

200 GOSUB1000>GOTO2000 
1000 REMess. des Portees 

1010 POKE0 , VE : DOKE 1 , < •H82B+4B*VE > 
1020 CRLL*4000 

1999 RETURN 

2000 PRINT"R roT>!B bUIN TloilC cr 
oi silence Fijinc+elu duree;note poin 
tee shif+."; 

2001 PRINT" :V«.l id i -*IN>1r«»etl"l+» 
PaceiOel 'del"; 

2010 GETDU* 



lit 

COBRA ?^ 7 
INVADER *l 



T Suite de la page 82 

2440 get R* 

2450 CLS 

3029 REM PRESENTATION 

3059 CLS 

3060 CRLL#32R6 

1100 PLHT 15,23. "PftfcShHIHliuN" 
3110 PLOT 15, 24. "PRESENTATION" 
3120 PLOT 3,23.4 
3130 PLOT 9,24-6 
3140 PLOT 8.23. 14 
3150 PLOT 3.24, 14 
3160 PLOT 27,23.2 
3170 PLOT 27,24.2 
3189 PLOT 23,23,8 

3199 PLOT 23,24,8 
3:-:w PLOT 3,19,32 
3210 FOP 1=48035 TO 48039 
3220 POKE I, 32 
3230 NEXT 
3240 P0KE#8278,23 
3250 A*="**LESTRRDE CHRISTOPHER* 
3260 CALLtt8271 
3270 FOR 1=1 TO 255 

3200 CflLL#826A 



2811 VO=10 

2812 IFPlSCf.[>U*>=127THEH2700 

2015 CV=RBSCPEEKC#209>=#A5) 

2016 CP=RBSC PEEKC #209 >=#A40RPEEKC 
#205>=#R7> 

2017 IFPEEKC#209>=#A2THEN4000 
2020 DU=ABSC7*<DU*="R" >+3*CDU*="6 

">+l*<DL»-' , N'')-l) 

2025 Cfl=C 91 +ABSC i DU=2 )+2*C DU=4 >+3 
*< DU=8 > > > 

2826 IFCP»1THEHC-U=DU+CDU^2> 

2027 IFCV=1THENVO=0 

2038 DUCNU>=DU 

2100 0C=3'N0=1 

2110 CURSETH , VE+V . i CHflRCR , , 1 ' DR 
flW-1 , -2, i 'DRAW5, 0, CV i CURSETH+5, VE 
+V+5,CP 

2115 MUSICl,QC,N0.CV0-3+RBSCvu-3> 
V2 

2120 GETK*' 

2125 PLflYl, 0,0,0 

2130 K=RSCCK*) 

2140 IFK=11THEHGOSUB22Q0 

£141 IFK=127THEH2890 

2145 IFK=9THEH2500 

2150 IFK=10THEHGOSUB230B 

2180 CHRRCfl,0>0 

2199 GOTQ2110 

2200 IFM0=5THEHN0=M0+lELSEN0=NU+2 
2210 IFH0=14THEN0C=0C+liHG=l 

2215 CURSETH+5, VE+V+5,0 

2216 CURSETH, VE+V-2, O i DRRW5, 0, i C 
URSETH,VE+V,0 

2220 V=V-2 

2290 RETURN 

2309 IFN0e6THEMH0=H0~lELSEN0=H0-2 

23101 FH0=- 1 THEH0C=0C- 1 > NO" 1 2 

2315 CURSETH+5, VE+V+5,0 

23 1 6 CURSETH , VE+V-2 , ' DRRW5 ,0,0:0 
URSETH,VE+V,0 

2320 V=V+2 
2390 RETURN 

2500 OCC HU >=OC : NCK NU :>=N0 = V0( NU >=V 
: V< NU ?=V s NU=NU+ 1 ' 1 FNU i= 1 99THENNU= 

200 

2510 H=H+8:V=14A'G=10 

2560 IFH>=224THENVE=VE+40:H=40: IF 
VE>145THENHIRES ■ VE=25 ■ GOSUB10O0ELS 
EGO3UB1000 

25S5 MUSIC1, 1,1,0 

2570 GOTO2010 

2700 MUSIC1, 1,1,0 

2705 NU=NU-1 • IFH*40THENVE=VE-40 ■ H 
=224 

2706 H=H-8'N=NU 

2707 Cfl=91 +RBSC < DlK N >=*20RDU< M >=3 > 
+2*< DUt N >=40RL>U< h) >=£ >+3S:' DUf N :-=80R 
DU<N>=12)> 

2710 CURSETH.VE+VCNU^.a^CHHRCR^, 
0-DRRU-l,-2,0 : DRRW5,0,0 

271 1 CURSETH+5, VE+VCNU )+5, ■ G0T02 
010 

2800 CURSETH, VE+V,0:CHRRCR, 0,0: DR 
RW-l,-2,0:DRflW5,0,0 

2805 MUSIC1, 1,1,0 

2810 CURSETH+5, VE+V+5,0 <V= 14 ^ GOTO 
2010 

3000 IFNU=0THENGOTO2000 i ' ECOUTE 

3001 PRINT'PRINTCHR*C27);"Rdesire 
z vous I 'execution avec la" 

3002 PRINTCHRS(27>;"R Partition"; 
■ IMPUTRE* 

3003 IFRES="0 , '0RRE*="0UI "THEN30O4 
ELSE3B00 

3004 PRINT^PRINT:PRINTCHR*<27)i"R 
donnez le temPo < l-50)"i ' INPUTTEMP 


3005 MUSIC1, 1,1,0 

3010 VF=VE:VE=25:H1=H<H=40 

3020 HIRES ^PRFER3 - INK0 = GOSUB100e 

3100 FORN=0TONU-1 

3101 MUSIC1,0CCN>,N0<N>,V0CN> 

3 1 05 Cfl=9 1 +RBSC < [)U< N >*2GRDU< N >=3 > 
+2*C 0U( N )=40RDU<: N >=6 >+3*( DUC N >=80R 
DUCN>»12>) 



3116 CURSETH, VE+VC N >, 9 ^ CHRRCR, 0, 1 
= ORRW-1 , -2,0 : C>RRW5, 0, < RBSC V0< H >=0 > 
) 

311 1 CURSETH+5, VE+VC N J+5, ( RBSt DU< 
N >= 1 . 50RDU( N >=30RDU'.: N >=60RDU'; N )= 1 2 

'3112 IFH>=224THENVE=VE+40:H=40: IF 
VE>145THENHIRES : VE=25 : GOTO3700ELSE 
3700 

3120 WRITTEMP0*<DUCNn.5? 

3150 MUSIC1, 1,1,0 

3200 NEXT 

3210 PRPER3:INK0 

3300 GOTO200O 

3828 GOSUB 1 000 1 NR I TTEHPO*' DUC N >" 1 
.3V3>nUSICl,l,l,0'NEKT 

3800 MUSIC1 , 1 , 1 , > PRINT > PRINT 1 PPI 
NTCHRS<27>.:"Rdonr.ez le tewPoCl-SS) 
"i <INPUTTEMPO 

3819 FORN=0TONU-1 :P1USIC1,0C<N>,N0 
( N >, V0< N •) 1 uottph K \\ :i*TFMPn 

3820 riUSICl,l,l,0 = NEXT 
3330 GOTO200O 

4090 MUSIC1,1,1,0:REM MENU 

4O01 PRINT : PRINT: PRINT 'PRINTCHR*< 
27); "V";zIHPUT"vou.lez vous £ai.'.ve9a 
rder";RE* 

4010 IFRE*= ,, 0"0RRE*="0UI"THENGOSU 
E20060 

4015 PRINT ■ PRINT 'PRIHTCHR*< 27 >; "V 

4020 INPUT"voulez vous charter utl 

MOrceau".:RE* 

4030 I FRE*= " " ORRE S~ " OU I M THEN3800 


4050 PRINT ■ PRINT ' PRINTCHRt< 27 )j "V 
"i ■■ IHPUT"voulez vous ecouter";RE* 

4069 I FRE$= ■ "0RRE*= " OU I " THEN36O0 

4078 PRINT: PRINT :PRIHTCHR*( 27 >i"V 
".; : INPUT"voulez vous modifier"; RE* 

4080 I FRE*= " 0"ORRE*=" OU I " THEN5000 

4090 PRINT: PRINT :PRINTCHR*C 27 >i"V 
" ; ■ INPUT"voulez vous arreter";RES 

4180 IFRE*-"0 B ORRE»- ,, OUi"THENCflLL 
#F88F 

4500 PRINT:PRINT'PRINT:GOTO2000 

5000 REM modification 

5010 VE-25H=40.HIRES:PRPER3' INK0 
'GOSUB1900 N=0 

5020 PR I NT : PR I NT ' PR I HTCHR*( 27 > ; " D 
utilisez les curseurs et les touc 

hes " i 

5021 PRINTCHR*<27>;"D3 Pour diese 
4 Pour ber..ol.B,N,R,C", 

5940 CR*9 1 +RBSC C DU< N >=2QRDU«: N )«3 > 
+2*C OU( N >=40RDU< M >«6 )+3*< E>UC N >»80R 
DUCN>=12>) 

5045 CURSETH , VE+VC N > , < CHflRCR ,0,1 
: DRRH- 1,-2,0: DRAWS , , < HBS< VOC N )=0 J 

5046 CURSETH+5 , VE+VC N )+5 , C flBSC DUC 
N >■ 1 . 50RDUC N )=30RDU< N >-60RDUC N >= 1 2 
>■> 

5047 CURSETH, VE+VCN>,0 
5330 GETG* 

5051 SH-PEEK<#209> 

5060 I FG*»" 3 " ORG*"" 4 " THEN5300 

5070 G-flSCCG*>= IFG-8ORG-9ORG-10OR 
G=11THEN5500 

5030 IFG*="B"ORG»="N"ORG»="C"ORGt 
="R"THEN5700 

5100 GOTO5050 

5200 H=H+8 

5210 IFH>=224THENVE=VE+40 ' H=40 > IF 
VEM45THENHIRES ■ VE=25 ■ GOTO5290ELSE 
5290 

5220 N=N+1 1 IFN<NUTHEN5040ELSEPING 
- GOTO2000 

5290 GOSUB 1 800 1 N=N+ 1 ^1 FN< NUTHEN59 
40ELSEPINGGOTO2000 

5300 I FHOC N >=20RN0< N J«40RN0C N >=70 
RNOC N >=90PN0C N >=\ 1THEN5450 

5304 IFG*="3"THEN5340 

5305 IFG*="4"THEN5390 
5320 GOTO5059 



5340 ifhoc h >=50ph0<:: n ?=■ 1 2thens 20 

5350 curseth-2 ,. ve+vc n )-5 , ' chhr35 
,0,i:Nocn:.'=nocn>+i 
5360 curseth, ve+vc n>,0 

5370 GOTO520O 

5330 JFNOC N ?=10RN0< H >«6THEN5320 
5400 CURSETH-2 , VE+VC H )-5 , = CHRR36 
,0,1 :N0CH)=N0CN>-1 
5410 CURSETH, VE+VC H>,1 
5420 GOTO5290 

5450 PR I NT : PR I NT 1 PR I HTCHRSC 27 > j "U 
note deJa # ou *" 

5451 CURSETH+2,VE+VCN>-10,0:CHRR3 
6,0,1: CURSETH-2 , VE+VC N >-5 , = CHHR35 
,0,1 

5452 CURSETH, VE+VC N>, 3 
5460 GOTO5200 

5500 IFG=9THEH5200 

5510 IFGOSTHEN5515 

551 1 CHflRCfl, 8, : CURSETH+5, VE+VC N ) 
+5,0: CURSETH- 1 , VE+VC N )-2 , 

5512 DRRH5,0.0:H=M-1:H=H-S 

5513 IFH<=32THENVE=VE-40:H=<216 

5514 GOTO5040 

5515 IFNOf N >=20RN0< H >=40RN0C N >=70 
RNOC N ?=90RN0C N >= 1 1 THEN5900 > 

5520 N0*NQ< N ) : V0»V0": N > ' V=VC N J > 0C= 
OCC N >■ DU=DUC N > 1 IFG=t0THENGOSUB;2390 

5530 IFG=11THENGOSUB2200 

5335 CHflRCR, 0, = CURSETH+5, VE+VC N > 
+5,0 

5540 NOC N >N0 ' VC N >=V = OCC N >=OC > GOT 
05040 

5708 REM 

5720 DUCN>=RBSC7#CGS="R" )+3*CG*=" 
B")+l*CGS="N">-n 

5725 CHRRCfl,0,0 

5730 Cfl=< 9 1 +RBSC C DUC N >=2 >+2*C 1>UC N 
>=4>+3*CDUCN>=8>?> 

573 1 I FSH-#H40RSH-#fl7THENDU<: N >=DU 
C N >+C DUC N ) V2 

5732 CURSETH+5 , VE+VC N >+5 , < RBSC C SH 
=ttft4)0RCSH=#fl?):O 

5733 CURSETH- 1 , VE+VC N >-2 . ■ DRAW5 , 
, flBSC SH=#R5 > 1 VOC N )= 1 0-RBSC SH=#R5 ) 

*ia 

5734 CURSETH, VE+V<N>,0 

5735 CHflRCfl, 0,1 
5740 GOTO5050 

5900 CHflRCfl ,0,0: DRAW- 1 , -2 , ■ DRRW5 
,0,0' CURSETH+3 , VE+VC N >+5 , : 
5910 VCN>=14'N0CN)-l:OCCN)-3 
5920 GOTO5045 

10000 REM initialisation 

10001 ;VE=25'H=40^V=14 

10002 DIMNOC 200 > 1 DIMDUC 2O0 > 1 DIMOC 
C 200 > ' DIMVOC 280 > 1 DIMVC 200 ) 

10003 NU=0 

18009 CLS ' PRINT 'PRINTCHRtC 27); "F* 
********************************** 

10010 PRINT: PRINT: PRINT :PPINTCHR* 
C 4 ); CHR*C 27 >; "J"; CHR*C27 ); "4 C 

OMPOSITEUR" 

10015 PRINT:PRINT:PRINTPRINT 

10020 PRINTCHR»C4:>;CHR*C27>;"C Pr 
oSrarnme ecrit Par 1 " 'PRINT 'PRINT 

10023 PRINTCHR*C27>;"B"jCHR*C27>; 
"L CHARLANNES Patri 

ce" 

10030 PRINT 'PRINT: PRINT PRINTCHR* 
C27);"IS ";CHR»C96J;• , 1983" 

10040 PRINT 'PRINTCHRSC 27 >;"F***** 
********************#*********" 

10050 PRINT'PRINTCHR*C27>;"G desi 
rez-vous les instructiofis"; [ INPUTR 
E* 

10860 IFRE*="O"ORRE*="OUr'THEN101 
00ELSERETURH 

10100 REM instructions 

10105 INK7 

10107 CLS PRINT 'PRINT 

10110 PRINTCHR*C2?);"ECe ProSramw 
e est un utilitaire vou.s " 

10111 PR I NTCHR*< 27 > t " EP ermettant 
d'ecrir«r"; 



10120 PRINT" vous meme vos" 

10121 PRINTCHR«C27);"EP7.rtitions. 

10230 PRINT'PRINT"Pour ceci vous 
devez Procedez comme suit 1 " 
1024O PRINTCHR*C27>;"R- Entrer le 
type de note Cblanche)," 

10250 PRINTCHR*(27>;"B- DePlacer 
la note sur la Partition" 

10251 PRINTCHR*C27);"B a Taide 
des curseurs" 

10260 PRIHTCHR*C27:.';"C- Valider I 
3 note C -> >" 

10270 PRINT 'PRIHTCHR4C 27 >; "L";CHR 
tC 27 > .; " 13 " ; "remarq ue = " ; CHR*C 27 > ; " H " 
;CHP*C27>;"G"; 

10271 PRINT" Pour les notes Point 
ees utilisez "; 

10280 PRINT"Cshift>+tyPe de noteC 
Blan. . )" 

10290 PRINT". .Pour les silences U 
tilisez Cfunct>+ taPe de note ayan 

t la meme do.ree" 
10295 PRIHT:PRINTCHR$C2?>;"F"; 

10300 PRINT" Pour ecouter,2.-i,uve9 
arder,char9er un" 

10301 PRINTCHRtC27>;"F"^ 

10302 PRINT"nfiorcea-J, Passez par le 
menu " 

10305 PRINT:pRINTCHR*C27Xi"B CONS 
EILS 'ecrivez votre Partition et" 

10310 PRINTCHR$C27>;"6Placez les 
dies-es et bemols tout a la" 

10320 PRINTCHR*C27>;"Bfin." 

1 0900 PR I NT ' PR I NTCHRSC 27 ) i " U 
aPPuyez sur une touche SVP"=GETR* 

11000 : RETURN 

20000 F0RI=NUT0NU+3:N0C I>=0'OCCI> 
=0 ' VOC I ■>*><* > DUC I >=0 : 

20005 NEXT 

20006 PRINT : PRINTCHP$C 27 ); "Tete*. 
vous sur ?"; 

20007 INPUTRE*' IFRE*="0"0RRE*="0U 
I " THEN200 1 0ELSERETURN 

20010 PRINT :PRINTCHR*C 27 )j"T donn 
ez le now du morceau"; ' INPUTN* 

20020 PRINT. PRINTCHR*C27>;"R PH 
TIENTEZ.." 

20023 N-0 

20030 FORI=*3000TO#53EBSTEP5 

20032 POKEC I > , NOC N ) ■ POKEC I + 1 ) , OCC 
N>'P0KECI+2>,V0<N> 

20040 POKEC 1+3), DUCNJ'POKEC 1+4 >,V 
CN)+128 

20045 N»N+1 

20050 NEXT 

28053 PRINT'PRINTPRINT" mettez 
le ma9neto en marche et aPPuyez su 
r une touche SVP^'i 'GETR* 

20060 CSRVEN* , A#5000 , E#53F0 

21080 GOTO4050 

30000 REM 

30084 PR I NT ' PR I NTCHRX 27 > ; " Tetes 
vous sur ?".; 

30006 INPUTRE*' IFRE*="0 , '0PPE*="0U 
I" THEN300 1 0ELSE4030 

30010 PRINT'PRINTCHR*C27);"T donn 
ez le nom du morceau"; : INPUTN* 

30015 PRINT:PRINTCHR*C27);"R Pfl 
TIENTEZ.." 

30920 CLORDH* 

30025 PRINT'PRINT" arretez le ma 
9neto"; ! 

30030 1=0 

30035 FORN=#5000TOK53EBSTEP5 

30040 NOC I )=PEEK< N ) 

30045 OC<I>=PEEKCN+l) 

30050 VOC I )=PEEKC N+2 ) 

30055 DUC I >«PEEKC N+3 ) 

30060 V(I)=PEEKCN+4)-128 

30062 1=1+1 

30065 NEXT 

30070 FORI=0TO200' 

30080 IFNOC I )=0THENNU=I 'GOTO4050 

30090 NEXT 





NEXT I 

FOR 1=1 TO 23 

B*=LEFT»CR*,I > 

WRIT 10 

PLOT 10, 7, B* 

PLAY 1,2,5,33454 

NEXT 

PING 

P0KEttS276,8 

A*="PRESENTE" 

POKE#408, 1 : CRLL*8271 

FOR 1=1 TO 295 

CALL#826R 

NEXT I 

FOR 1=1 TO 8 

B*=LEFT$CR*. I > 

WRIT 10 

PLOT 18, 19, 6* 

PLRY 1,2,5,33454 

NEXT I 

PING 

P0KE«82?a,13 

fl*="C0BRR INVADER" 

POKE#408,l:CflLL#3271 

FOR 1=1 TO 360 

CflLL#826ft 

NEXT I 

FOR 1=1 TO 13 

B*=LEFT*CA*,I> 

WRIT 10 

PLOT 16, 13, B* 

PLRY 1,2.5.33454 

NEXT I 



3630 PING 

3640 PLOT 9,7, I PLOT 32,7,2 

3650 PLOT 17,10.4'PLOT 27,10,2 

3660 PLOT 15,13,3'PLOT 30,13,2 

3670 PLOT 5,1.96 

3680 PLOT 4,1,5'PLOT 6,1,6 

3690 PLOT 7,1, "7 MRRS 1985" 

3?m PLOT 20,1,2 

3710 PLOT 5,17,"TRPEZ CJ3 POUR JO 
UER" 

3720 PLOT 5,19,"TflPEZ CI J POUR LE 
S INSTRUCTIONS" 

3730 PLOT 4,17,5PLOT 28,17.2 

3740 PLOT 4,19,7PL0T 37,1^,2 

3758 GET A* 

3760 IF fl*="J" THEN GOTO 4030 

3770' IF AS="I" THEN GOTO 2020 

3788 GOTO 3750 

403O REM JEU 

4040 CLS 

405O PR I NT: PR I NT 'PR I NT 

4069 1MPUT" VOTRE VITESSEC 1-255 > " 
iV 

4070 IF V>255 THEN GOTO 4060 
4080 IF V<1 THEN GOTO 4060 
4096 POKE«409,V 

4110 PRINT'PRIHT'PRINT 

4129 INPUT "LONGUEUR DU COBRA';; 1 -23 
> ";V 

4130 IF V>23 THEN GOTO 4120 
4140 IF V<1 THEN GOTO 4120 
4150 P0KE#8278,V 

4139 PRIHT=PRIHT:PRIHT 



4190 INPUT-CHOIX DU PRPIEP-0-7) " 
;V 

4200 IF V<0 THEN GOTO 4190 

4210 IF V>8 THEN GOTO 4190 

4220 PAPER V 

4230 PRINT. PRINT PRINT 

4260 INPUT"CHOIX DE L'ENCRE *)¥ 

4270 IF V<0 THEN GOTO 4260 ' 

4280 IF V>7 THEN GOTO 4269 

4290 INK V 

4300 PRINT'PRINT 

4310 PRINT"CELA VOUS CONVIENT-IL 

4320 GET R* 

4339 IF fl*="N" THEN GOTO 4030 

4340 IF A4O"0" THEM GOTO 4329 
4350 CLS 

4360 PLOT 13,3, "TAPEZ LINE TOUCHE." 

4370 PLOT 19,5. "POUR" 

4389 PLOT 17,7. "AFFRONTER" 

4390 PRINT : PRINT: PRINT 'PRINI'PRIN 
T 

4409 PRINT: PRINT 'PRINT PRINT: PRIM 



ii 



4410 PRINTSPCC8)" iiii 

i i i i " 
4420 PRINTSPCC8)" i 

i i i" 
4430 PRINTSPCC8)" 1 



4440 PRINTSPC8.' 
i i i i " 
4450 PRINTSPCC3) 



1 



4460 PRINTSPCO)" iiii iiii iiii 
iiii" 

4470 R=l 

4490 FOR 1=10 TO 15 

4490 PLOT 3,I,A'A=A+1:IF R=>8 THEN 

A-l 

4508 PLOT 35,1,2 

4510 NEXT I 

4520 A*=KEY*'IF A*="" THEN GOTO 4 
480 

4530 CLS 

4540 POKE#406,9 

4550 CRLL#B2fl6 

4568 CflLL#8282 

4570 CLS: PING 

4580 PRINT'PRINT"COBRA A ETE FIER 

DE VOUS COMBATTRE" 

4590 WAIT 100 

4600 PRINT :PRINT"0SERE2 VOUS ENCO 
RE LE DEFIER ?" 

4605 WAIT 100 

4610 PRINT 'PRINT PRINT"TAPEZ CXI 
POUR REJOUER" 

4620 PRINT 'PRINT"TRPER EI] POUR R 
EVOIR LES INSTRUCTIONS" 

4630 PRINT:PRINT"TRPEZ CC3 POUR L 
HRNGER LR SELECTION" 

4640 GET A* 

4650 IF A*="I" THEN GOTO 2020 

4S60 IF A*="J" THEN GOTO 4350 

4679 IF A*="C" THEN GOTO 4039 

4689 GOTO 4640 • 



i3 



ICE BERT' 

Jeu rafraichissant, ou ZOZO le glagon tente de glacifier 
une pyramide, malgre un ZOE gacheur et un CREAZY 
liquefieur. 



ORIC/ATMOS 



tfEP05. f €Mc<?P£ poNOu! 






Richard JUHEL 



Mode d'emploi : 

Tapez RUN de vos doigts agiles. 

3 REM ICESEERT 

1 REMR. JUHEL 

S CLS:R0KE618, 10: VI=3 PAPERS' INK6 

TI^lOSti-GOSUB 5880 

9 REMCARACTERES 

IB FOP I =010175 

20 READ A 

38 F0K£46*Z-6+ 1 ! : i 

40 NEXT 

50 DATA8. 0,0, 1,2,4,15.8 

60 DATA0, 0,0,63, 3,5.57.9 

70 DRTA3, 10,3,8, 15,4,4,29 

69 DATA9. 41,10, 12- 56, 16, 16,43 

50 DATA63,63.63.0.0.0,0,0 

91 DRTR0, 0,0, 63, 43, 49,39/36 

92 DATR0.0,0,48.8.4.60.4 

93 DRTR36, 37, 20, 12,7.2.2,3 

94 DRTR4,29,4,4,60,8,8,46 

95 DATA2,29,36, 18, 10. 10,9,39 

96 DATA2G,34,36,21,37,42.52.49 

97 DRTR48, 19, 18,49,36. 19,8.7 
93 DRTR4, 20, 16,5,9,50-4,56 

99 DRTR14, 10. 10. 15.6,0.0. 15 

100 DflTR23,20.28.68,0,0.0.60 

101 DATA9.0. 15.0.8. 15.9. 15 

102 DRTR0, 9,60, 0,0, 60, 9,60 

103 DATA14, 19, 10, 15,0,15,0,0 

104 DATA2S, 29. 29,60. 8,68. 0.9 

105 DRTR15, 0,0, 15.0,0,0-15 

106 DRTR60, 0,0.60,0, 0,0, 60 

107 DRTR63, 63, 63, 30, 12,4,6,0 

103 DOKE IB, 48009 'PRINT' 1 HEBDOGIC 

IEL - ICE*BERT - R. JUHEL "'CLS 

110 GOTO 3000 

190 IFTIM00 THEM TI=TI-HW 

191 DOKE IS, 48000: PRINT" HEBDOGIC 
IEL - ICE*BEPT - R. JUHEL ":CLS 

195 P=0 

200 BO=TI 

205 FOR 1=3 T033STEP 6 

210 PLOT 1, 24.. "eeee" 

220 NEST I 

230 FOR I=6TO30STEP6 

24a PL0TI,22, "eeee" 

250 NEXT I 

260 FOR I=9T0283TEP6 

270 PL0TI.28. "eeee" 

280 NEXT 

290 FOR 1=12 T024 STEP 6 

300 PLOT I, 18, "eeee" 

310 NEXT I 

320 FOR 1=15 T021STEP6 

330 PLOTI, 16, "eeee" 

331 PL0T2, 13, "BONUS' " =PL0T2, 14, " V 
vw WV w " 

332 PL0T23,13,"SC0RE:":PL0T28,14, 
"wwvwvwv" 

333 PL0T2.2, "VIE: " ■ PLOT2, 3, "vvvvv 

340 NEXT I 

341 FOR I=15T021STEP6PL0TI.12,"e 
»*•"■* N6KTI 

342 FOR I = 1 2T024STEP6 1 PLOT 1 , 10> "e» 
ee"'NEXTI 

343 FnRl=9TfX>SSTEP6:PL0TI,8,"e«-ee 
" : NEXT I 

344 FORI = 12T024STEP6: PLOTI, 6, "eee 
e"»N£XT I 



^2P 



«> 



<2D 



^X> 



^B 










345 FOR I=lSTOaiSTEP6:pL0Tl,4,"ee 
ee" 'NEXT I 

346 PL0TI8.2."eeee" 
350 PL0T18, 14, "eeee"- 

400 P0=1:X=4:Y=22:PE=1 :V=19. ; W=12: 
CVM=R"22'S-2 

410 PLOTV.ld.Vs" ' PLOTV, U+1, "tu." 
420 PLOTR, S,".jk" 1 PLOTP-S+1 , "In" 

500 REPEAT 

501 B0=B0-1 

502 IF B0=8 THEN GOSUB 2008 

504 TI-TI-1 

505 PLOT? ,13, STRtC TI ) « PLGT33 , 1 3 , S 
TR*C 8C > 

506 PLOT 5,2,STPSCVI> 
510 X*=KEY* 

600 IF PEEKC#208>=18?THEN GO3UB90 

■ X=X+3 : Y=Y-2 •■ P0=2 

6 1 IFPEEKX #208 )=1 59THEHGOSUB900 1 
X=X+3'Y=Y+2'P0=2 

620 IFPEEKC#208>=174THEH GOSUB 90 
0:X=X-3>Y=Y-2:PO=1 

630 IFPEEKC#288>=170THEN GOSUB900 
'X=X-3'Y=Y+2 'PO=l 

640 IF X=R AND Y=S THEN SC=SC+15 

650 IF SCRNCX,Y+2)=32 THEN GOSUB 
2000 

651 IFX=I THEM GOSUB 2000 

660 IF SCRNCX,Y+3>=32 THEM PLOTX- 

1 - Y+3 , "vvw "'PING' P=P+ 1 ■■ SC=SC+ 1 

661 IF P=36 THEN ZAP ' CLS ; SC=SC+B0 
:GOTO 190 

670 IF P0=1THEH PLOTX. Y. "ab" 'PLOT 
■<,Y+l,"cd" 

680 IF P0=2 THEN PLOTX, Y, "t 9" ■ PLO 
TX.Y+l."hi" 

689 IF CV=NDTHEN 690 ELSE 750 

S9Q IFX<V RND W>YANDSCRNC V-3. W><> 
32THEN GOSUB 910' V=V-3'W=W-2 

700 IF X>V AND U>YANDSCRN< V+3-UX 
>32 THEN GOSUB 910' V=V+3' W=W-2 

765 IF W=21 THEM 730 

710 IF X>V RND Y>UANDSCRNCV+3,W+4 
X>32 THEN GOSUB 910 > V=V+3 ' W=W+2 

720 IF X<V RM0Y>WRN0SCRN<V-3,U+4> 
<>32 THEN GOSUB 910 ■ V=V-3 > W=W+2 

730 IF PE=1 THEM PLOTV, W, "y>o" i PLO 
TV.W+l,"pq"ELSEPLOTV,W,"rs" 'PLOTV, 
N+l,"tu." 

732 CV=9 

748 PE=-PE 

750 CV=€V+1 

751 IF X=V AND UI=Y THEN GOSUB 200 
3 ' 

759 IF S*2 RND Y=0 THEN 780 

760 IF CH=7 THENPLOTR.S," ":PLO 
TR,S+1," "'G0T0761ELSE 780 

761 IF X>RHNDY>S AND9CRMtR+3jS+43 
032 THENR=R+3 ' S=S+2 

762 IF X<R AMD Y<S AMD SCRNCR-3,S 
>< >32THENR=R-3 > S=S-2 

763 IF X< RANDY >SflND SCRNC R-3,S+4 ? 
< >32THENR=R-3 = S=S+2 

764 IF X>R- RHDY<SRNDSCRNtR+3,SX> 
32THEN R=R+3'S=S-2 

765 IF SCRN<P,S+3)=86THEN P=P-l=p 
L0TR-l,S+3," 

766 PLOT R,S,"Jk"PLOTR,S+l,"lw" 

767 IF SCRN<R,S+3X>32 THEN P=P-1 



^PL0TR-l,S+3," 

770 CH=0 

7S0 CH=CH+1 

800 UMTILX*="3" 

900 PLOTX, Y," ": PLOTX, Y+l," ":R 
ETURN 

910 PLOTV..U," ":PL0TV.W+1," n .R 
ETURN 

999 END 

1000 CRLLDEEK'::#FFFRi 

2000 X=4:Y=22:VI=VI-1:F0R 1=0 TO 
7WRIT1'MUSIC1, 1,4, 15: NEXT: PING 

2010 POKE<#208>,0 

2015 WRIT1O0 

2020 IFVI=0 THEHGOSUB600W : GOTO 39 
21 

2023 PLOTV, U- " " = PLOTV, W+l , " " 

2024 PLOTR.S, " " = PLOTR, S+l , " " 

2025 PLOT X,Y," ":PLQT X.Y+1," 

2026 V=19'.N=12:R=22:S=2 

2027 PLOTV, W.. H rs" = PLOTV, W+l, "tu." 

2028 PLOTR, S, " Jk " 'PLOTR, S+l , " Im" 

2030 RETURN 

3000 CLS 

3910 PRINT :PRINTCHR*': 27 );"N";" 
ICE*BERT " 

3020 PRINTCHR*<27)j"N"j" 

ICE*BERT" 

3039 PPINT'PRIHT" OU LES TRIBU 
LRTIONS D'UH GLRCON" 

3035 PRINT 'PRINT: PR I NT 

3940 PRINT :PRINT"3.b VOICI ZDZO QU 
I DOIT GLRCIFIE TOUTE cd LR PYRRMI 
DE. " 

3045 PRINT 

3050 PRINT" Jk ZOE-FAIT FOMDRE LH 
PYRAMIDE A 1m MESURE QUE ZOZO 

RVRHCE."J 

3055 PRINT"'; 15PTS)." 

3060 PRINT 

3070 PRIHT'VsCRERZY-IL VEUT PEDUI 
RE ZOZO fl L'ETRTtuLIQUlDE." 

3075 GET At 

3080 PR I NT 'PR I NT -PR I NT 

3S90 PRINT" 



31?n 
3200 
3210 
3228 
3230 
RES" 
3240 

3260 



CLS 'PRINT 
PRINTCHRt<12> 
PRINTCHR«< 4>; 
PRINT CHR*(27> 



PRINT" 

PRINT CHR»(4Jj 

PRINT: PRINT 'PRINT: ppi H T 

PRINT" 



3270 PRINT" 
3280 PRINT"- 



3290 FOR 1=1 TO 9 
3360 PRINT"! ";SC*<I) 



" -, set 1 > 



3100 PRINT" DEPLACEMENT3" 
3110 PRINT-PRINT 
3120 PRINT" <'> HHLnvDROITE" 
3130 PRINT" <A> HAUT^GAUCHE" 
3140 PRINT" </> BAS/DROITE" 
3150 PRINT" <Z> BRS^GAUCHE" 
3160 PRINT: PRINT: PRINT" 




V A Bott" 



tmtibtt 




3165 PR I NT 'PR I NT "'J' POUR JOUER / 
'J' POUR LES SCORES" 

3166 GET B* 

3167 IFB*<>"T"ANDB*<>"J"THEN3166 

3170 GET B* 

3171 IF BS="T"THEN 3190 

3175 INPUT-NIVERU DE DIFFICULTE . 
DE 1CDUR> R 15C FACILE >" J ND 

3176 IFND<1 THEN PRIMT"VOUS SRVEZ 
PRS LIRE."'G0T03I75 

3177 IFND>15THEN PRINT"VOUS FAITE 
S EXPRES'"'GOT031?5 

3139 TI=1000-VI=3'CLSGOTO190 

Si & M0v$ fife 
vo<* (ta'potioezl 



3305 PL0T28,8+I,"!" 

3310 NEXT 

3315 PRINT" 

"'PRINT 'PRINT 

3320 PRINT 1 " J' POUR JOUER • ' I ' P 
OUR INSTRUCTIONS" 

3330 GETAt'IF fl*="I" THEN 3000 

3335 IF R$<>"J"THEN 3339 

3370 INPUT-HI VEflU DE DIFFICULTE , 
DE KDUR? fl 13(FACrLE>"iHD 

333S IF ND<1 THEN PRINT"VOUS EXRG 
EREZ."'GOTO3370 

3390 IF NDM5THEN PRINT "RH,C'EST 

MRLIN."'GOTO3370 

3400 T I = 1 000 : V I =3 : CLS : GOTO 1 90 

3921 CLS 

3930 PRINT" VOUS VOUS DEPLACEZ AV 
EC LES FLECHES.VOUS ECRIVEZ AVEC < 
SPACE >, VOUS"; 

3940 PRINT" EFFACEZ AVEC <DEL>,VO 
US CONCLUEZ RVEC<RETURN>" 

3945 URIT409 

3958 GETXS'CLS 

4000 PRINT: PRINT 'PRINT 'PRINT" 
C'EST QUO I TON PETIT NOM ?" 

4010 PRINT =PRINT= PRINT < PRINT 'PRI 
NT" "> 

4015 N=0'N*="" 

4020 FOR I=65TO90'PRINTCHR*(I)j 'N 
EXT 

4030 X=5'N<9>=32 N=0 

4040 REPEAT 

4045 WRIT5 

4050 IF PEEK<tt208>=172 AND X>5 TH 
EN X=X-1 

4060 IF PEEK<#288)=I88 AND X<31 T 
HEN X=X+1 

4070 PLOTX- 1,9." -' " 

4080 IF PEEK(#20S?=132 THEN N=H+1 
' N< N >=SCRNC X , 8 > ' WRI T 2S = POKE< #288 ? 
, 189 

4098 PLOT 6+N, 1 1 , CHRSt N< N » 

4095 IFPEEKC #208 >= 1 75THENF0R2=< N+ 
1 >T09 : N< Z >=32 = N=N+ 1 = NEXTZ 

4896 IFPEEK< #288 >=173RNDH>0THENPL 
0T6+H,11," ":N=N-1'WRIT 20=POKE(#2 
08>-189 

4100 UNTIL N=9 

4101 FOR I = 1T0 9 ■ NS=N*+CHR*( W I ) 
> : NEXT 

4120 FOR 1=1 TO 9 

4130 IF SOSCU) THEN 4500 



4135 IFSOSCO^ND SC<SC< 8 JTHENSC 

9 >=SC : SC*C 9 >=N* ■• GOTO3190 

4140 NEXT 

4288 GOTO3190 
TABLEAU DES SCO 4500 FOR B=9T0<: 1 + 1 > STEP-1 =SC<B>= 
SC( B~ 1 > : SC»'. B >=SC*c: B- 1 > ' NEXT 

4550 IFSOSCCI) THEN SC< I >=SC 1 SC* 
( I )=N* 

4600 GOTO3190 

5800 REM 

5010 SCC 1 >=10000 :SC*<: 1 >="DRRCULA 

5028 SCC2>=5000:SCt<2>="MICKEY 

5030 SCC 3>=2589 : SC*< 3 >= "STEPHANIE 

5840 SCC 4 >=2009 ' SC*C 4 >= " SRNDRR 

5050 SCt:5>=1000:SC*C5>="Q*BERT 

5860 SCC6>=800'SC*<6>="PAC-MAN " 
5870 SCC 7 >=700 ' SC*'.' 7 >= " YOYO 
5080 SCC 8 )=508 : SC*C 8 ?= " BRUNO 
5090 SCC 9 >=1 ' SC»C 9 >=" JEREMY 
5100 RETURN 
6080 HIRES 
6001 'POKE618,10 
6085 CURSET74, 106,1 

6006 DRAW23,-34,1 

6007 DRRW52.5.1 
6010 DRRU-37,33,1 
6029 DRRU-39,-3,1 
6038 DRAU-2;34,1 
6040 DRAW36,5,1 
6050 DRAH37,-15,1 
6060 DRAU6.-53, 1 
6070 CURSET112, 109,1 
6871 DRRU-4,36, 1 

6075 CURSET82, 117,1 

6076 CIRCLES, 1 

6080 CURSET97, 121,1 

6081 CIRCLE5.1 

6085 CURSET83, 133, 1 

6086 DRRW4,-4,1 
6887 DRAW9, 10, 1 
6090 CURSET77, 143,1 
6891 DRAW-11,15, 1 

6092 DRAW-9,-8,1 

6093 DRAW-3,5,1 

6094 DRAW16,6,1 

6095 DRA1J10,-19,1 
6180 CURSET124, 139, 1 
6105 DRAW19,14,1 
6110 DRAW-13,10, 1 
6115 DRRU6,5, 1 
6120 DRRM1 1,-18*1 
6125 DRAU-16,-13,1 

6588 PRINT" C'EST DUR D'ETRE UN 
GLRCON"; 
6600 WAIT300 
6618 TEXT 
6620 P0KE618, 19 
6630 F0RI=lT04'MUSICl,I,3,i2'WflIT 

20 'NEXT 'PING 
6648 RETURN 
6999 END 
8810 REM ICE*BERT PAR R. JUHEL • 



LA BOULE 
INFERNALE 



Une boule en folie doit detruire un tas de bidules, mal- 
gre les murets pas sympas qui lui font obstacle; de 
I'habilete s'impose... 




Patrick BENITAH 



Mode d'emploi : 

Les regies sont incluses. 




0£ VO'S. (W^ (SAWAfltfaj ^ 

AMSTRAD 







30 ' CO 1985 Par P.Benit.jh 288 

by GOSUB 150 J INK 290 

70 GOSUB 458' ECR8N 380 

80 GOSUB S28' JEU 310 

90 GOSUB 1850' STUP 328 

180 MODE 1'PEN 1-INK 1,24 'PAPER 0' *16 

INK 8.0: BORDER 330 

110 GOTO 78 340 

130 ' INIT 350 

158 KEY 128, "MODE 1 ' PEN 1 1 INK 1,^:6 360 

PRPER 0:INK 0,0 = BQRDER e'UST"+CH 37% 

R*< 13 ') 380 

160 INK 1,24 390 

170 INK 2,14 400 

180 INK 3,20 410 

190 INK 9,0 438 

208 BORDER 450 

210 SYMBOL RFTER 127 460 

220 SYMBOL 123,^55,129,1^,1^9,129 470 

,129,129,255 480 

238 SYMBOL 130,0,60,118.94.94,126, 490 

60,0 500 

240 SYMBOL 129,218.218. W, 1^2. 182.0 510 

•218.218 520 

250 SYMBOL 131 . 128, y,4s, 1 16, d, 61 ,6 539 

8, 187 548 

260 GOSUB 1340: MODE \ 550 

270 DIM HSC10.",HSSC10> 560 



FOR N-l TO 10 
HSOO=99 
H3SCN >-"???" 
NEXT N 

DEF FNP0INTCP1 , 01 )» TES PC C PI- 1 > 
,C25-Q1>*16> 
RANDOMIZE TIME 
FOR N=0 TO 3 
R»<N>=CHR*CN+128> 
NEXT N 
P2=3 

ENT 1.15,-1,3 
ENV 1,15,-1.3 
ENT 2.15,1.3 
RETURN 

ECRAN 
CLS 'PEN 2 
FOR H=l TU 49 
LOCATE N. 1 PRINT AS'. 0>; 
LOCATE N,25:PRIM( A*'-8j; 
IF N>25 THEN 520 
LOCRTE 1,-N'PRINT fWK0J; 
LOCATE 46. N: PRINT H*< W>j 
NEXT N 

FOR N=l TO 38 
PEN P2 

P=INTCRMD*34>+4 
Q=INT'. PND+23 >+2 



570 IF FNPOINKP-QX>« OR FNP01NK 

P+2.Q><>8 OR FNP0INTfP-2,0X>« THE 

N 558 

580 IF P2»3 THEN P2=l ELSE P2*3 

590 LOCRTE P.O 

600 PRINT A4CP2J 

618 NEXT N 

620 X=INTCRND*34}+4 

630 Y=INTCRND*2'3>+2 

640 IF FNPOINT<X/YK>0 THEN 620 

658 Xl=l Y1=0SC=0: IME=0:l*=""'M=l 



660 LOCATE X,Y 

678 PRINT R*C2> 

680 LOCRTE 12,1 

690 PEN 1 

788 PRINT"-,ESPACE> POUR JOUER" 

710 WHILE INKEY*OCHRS',32J"WENl> 

720 FOR N=12 TO 32 

73d LOCRTE N, 1 

748 PEN 2 'PRINT R»<6,>; 

750 NEXT N 

768 DRTUf1=IHTCTIME-'300) 

778 PEN 1 

788 RETURN 

880 ' JEU 

820 I*=1NKEY*: J=JOYC0> 

838 IF 1*="" RND J=8 THEN S6lJ 



840 IF 11=":" OR J=l THEN Y1=-1'U0 

TO 360 

858 IF 1*="." OR J-d THEN Yl = l'i,iji 

868 

860 X=X+X1:Y=Y+Y1' IF Y=l OR Y=25 T 

HEN Y=Y-Y1:Y1=0 

878 POINT=FNPOINTCH.Y> 

880 LOCATE X-X1.Y-Y1 

898 PRINT" "i 

988 LOCATE X,Y 

918 PRINT A*<2>j 

928 IF P0INTO8 THEN 948 

938 Y 1=8 GOTO 820 

948 REM erreu.r 

950 IF P0INT=2 THEN PEN 2 'LOCATE X 

,Y:PPINT AtC 8 ■>;■■ SOUND 129,108,4^,1 

5, 1,2.0: PEN 1 :X=X-X1 X1=-X1'X=X+X1 

'GOTO 930 

968 IF P0INT=1 THEN LOCATE K-YPRL 

NT" ", 'X=X-X1:X1=-X1 X=X+X1 'SOUND 

138.200.45,15.1. 1.0 =SC=SC+1 'IF SC< 

15 THEN 930 ELSE TME=C< TIME/308.-D 

ATUM?: GOSUB 2260 'RETURN 

978 FOR N=30 TO 1 STEP -0. 1 

980 SOUND 138,a.4,N'4,0,0,H'6uRDLP 

INT<RND*2£>+1 
998 NEXT N= BORDER 
1088 TME=9999 



1010 RETURN 

1838 ■' STOP 

1850 MODE 1 

1060 IF TME<HSC10J THEN GOSUB 1970 

1070 CLS 

1080 LOCATE 16,2 

PRINT"TOP 10" 

WINDOW #1, 11,34.4, W'LOCATE # 
11 



1890 
1108 
1,1. 
1110 

1120 

llSi 



115S 

#1,0 

1169 



FOR N=l TO 10 

IF NO10 THEN PRIMT#1," "; 

PEN #1,INTCRND*3.)+1IF N=M+1 

PEN #1,0'PAPER #1,1 

PRINT#1,H;"-";HS*CN);"...";HS 

IF N=M+1 THEN PEN #1.1 PAPER 

NEXT N 

FOR N=ll TO 26 

PEN INT<RND*3)+1 

LOCATE N.3:PRIHT CHR*'. 12> >, 
LOCATE N. 15 'PRINT CHRtC 12? .<> 
NEXT N 
FOR N=3 TO 15 



Suite page 85 



84 



GOBPUZZLE 



Rageant ! GOBPUZZLE passe son temps a devorer les 
pieces du puzzle que vous devez reconstituer. Heureu- 
sement quun coup de joystick bien place vous debar- 
rasse pour un temps de cette affreuse bestiole... 

Gerard GUENIN 

Mode d emploi : 

II faul tout d'abord creer vos puzzles a laide du programme Ouaire 
puzzles peuvenl ainsi elre presents dans le jeu et la possibility vous 
esl offerte de sauver vos creations sur K7 



AMSTRAD '<* -««'■ 




iy ktri ■. .buj^LE 

20 HEM 1NITIRL1SH' HJNb-- 

30 ENV 1.15.-1.5 

49 ENV 2, 1,13,2,13,-1,3 

50 ENV 3, 6. 1,6. 3. 1.6, 1.6. 10K 
6.3,-1,6 



i' GOTO Sli 



19,1 



.SCJic 181 



liCIM 



20.23.1 



.en 



en see 

498 INK N.CWN.O). 

see ink n,co(n,0) 

SIB NEXT- IF COU3.0K20 RHt> C0U5. 

1 >027 THEN INK 13,34 

320 FOR N»0 TQ 15 

536 PEN N' LOCATE N+1,3 PRINT HEXK 

"■) NEXT 



■428BBRESTORE 110 
90 READ CI-IF C»-"FIN"THEN 126 

100 ■<■■:<-.■■ i - N.C N-N+l u 

GTO 90 

110 DATR IE, 8, 1,0, 0,21.0,0,16. 4, 7fc 

,2,23,3,13,C2,3A.A?,D3,11,FC.7,19, 

;.■:.::■■ L2,36, -.'...- - :■. 

120 H-4283B ■ RESTORE 136 

130 READ CI IF Ca-"FIN"THEN 166 

143 C-VAH ■*'«•) POKE N.C N-N+I >C 

OTO 130 

15B DATA 1E,0, 1,0.0,21.6,0, 16, 4, R, 

77,23,3,15,C2.58,A7,DS.1I,FC,7,19, 

01. 1D.C2.36,A7.C9,FIN 

166 FOR N-3 TO 15 INK N.N+10 NEXT 

176 DATA 3E,6,32,52.A6.32,33.«B.2A 

,3S,A9.E3. 1,28.0,9,01. IE, 8,16, 4. R, 

BE.C0.23,3,13,2e,FB.D5.11.FC,7,19, 

E5, C3, El. 19. E5, CI, El. 01,10, 20. 66, 3 

E,1,32.32,R8,21,94,R7,3R,54,R8,FE, 



,C9,FIN 

18B RESTORE 176^-43666 

196 READ C8'IF C«-"FIN"TMEN 226 

2B8 C-VAL<"fc"+Ct> POKE N,CN-N+1- 

OTO 196 

21B REM MENU 

22B I100E 2 INK 1.26 BQROER INK 
LOCATE 25,6 PRINT"0 P T I N 



340 X 



'-112 



336 LOCATE U22 'PEN 13 ■ PRINT"CQMd» 

366 B-TEST(X,Y> 

576 PT-0 

390 A«J0YCB)'PL0T X,Y,9'PL0T X.Y,1 

3 'FOR F-l TO VI NEXT 

390 A«-UPPERJ< INKEYt). IF AM" "THE 

■■ GOSUB 796 

eee if a«-"W"then 1258 

610 IF R-6 THEN 300 

620 PLOT X.Y.B 

636 IF fl>10 THEN PT-1 A-A-16 

646 IF fi-4 THEN X-X-4 

656 IF fl-B THEN X-X+4 

66B IF fl-2 THEN Y-Y-2 

676 IF R-l THEN Y»Y+2 

6BB IF fl-9 THEN X-X+4 -Y-Y+2 

690 IF A-10 THEN X-X+4 - Y-Y-2 

7BB IF A-6 THEN X-X-4-Y-Y-2 

710 IF fl-3 THEN X-X-4'Y-Y*2 

72B IF X<16B THEN X-160 

736 IF X>4?6 THEN X-476 

746 IF Y<112 THEN Y-112 

736 IF Y>278 THEN Y-270 

766 IF PT-6 THEN 360 

77B PLOT X.Y.CO 

7B6 GOTO 56B 

799 REM— -Tr«it«m*nt mttrgPtions- 



1110 IF T',>CF THEN 1140 

1120 X-X-4 IF X>-169 THEN 1090 

1130 X-X+4 GOTO 1199 'AFFICHRGE 

I14B T-TESKX.Y) IF T- >CB THEN llir 

9 

1150 X-X+4 IF Xi476 THEN 1240 

-RETOUR 

1169 IF X?RX THEN L179 ELSE 11*6 

1178 TT-TEST'X.Y*£, IF TT-CB THEN 

1 249 ' RETOUR 

UBB T-TEST-.X.Y): IF T-CB THEN me 

1190 H-X 

1288 T-TEST<H.Y1 IF T-CF THEN PLOT 

1210 

1228 



1720 PLOT X.Y.B CA-fe 

1738 LOCATE 1-24 INPUT"Noiiwe I \ c rr. 

Ut.">CW IF CN8"""THEN 1730 ELSE '. 

H=VRL< "S-'+CN* ) 

1749 LOCATE 1,24 PRINT" 

173B F-166 

1769 T-112 

1770 R»-INKEY» IF FW-" "THEN 181y 
1780 IF TEBTCF.TXH THEN PLuT P,1 
.CN 

1790 T-T+2 IF T',272 THEN 1779 
1880 F-F.4 IF F'489 THEN 1769 
1810 LOCATE 29,1 PRINT" " B-CN PET 



r-TESKH 


1236 Y-Y-2 IF 
1696 

1240 Y-YYX-X: 
URN 
123B REM- 



-JEUX OE GOBPUZZLE" 



112 THEN RX*X-GQT 
XX B-CR PLOT X,Y,BRET 
TRRNSFEPT IMROE HAUT - 



1330 MODE 2 INK 1,24 INK 0,1 
1940 FOR N-l TO 100'EPVN,e)"B SC'-. 
fN>-0POKE 42B99+N,0 NEXT POKE 429 
Mil POKE 42999.1 SCS«98>"1 BCMSf 



230 PRINT PRINT PRINT" * 1 - In: 

uctions" 

240 PRINT-PRINT" I 2 - BWIWBUI 

250 PRINT PRINT" I 3 - R#PF#l di 

260 PRINT PRINT" * 4 - Choix d» 

276 PRINT PRINT" I 5 - Cr«*tion 



290 PPINT PRINT" * 7 - J«u 

UZZLE" 

306 fW-INKEYi IF A«-"" THEN JtJU 

310 A»VRL'-R»> IP A-U OR A>7 THEN 3 

320 ON A GOTO 4040, 4249. 4396. J5^6, 



B2B IF Ri>"ft"THEN GOSUB 1016 
B3B IF At""E"THEN GOSUB 142B 
840 IF H»-"F"THEN GOSUB 1710 
B3B IF R»-"V"THEN GOSUB 900 
860 IF f»."t"THEN GOilJh aio 
970 IF Rf-"P" THEN GOSUB 3^90 
8B0 LOCATE 28.1 -PRINT" " RETURN 

890 REM-— Vlt»s*f 

909 V-NOT V 

919 LOCRTE 3,1 

929 IF V-6 THEN VI»1BB PRINT"LENT" 

936 IF V>-1 THEN VI = 1 PPTNT-RRPI'' 

946 LOCRTE 29,1'PRINT" " RETURN 

936 REM CHANGEMENT COULEUR 



1268 PLOT X.Y.B LOCRTE 1.1' INPUT" 
IMflGE No "iH'IF [•■•■THEN 1260 EL 
SE I-VRUIS) 

1270 IF Kl OR I>4 THEN 1260 

129B HRR«<I-l;*32e9*30090 

129B FOR N-B TO 9 

139B FOR M-B TO 9 

1319 DEP-49812*Mt4*N*66 

1326 HOEP»INT( OEP/256 / LOEP-PEP-W- 

EP*236 

1336 HRRR.INT(RRR^256- LHRR-RRP-HR 

RRS2S6 

1349 POKE 428B6. LOEP 

1338 POKE 42867, HOEP 

1368 POKE 42993. LARP POKE 42904, HH 

1379 CRLL 42B90 

1388 ARR-RRR+i2 

1398 NEXT M,N 

I486 FOR N-9 TO 15 POKE 42866-N*.;, 

*,Q> POKE 42e61*N*2.DJ'N,l i HEX 



T 

1418 GOTO 22B 

1428 REM— Ech*ne« couUurs 

1439 PLOT X,Y,B CA-B 
1448 LOCRTE 1.24 INPUT"Nouv«l le c. 
',CN* IF CM«"""THEH 1440 EL^E i 



N-VAL("B."*CN») 
1450 LOCRTE 1. 1 



niHi 



330 REM-— CRERTION I.ESSIN 

340 GOTO 4630 

350 MODE 2 PRlNT"OMil > «E-VOua rtV* 

<69 R4-UPPER*' INKEYf, IF rtl-""[HEN 

360 
379 IF R«""N"THEN 440 
390 IF A«w"0"TNEN 220 
390 CLS PRINT"Ouel nuttero " 
N'lF Nf 1 OR N.'4 THEN 390 

09 [>EP-30999*(N-1 )*3206 
AR-49612 

20 MODE B GOSUB 29^8 

38 GOTO 460 

40 REM 

150 MODE 6 

.66 PEN 15 C-9 V— 1 VI«1 IN 



3 LOCRTE 1,24. INPUT 'XCIUI EUP" . i.i. 

■ CO«»""THEN 966 

i CO-VRLr't'^CO*) 

3 LOCATE 1,24 PRINT" 

} LOCATE 26.1 'PRINT" " 

36 RETURN 

16 REM ROUTINE REMPl I BSflGE — 



1840 LOCATE 1 ,23' INPUT'CuULEUR 80P 

DURE",CB» IF CB«=""THEN 1049 ELSE 

CB«VRL("i"*CBI; 

1038 LOCATE 1 .24 > INPUT" COULEUR RE" 

PLI.".CR»IF CR»- n, 'THEN 1959 ELSE 

CB-VRLi "4"*CR«> 

1968 LOCATE 1,23 PRINT" 

" LOCATE 1,24:PRINT" 

1878 LOCATE 26. I -PRINT" " 
108B XX-X ' YY«Y - PLOT X,Y,CF AX=X 
1698 fttWlNKEYI IF A«-" "THEN 1248 
1196 T-TESTCX.Y) 



1460 XX-X YY-Y 

1476 R««INKEY« IF H«-" "THEN 16; 

1490 PLOT X,Y,CN 

1490 X-X*4 GOSUB 1669 

1399 IF TE5T<X.Y)-CA THEN 14;'0 

1310 Y-Y»£ GOSUB 1669 

1529 IF TEST<X.Y>"tfi THEN 1478 

1330 X-X-4 GOSUB 1668 

1348 IF TESTIX,Yi=CR THEN 1479 

1359 X-X-4 GOSIJB 1666 

1566 IF TEST<X,Y)=CA THEN 14,'0 
I37B Y»Y-2 GOSUB 1666 

1360 IF TEST'X,Y>»CA THEN 147u 
1590 Y-Y-2 GOSUB 1660 

I60B IF retKK.YXB THEN 1476 

161B X=X*4 GOSUB 1666 

1620 IF TEST'X.Y-CR THEN 1479 

1630 X=X*4.G0SUB 1668 

1640 IF TEST'X.Yi=CA THFN I47u 

1639 X-XX Y-YY B-CN PLOT X.Y.B L 

ATE 20.1 PRINT" ■ RETURN 

1669 IF XJ476 THEN X-476 

1670 IF X(160 THEN X-160 
1680 IF Y>279 THEN V-27.1 
1696 IF Y<112 THEN Y-112 
1768 RETURN 

1718 REM FOND 



I860 INPUT" IMAGE " I I« 

1878 IF H-""THEN Z-3299*' INT(RND( 

1 >*4 i ,i+.30OB0 GOTO 1899 

1899 Z-CVAL' !•)-! )*3290+?00y0 

1898 PRINT-PRINT"Bv4C on »»n» GOBP 

UZZLE (R/S>" 

1988 R«-UPPER»1 INKEY«1' IF R»-""THE 

N 1988 

1918 GOB-8 IF R«-"R :l THEN GOB-1 

1928 FOP N-9 TO 13 IF C0'N,I'<27 T 

HEN 1940 

1938 INK NjCWNjB) GOTO 1939 
1949 INK N,C0(N.9',CO'N,l I 

1939 NEXT 

1968 MODE 9 G0SU8 2988 

1970 REM— MELANGE ELEMENTS 

1999 FOR N-l TO 98 

1990 L»INT'RND'l >*98>»! 

2990 IF EPSECL d BX>a THEN 1999 

2010 EP*!L,8>-N 

2920 NEXT 

2930 EP^(99,0)-99 EPV 160,0 '-109 

2940 REM— -IMPLRNTRTION 

2830 N-l 

2060 FOR Y-l TO 15 IF INTi Y-2 l.V.2 

THEN 2080 ELSE 2070 
2970 FOR X-l TO 13 STEP 2 GOSUB 21 
00 'NEXT XGOTO 2999 
29B9 FOR X-2 TO 12 STEP 2 ■ GOSUB 21 
00 NEXT X 

2090 NEXT YGOTO 2190 
2100 EIMVX.Y.ei-N 
2110 C-49152+(X-1 )*4*(Y-1 >t99 
2120 EPVN,2)-INT(C'236> EPWN. I )■ 
i;-EPVN.2)*256 'Rrrlvee 

2139 C-<EPX'N,0)-1)*32+Z 

2140 EP'-;fN.4)=INT'C^256> EPV.N.3." 
I--EPVN.4 its'>". 'Depji.rt 

2139 POKE 42836,EP^N,1>'P0KE 4283 

7.EP54'N.2) 

2160 POKE 42933, EP;:'N,3> POKE 4283 

4.EPVN.4 ) 

2178 CALL 42839 

2189 N=ll+l RETURN 

2190 FOR N-0 TO 4 STEP 4 

2200 C»Z+3136+N*8 H0EP=INT<C256 1 

LDEP-C-HDEP*256 

2219 EPKI99+N'4,3)-LDEP EP'-:' 99+N^4 

, 4 1-HDEP 

22S0 POKE 42833. 1.DEP POKE 42834, HD 

EP 

2239 POKE 42H36.169+N P01 E 428)7,1 

99 

'-160+N EPV99+N^ 



2278 LOCATE 15.15 PEN 15 PRINT 9 
2280 CH=REMAJN. i3 I f H-PEMAIN' 1 > 
2290 EVERY 109.1 GOSUB 3118 

2398 IF G08=» THEN 2319 ELSE AFTER 
300.0 GOSUB 3310 

2318 SCORE =8 

Be re»— oepla<;ement 

2338 IND=1 PEN 15 

2340 X-15 Y-I0 [>I LOCATE X,Y PRINT 

CHP«' 139 i EI 
2350 H-JOY'6' IF INKEY'47)-B THEN 
IND-1 

2360 IF INKEY'69'«0 THEN A-REIW1N' 
01 R=PEMRIN'. 1 i GOTO 220 
2370 IF INKEY(18)-0 THEN IND-IND+1 
2388 IF A-8 THEN 2358 
2390 IF AM6 THEN 2549 
2499 EIM«X,Y.l)-0 
2416 IF EIMVX.Y.0'. -0 THEN 243» 

2429 DI LOCRTE X.Y PRINT" "EI 

2430 GOSUB 2810 

2446 IF EIM;;'X,Y,0.' .0 THEH GOTO 2 

476 

2456 DI LOCATE X.Y PPINT CHR»' 15'? I 

EI 
_-J€0 7.0T0 233B 
2478 N-EIMX<X.Y,6> 
2488 D I LOCATE X.Y PRINT CHR<' 15? I 

EI 
2498 IF JQY(9>"0 THEN 2456 

2399 POKE 42833. EP"<'N.3< PO^E 428.< 
4.EPVN.4) 

2319 POKE 42836, EPfcrH, 1 < POKE 4283 
7,EP'-1<N,2> 

2520 CRLL 42938 
.13?? .'JTO 2358 

2548 REM— TPANSPORT ELEMENT 

2350 IF EIMVX,Y.0)-9 THEN R-R-16 

GOTO 2420 

23*8 IF Y'13 THEN POKE 42999* f Y-16 



> DI LOCATE > 



me- 

2379 AV-EIM^(X,l 

PRINT" •' EI EIM'. 

2389 R-A-16 

2599 GOSUB 2910 

2699 H-eiNMXiViB) 

2619 C-'X-l i*4+(Y-l 1*99+49132 

2629 HARR-INT(C^256» LAPR=C-256*HA 

£630 PCKE 12936 ,LfW POKE 4^37 ; ha 

RR 

2640 POKE 42933. EPK'RV.SX POKE 428 

34,EPWRV,4) 

2650 CALL 42839 

2660 EIM«<M,Y,9>-AV EPV.<RV,1 i-LRRR 

EPWRV.21-HARR 
2679 A-JOY'0) IF INKEY'47>=8 THEN 
IND-l 

2688 IF INKEY' 191-0 THEN IND"INt'+l 
2690 IF H-3 OR A-16 tHEN 2670 
2790 IF R<16 AND N«0 THEN 2790 
2719 IF A<16 AND HOB THEN 2670 
2729 IF NO0 THEN 2740 

2739 DI LOCATE X.YPRINT" " EI EIM 
VX,Y,e>»0 GOTO 2580 

2740 POKE 42836. LARP POKE 42837. HA 
PR 

2750 POKE 42933.EPVN.3' POKE 4283 
4,EPVN,4> 
2760 CRLL 42930 
2770 Elf1VX,Y,01«N 

2789 GOTO 2580 

2790 IF Y>15 THEN GOSUB 3139 IF PE 




LA BOULE 
INFERNALE 



123U PEN INP PHDt.-. ■+] 
1248 LOCATE 11. N PRINT 
125il LOCATE ^b.NPRINI 
1260 NEXT II 

1270 LOCATE 12.21 PRINT 
OUR JWEP", 
1290 1»-IMKEY» 
129y IF [S-LHRV ii • IHh 
1300 IF If 'CHR»' '-2 ■ II- 
1328 ' INTRO 

1349 Myffc 1 

.1359 INI. L'.O PuRDER H 
1360 111! 1 .26 INK 2.6 I 
1370 SYMBOL 133.64.224. 
.224.224.224 
1380 SYMBOL li4.224.22-i 
4,255.127,63 
1 -19'J -I'MbUL if. i« " y >, 
248 

1480 SYMBOL 1 J L .. •! ■'. ■' 1 
224 . 224 . 253 

1410 -itieot 130.2*>3.25* 
4.224,224.64 
1420 SYMBOL 1 S7. 224,24) 
28,29,232 

143Q SvntOL. 139. 252. 2N 
8.28,8 
1448 SYM&X 140.127,25f 



1715 PEN 2 LOCATE 8. 24 PRINT' 

CE> POUR JOUER'" 1 = 1 

1,'13 PPINT CHPS-22 .-CHR<. n ■ 

1720 whilf tNKEYK ■" " IN* 1 ■ : 

K 3. 26 1 FOR 0«1 TO 108 NFXT ll« 
6 INK 3.11 FOP c-1 TO 199 NEX.1 



:.:-•■ 



1530 


i-MBul 






253 . 234 




vrieoL 






YMB>X 




^■t 






1561? 


YHBOL 




3-239 






1^7i) 


■■MtllJl. 
,-.'4.64 

VMB'JI. 




1590 


YHBOL 


168 




■i'MB'.'L 


165 


1610 


.-MPl.li 


Ib6 


I-".-" 


,-NR.i>l 




1638 


■i'MRi '1 




2.249 






1640 


■■"fcOL 


169 



1 [*HM 350.96.5 



1730 MODE 9 PAPER 9 BORDER 5 CLR 

1740 F'3P N-l TO S 

1758 PERI' A» 

1760 GOSUB 1980 

1770 NEXT N 

1799 UHILE !NKEY» INK [Ml- Pitt- 

n>;« ■•.- int. Piii't--, ..i wtr«. 

1799 RETURN 

1888 R-LEM(f»> A-lB-fl'2'B-Bt32 

!?I0 E>I»lHTi PIU" 1 1*10 >+2 

1828 PLOT 1090. 1998. DI 

1839 MOVE MjC23-<H*2>>tl6<THG'PRIH 

T A«. TAGOFF 

1849 RETURN 

1850 DAT* "LE BUT DU JFH" 

1869 DHTR "EST DE l-PRRPER LM " 

1&78 DATA "SRNS S'Ei.RASI-R MJR" 

16*0 [.HTR "LE8 " 

1899 DATA "BOIIIIt CHftW E" 

I960 DATA " - HAf.iT" 

1910 C'ClTH ". - BAS" 

1*2*> ['ATA "DM JOYSTICK" 

19*3 f'RTA "ESPACE> PCK.IR JiJUER" 

1959 ' MOMS 

1970 CLS TME-INT'TME ' 

1999 PRINT TAB' 12 '. "FEI.1C1 TAI IONS" 

1990 PRINT TAB' 12'." =■>=>■=«->■.-" 

2888 PPINT TAB'. 12'," ,«*—=«•=••" 

2910 PPINT TABM2 '"TEIIPS ".TME" 

SECS" 
2B3B PRINT TAB' 4 '-"VOUS ETtS t'ANs 
L.K-: I-I-: r-IEILLEUR- Tt.MP-.- 
2039 PRINT TAB' J).- "UTILISE? I- T 

POijc i.HfttlGEP LES LETTRES" 
2049 PRINT TRB'4'."ET (ENTER> PO"R 

CHHMGEP Ob" COLONNE. " 

,"'05':' LLN/HTE \H.li PRiliP"HMH" 



2069 FOP H*l TO 3 

1970 Et' N ■-"+(" 

2989 CO-65 

3(--0 I.-IN1-EVS 

2190 IF I*-" '* THEN i.O-iO*l IP C 

92 THEN rn=65 

2110 IF 1*^"," THEN CO-CO-1 II- C 

64 THEN C0-?1 

2120 PAPER 1 PEN B 

2139 LOCATE 17+N-14 PRINT CHR8CC 

B* N .=CHP«' CO) 
2149 IF H-i.HP*' 1?' [HEN PAPER t 
EN ILOCRTF 1 ,*+H 14 PR [NT CHR»' i 

,,-,T,-| ..|..- 
j-l-.ii cnTii J.-'-0 

2160 ne:-:t n hS' 19 ~TNE »-* tn ■-" 

2179 FOP H=l TO 3 

.-1=0 H ; .»' 10 -H'-.»' 1" >*P.». II ■ 

2190 NEXT II 

2299 M=* 

2219 IF HS'M"HS'M*I - IHEN G*'H- 

M 1 •■,=HSl M ' MS* M '*HS»' M+ 1 > ■ HS' M 

S' M*l ' HS' M.l -G HSV M+l »G» M-I 

IF M-..1 THEN 2210 

3,_'2u RETURN 

2248 ' FINI 

.'>.! FirR- N-l Mi 2- -ikP n.', 

2279 ll» 9.H 

22E9 Iir 2.27-N 

2299 INI- r,2.-N 

3399 F-* T-l TO 48 NEXT i 

2310 SOUND 13U-0-3. l"..n.ii N HtXI 

2320 INK 90 

2330 INK 2 14 

2349 ItP :-.20 

1330 INK I - 

2360 RETURN 



?fW 


DATA 


17? 


1R4 


170. 




1S4. 




w. 


16 














?hU 


DATA 














as, 


34 














?7fl 


DflTfl 


134 


Tfi 


1 41. 




13ft, 


W 


Jtli 


37 














rnt 


DflTH 


\m 


:M 


i:w. 


:w 


1 i*»# 




Wi. 


28 














r*« 


DATA 


l?fi 


3? 


1?fi. 


?« 


I?Ti, 


Slfl 


?a. 


24 














:«W 


[,ltlH 


i?? 


?fc 


11"/. 


a:< 


12?, 




Wt. 


21 














»l« 


DflTfl 


i 


HI 


UK. 


?a 


lift. 




IB, 


33 














3?fl 


DflTfl 


1 lh 


?* 


It*., 


?s 


114 


w 


\?- 


20 














■JM 


DflTfl 


111 


22 


112, 


27 


113, 


J4 



GOBPUZZLE 




SURPRISE 



Testez par le jeu de pile ou face, votre degre d'indigna- 
Hon { ?..). 



Mode demplol ; 

Tape? soigneusement ce listing scandaleux 



10 DEFINT R-Z MClL'E i liiJ'iUb alj END 

£0 GOSUB 30 REAP C FOR 1-1 TO C RE 

AD R. 8 'MOVe R,8'G03UB 40 NEXT I RE 

TURN 

30 READ ft,B IF A-939 ANO 6-9*9 THE 

N RETURN ELSE IF 6=593 THEN STOP 

40 ORfiU ft.B.l 

50 GOTO 30 

60 LOCATE 23,13 PRINT "VOILA LA BL 

70 RESTORE 1570 ORIGIN 150,20 REAC 

«,B MOVE ft. 6 RESTORE 1570 
80 GOSUB 20 

90 LOCATE 15,23 PRINT "TAPEi UNE T 
OUCHE ET J£ ME RETGURNE " 
100 A*»]NKEY» IF A*-"" THEN 100 
110 RESTORE 1330 
120 LOCATE 23,15-REAO C 
130 FOR I»l TO C 

140 READ ft IF fi-13 THEN PRINT CHK» 430 DFHA 
Cfl) ELSE PRINT CHRXfl^ 
150 NEXT I 

166 FOR 1=1 TO 5O00 NEXT I 
170 MODE 2 

180 RESTORE'ORIGIN 300,0 RE AC A,B 
MOVE A,BRESTORE 
190 GOSUB 20 

290 LOCATE 1,10 READ C FOR 1-1 TO 
C 

210 READ A' IF A-13 THEN PRINT LHR» 
Cfl) ELSE PRINT CHRitAJ, 
220 NEXT I 
230 RETURN 



Suite de la page 85 



EK<43091>«1 THEN 3190 

2800 GOTO 2430 

2910 DI IF A"! THEN Y-Y-l 

2820 IF H-2 THEN Y=Y+1 

2830 IF fl-4 THEN X-X-l 

2848 IF R=8 THEN X"X+1 

3930 IF A-3 THEN Y-Y-l X-X-l 

2860 IF A-3 THEN Y-Y-l X=»l 

2870 IF A-6 THEN Y-Y»l X-X-l 

2880 IF R-10 THEN V-Y+l 'X-X+l 

2890 IF >:>29 THEN X-20 

2900 IF X' 1 THEN X-l 

2910 IF Y>23 THEN Y-25 

2920 IF Y'l THEN Y-l 

2938 IF >M0 AND Y>13 THEN X"18 V" 

13 

2940 IF X-HO AND Y»VE THEN GOSUB J 

520 

2959 

2960 FOR R-l TO INt> NEXT 

2970 EI RETURN 

2980 CEP-Z AP-593<>2 

2999 FOR N-9 TO ? 

3000 FOR M-0 TO 3 
3010 ARR-HR*M*4+N*88 

3020 HDEP-INT<DEP/236' LDWDEP-ZS 

6*HDEP 

3030 HHRR*INT':APR.'23e) LARR-APR-HA 

RR»236 

3040 PCKE 42836. LARR POKE 42637, Hfl 

3030 POKE 42933, LDEP POKE 42834. MO 



3240 LOCATE 1.3 PRINT"VOS POIHTS ■ " 

.SCORE 

3250 LOCATE 1,3 PPINT"UNE AUTRE PR 

RTIE '" 

3260 AI-UPPER*' INKEY«i IF Ai-""THE 

N 3260 

3270 IF A««"N"THEN 229 

3280 IF flt<>"0"THEN 3260 

3290 BORPER 8 

3380 GOTO 1929 

3310 REM—- APPirition GOB 

3320 SOUND 130.396.-32768,9,3.0.10 
3330 DI HO-20 VE-1 
3349 LOCRTE HO.VE PRINT CHPtt 225 i 
3359 CH-PEMAIN<9) 

3369 TP-INT'RND< riME->f50>*39 

3370 E'.'ERY TP.0 GOSUB 3409 
33*3 £1 »ETrjRN 

3390 REM DePUcement GOB 

3480 ['I ■ LOCATE HO, VE PRINT" ■ 
3410 IF H0<-t3 THEN 3430 

3429 HO-HO-INT'RNP' TIME if 3 ■ VE-VF* 
INT' RNPf TIME i*2> GOTO 3440 

3439 H0=H0-5*INT<-PND<TIME>*]1 ) VE« 
VE-4.1NTfRND<TIME)f9) 

3440 IF H0<1 THEN HO-1 

3430 IF HO>20 THEN HO-20 
3460 IF VF/1 THEN VE-1 
3479 IF VEM3 THEN VE-15 
3489 LOCATE HO.VE 

3499 IF EIKWHO.VE.BXM PM> EIMV 

HO.VE. 1 '"9 THEN PRINT CHR«'224' ^.n 

UNP 129. 1O0, 0.9. 2 SCOPE-SCOPE- 10 E 

IMVHO.'-E.l "1EI RETURN 

3590 PRINT CHR«<"225> 

3310 EI RETURN 

3329 REM— Coincidence GOB »"^c Da 



£■0 

3350 SOUND 131.0.0,9.1.0,3 

3360 TP=!NTrRHE>'11f<ie0-PBi*30i*56 

3579 AFTER TP.9 GOSUB 3310 

3380 EI RETURN 

3599 REM— -PALLETTE COULEUR 

3690 MOPE 2 BORDER INK 9.0 INK l 



3728 IF A*-"M" THEN RETURN 

3730 MODE 8' PEN 13 INK 19,24-00X18 

,0i-24CO<15.1 >-27 

3740 FOR N-0 TO 14 CO<N,0>-0 CtKN. 

1J-27 NEXT 

3798 FOR N-8 TO 13 

3760 LOCATE N>1,3 

3770 PRINT HEXKN) NEXT 

3780 N-l M-0 0—1 

3790 LOCRTE N,4 PEN IS > PRINT"*" 

3B00 A«-INKEY«IF A«-""THEN 3800 

3918 LOCATE N,4 PRINT" ■ 

3820 HS-ASC'A»i IF AS-5-E0 THEN RET 

URN 

3838 IF ASO&F2 THEN 3968 

3940 N-N-1'0— 1 IF N<1 THEN N-l 

3838 GOTO 3790 

3860 IF RSOtFa THEN 3890 

3B70 N-NM'Q— 1 IF N.M6 THEN N-l 

3688 GOTO 3798 

3890 IF AS-«,D THEN 0-NOT 

3900 IF ASO&20 THEN 3798 

3910 M-M+l IF M>26 THEN M-0 

3920 LOCATE 17,3 PEN 13 PRINT Ml" 

3930 INK N-IM LOCATE N.3 PEN N-l 

PRINT HEX«iTN-l) 

3940 C0(N-1,1*D)-M 

3938 IF 0—1 THEN INK N-l.MGOTO 3 



:•■ dtislni Qui »*ront ■■■** ~-t • 
'••P*r-Pilles' , ,CHPi<34J PRINT"Pir le 

Pro9r»mme." 
4190 PRINT PRINT"-Pour C»U,Un 109 
lci#l d« d-*»ln «t inclu. It contl 
ent (Jiv*rs<3 ^^mn»Tides Pour fsctt 
ittr 1* tr« c «.'- 
4190 PRINT •PRINT"-Cm desiln^ Peuu 

et rjppsles iilteri»i_,rtmsnts ■ pri 
NT" ( SHUVEG 

ARPE nt RAPPEL ) " 

4200 PRINT PRINT" - On Pe 
ut m*norii»r Jua4u'l 4 d»s»lns. -" 
4210 PRINT iPRINT'-U Ptlett* d* co 
ttlMU* (ttvri <tr* choi»ie *si»nt d» 
coKK'ncwr t* dessin.et est rnodlf 
Uble «n cours d» trjee.EH? tkt c 
ocb'.' -,» ■in 4 dtsslna." 

4229 PPINT-PRINT" 

— RPP'jw*z sur UtM tO'JChe 



4800 N*CO+i M=e o— i ■ gosub 3?O0 
4010 LOCATE 28, 1 PRINT" ■ LOCATE 1 
7.3 PRINT" 
4020 RETIJPN 
4830 END 

4040 REM Instructions 

4039 MODE 2 INK 1,20 INK 0,0 BORDE 



4238 A»-INKEY|-IF A"-' 

LSE 220 

4240 REM S?uve9»i-d» 

4230 MODE 2 PRINT-Donn»j 



1^1 )' 



'THEN 4239 E ES-' 



GOTO 43 

4539 INK N.CO'N.0i 

4349 NEXT 

UN MOPE 9 FOR PTE-0 TO 3 

4560 DEP-3890e*PTE*3208 

4570 REAP AR GOSUB 2999 

4580 NEXT PTE 

4399 PEN 13 

4600 LOCATE 3-11 PRINT"1" LOCATE 

3, tl'PRINT"2" LOCATE 3. 15 PRlNT"3' 

LOCRTE 15.15 PRINT"4" 
4610 LOCATE 1 . 1 3 PRINT "PRESSEP UIIE 

TOUCHE" 
4620 fl«-INKEY« IF A»-»"THEN 4630 E 
LSE 229 
4639 REM— INSTRUCTIONS CREATION P 

ESS IN 

4649 MODE 2 INK 1.20INK 0.0 BOPDE 

4639 PRINT ■ PRINT PRINT"-A l'*idt d 
• U Minttt* d» /•uv.uou 
fPlfCtr I« cLLr»«ur j" 

4660 PRINT"! 'intarltwr c 
rt de 80»99 Points, et zi 
dlr»ctlon»" 

4679 PRINT PRINT"-Un »PP 
> ■ ■■>■■- C FEU 3 Utile (IT 
4698 PRINT'PRINT"-Pour » 
»ux conn«n((»l.Pre»ier 1 
ESPHCE " 
4690 PRINT. PRINT"LISTE PES COMMAND 



■ One*: 



>e9»r< 



4969 PRINT PRINT-PRUT 



■ Id* d 



EP 

3960 CALL 42838 
3878 PEP-DEP+32 
3888 NEXT M,N 
3090 RETURN 

3108 REM — D«CO«iPt» chc1i4u» 

3110 SC0RE-SC0RE-11F SC0RE<9 THEN 
SCORE -0 
3120 Dr LOCATE t3.I3.PPlNT SCORED 
I RETURN 
3130 REM— Detection bonne Position 

3140 POKE 43093, LARR POKE 43094. HA 

RR 

3130 U-CX-1 )+18»CY-16i POKE 43992. 

3160 CALL 43989 

3178 IF PEEK* 43098)-! THEN SOUND 1 

32,128,28,7'IF SCVU)-© THEN SCOPE 

-SC0RE»18 SC^Ul-l-PB-PB+l 

3188 RETURN 

3190 REM CONCLUSION 

3200 EI A-REMAIN(8VR=REMAIN' 1 I DI 

3210 BORPER 0.9SOUNO 135,0,9 

3220 LOCATE I , 1 ■ PR I NT "PUZZLE COMPL 

ET" 

3230 LOCATE 15.15. PRINT" 



.20 

361? PRINT"16 Chif 






Jrotes 
1* I 



3628 PRINT PRINT"A 1'iid* des t«ie 
hes de direction, Positionnez f»st 
♦ri*4ue *.u dessoul «u chifre" 
3630 PRINT PfiIHT"Pu.is ..w--,ei sur 
ti b»rre d'eiP*c» Pour f»ir« defil 
•r lei coulturi" 

3640 PRINT.pRINT'PRINT"Si I 'on del 
ire 2 eouleuri P*r it»lo.#PPu»ez s 
ur ENTER Pour suolr «eeM * In sec 



difn 



Ultl 



JUr ESPHCE 



3660 PRINT"* 

is sur P (comme » 

3670 PRINT'PRINTipRINT-'A I* fin 

1* selection, ippuhb* sur COPY" 

3688 PRINT PRINT" A 

PPuwer sur M Pour nenu.ESPACE Pour 

3698 GOSUB 3718 GOTO 220 

3700 REM 

3710 AMUPPERI' INk'EYH IF At-""THE 
N 3710 



4078 PRINT PPINT"Vo./s Pouve; uous 
dePt»cer d»ns l*a 8 direct ions. line 

crolx Mr4UR ".:tr« Position." 
4898 PRINT"-En iPPusjnt sur CFEUJ 
»oua "iCrMK34)j"«MMn«"jO«K34 i 

e de l-i 



4128 PRINT PRINT"-RtPouutl !« GOB 

PUZZLE s l'«ld» du JoisticK.-t (m 
te r«»PPir»itre U Piece c»che 



) PRINT PPINT--L' 



<8 OR V>1 THEN 4270 
4290 SPEED URITE V 

4390 CLS PRINT"PrePjr*z le pUAnRtO 
Phofie.Puis tfPu»R sur \* b*rre d' 

4310"c«="i"*C8 

4329 A»=INKEY« IF fi»*""TMEN 4'29 

4330 IF PJO" "THEN 220 . 
4340 SAVE Ct.B. 30009, 13000 

4330 CLSPRINT'Une »i,»r* * 'O'Hl" 

4369 fl«=UPPERt' INKEYS > IF Ri-""THE 

N 4360 

43^0 IF A«="0" THEN 4300 

4??9 GOTO 229 

4399 REM--Cr.Jr9*"i*nt dessint irtter 

4490 MODE 2 PRINT"Entre7 te now de 
= dtSSlnJ '""entuelement '" 

4419 INPUT C» C«- *C» 

4429 CLS PRINT"Pr*P»rez le n»9netn 
Phone Puis >pp...yez sur U b»rre d' 

4430"a«=INCEY» !F A«-""THEN 4430 

4449 IF AS- ■" "THEN 220 

4450 LOAC C« 30999 

4469 FOP N-0 TO 13 CO'N.fi.nPEEK'42 
960+H*2 ■• CC N . 1 >.PEEK' 4296 1 *Nf 2 ) N 
EXT 

4470 GOTO 220 

4488 REH~Visunll»tl0n 

4499 DATA 49152. 49192. 59^32. 30'92 

4500 RESTORE 4499 

4510 FOP N-0 TO 15 IF rO'N.l l»27 T 
HEN 4530 



4700 PRINT PPINT"-V riilenti on >r 

4710 PRINT"-P Permit de modifier 

1* Pflette de couleur" 

4720 prihT"-R RenPll une svrf-ce 

Fernee »wec une couleur" 

4730 PRINT" (Poiltionner le cur 

seur »u Pius h«ut d* li surftce )■■ 

4740 PRINT PRINT"-E Ch>n9e la cot 



fPllI 



!e 



4730 PRINT"-C 'Permet de cru-n9*r . 
Fond I* 



n desiin Presser sifoPlement M ijr,« 

•PPuser sur ESPACE" 
4780 PRINT" (4 Ut: 

sins Peuvent-etre memorises 1" 

4798 PRINT PRINT" 

ApPuyer *ur une touche " 

4909 R»-INKEYI IF A«-""THEN 4890 
4819 CLS PRINT PRINT ■ PRINT"-Les CO 

imandH P.E.F pmvtnt etre intei 



' U 



esp«< 



OUR CONTINUER" 

4839 ASHJPPERI' INKEY* • IF R»-""l 

H 4830 

4849 IF AI-"M"THEN 220 ELSE 300 



POKER 



Laissez-vous envahir par la passion du jeu, cette ver- 
sion est sans risque pour vos economies... 



Jean Luc LAGADEC 



CvU- Afy P0<'$ PAt) 



AMSTRAD 



Mode d emploi : 

Les regies sont incluses 



'* POKER C 52 ( 



160 FOB ch-123 TO 146 
170 FOR l»l TO 8 
180 REAO MCD'NEXT l 
190 SYMBOL ch,rKl},n<2;. 
nC3>,TK6>,n<7y,jK8j 
200 NEXT ch 

210 - 

220 'ATTENTION. Lea colli* 



230 'Si voum avez la couleur , nod 

Ifitr It liane 1320 P«r ■ 

240 •( INK 0.1 INk 1,0 [Hk 2.6 I 

HK 3.26) 

230 • 

260 MODE «■<' GOSUB 2U00 

270 LOCRTE 1,16 PEN 1 PRINT tHR»i 1 

64 >i" 1983 J-LUC * HERVE" 

280 PEN 14 LXRTE B, IB 'PRINT "VEUI 

LLE2 PATIENTEB" 

290 ' 

300 'REDEFINITION DE5 SYMbOLfcS 

310 • 

320 *iel<« 1 i-CHR*.'. 226 ' si9le#X2)= 

CHR»l229)ai9le»K3>-CHRi(22?) »191 

»•< 4 -Li:(-i 228 ) * "•CHKI' ^44 

330 RESTORE 560 

340 FOR CH-147 Tu 201 

358 FOR i-1 TO 8 

368 READ HI I > 

370 NEXT i 

360 SYMBOL ch,n< i >.w it, m 3 >.w 4 i, 



'node 2 PiPer 



: It* 



■CHRll 13, 
410 ' DATA 

420 DATA 206.219,219,21:1,219,219.2 
06-0,252,240.224, 132. 128, 128. 8,y 
430 DATA 0,0,126.126.192.224.240,2 
52,63,15.7,3.1,1,6,0 
449 ' LETTRES PUKES 
430 DATA 32,82. 154. 27,26, 3«, 26. 2,'. 
•*S *8 140.12.12.12.12.28 
460 DATA 12,12.12, 12, 12. 12,12.12,^ 
5-26 26 ■ >; . ■;* 2-;. 26. 26 

470 DATA 172,76.12,12,12. 12.12.76. 

6,11.17,33.97,97,97,97 

490 URTfl 12.12.205,142.140,140.140 

,149, 96, 176, 16. 32, 64. 64, 32. 48 

490 DATA 12.22.35.66. 196. 20U. 206. 2 

24.24.44,13,14.12,12,12.12 

500 DATA 96. 176. 8.0. 0,6,0, 8. 2o, 2,', 

26,26.26,63,91.26 

510 OATH 172,28. 12, 12.8. 16. 160.19*: 

.97.97.97.97.97,226.52,24 

528 DATA 140.148.140.148.12,12.12. 

28 . 48 ■ 48 , 48 , 46 ■ 48 . 49 . 46 . 56 

530 DATA 192,192-192,192,192.1-6.1 

84,48,12.12,12.12,12,28,6.3 

548 DATA 6.0,0,0.0.0,128,8,26,26.^ 

6.26.26.26.26,26 

550 • DATA VRLET 

560 DATA 6.0,0. 1,3, 7. IS. 3.1. 15,235 

,255.255.252.240,194 

570 [iflTA 128.224.240.224, 192, »4,t4 

.32,1,1.2.13.39.85,46,56 

580 DKTfl 192. 64, 192. 128. i. 0.31. 4, 3 

2. 16. 240,64. 192.64. 128.0 

398 DRTR 0,1.2,3.2.15.8.4,32,248,0 

,192,1.3,2,3 

600 OATA 26.116.170,220,176,64,128 

,128,4,2.2,3,7.15,7,1 

61R OATA 67.15,63.255,255.255.240. 

128. 192.248.224, 192, 128. S.e.H) 

620 ' DRTR PEINE 

630 OATA 8.0,1,8.7.3.3,1,4,34,2.1.1 

91.255.252-240.194 

640 DRTR 144,96,224,224.192.64-64, 

64.0.0,84,36.108.56.16,21 

630 DRTA 1,3,6.29.43,85. 174. 88. 2'.. 

80.49- 16.16. 16- 16.16 

£60 DATA 16,16.16. 16. 16.8. M, 0.0. u, 



670 DRTR 8.8,8,8.8-12.10.152.26. 

7,170.212,194,96.192.128 

688 DRTA 168,8,28.54.28.42.8,-5.4 

,2.3.7.7,6.9 

690 DRTA 67,15,63.253,253.232.68 

2, 12B, 192, 192,224. 16. 128.9.0 






■ MORGrt 



708 ' DATA K>] 

719 DATA 0. 16.56.56,56.56.56.56. I* 
2.64 224 179-28,?. 15,4 

720 OATA 32.16.240,132,64-192.224. 
224 , 56 . 36 , 56 . 56 ■ 56 . 56 • 56 . 16 

730 DATA 56,56.56.56. 124. 16. 16. 16. 

144.96,224.224,192,64.64.32 

749 DATA 8.B, 8.62, 28,28. 28.28. 2*. 2 

8.28-26,28,28.29.26 

759 DATA 7,7.3,2.3. 15.8.4 ,32.24b, 2 

24,36.205,135. 2. 3 

768 DATA 28,28-28.28.28.28.8.04.2 

,2.3,7,7.6,9 

770 ' LETTRES INVEPSEES 

780 DATA 56.16,254,254.254.56,36.9 

,56.16.254,234,124,36,16.0 

790 DATA I6.56.I24,254.I24,56.16,o 

,16.36.124.254,254,254,108.0 

800 DATA 126.24.24,24.24.28.24.0,1 

2"5. ! 132 6.68.96,102.60.0 

610 DRTR 60, 102, 96. 56. 96, 96, 6u, 0.1 

20,48,254.30,52-56.48.0 

820 DATA 60,102,96-60.6,70.126.6.6 

8. 192, 102.62.6.102,69,0 

838 ORTA 24,24,24.48,96.98. 126.0 

940 DATA 60,182.102,68,182,102,60. 

0,69. 102,96.124. 102.182,^0,0 

830 DATA 115. 219. 219, 219.219. 21*. 1 

13,0,24,60, 102,102. 1U2. 192. 102. 

860 DRTR 62, 10B. 284,204. 264.101, 6.^ 

.0.206,204. 108.124.204.284.126.6 




1118 DATA 319.25.336.25.375,25,3) 
8.55.426,23,319.25,338.25.319,25,2 
84. 80. 8, 19. 284. 68, 431, 35, 336, 23, 31 
9.70,426,60.319.23.336.25-379,25.3 
38 • 53 . 426 , 23 , 3 1 9 . 25 , 338 , 25 , 426 - 25 , 
379.70.319,23.338.23,379.25.426,80 
.0.19 

1120 OATA 213,60.196,60.213,30,169 
.80.213.53,190.55.213.30.169.30.1* 
8.25.213.25,169.25. 190,25.213-25.1 
69.23 

1138 DRTR 198, 25-213. 25. 0.6. 213. 60 
•0.18.213,68.190,60.213,30,169.70, 
159.23. 169,23,159.23.142.89.0.6 
114? DhTm 190.25.?!?, 25. 19" SO. 16- 
.23.190.80,284,23.233,25.223.23,21 

1130 DATA 319.25,338,25.379.25.426 
,90 

1169 FOR j=1 TO 2 

1170 FOR 1-1 TO 3 READ r.d'SNM 1 
. P. d, 4 NEXT 

1160 RESTORE 1110 

1190 NEXT . 

1200 FOP i-l TO 29 PEAD f> . d SOUND 

l,».<f,4>NEXT 

1210 IF t-1 THEN RESTORE 1150 FOP 
l-l TO 4 READ P. « SOUND l.P.4.4 HE 
XT GOTO 1308 
1228 FOP 1-1 TO 14 BEAD P,d SOUND 



1788 FOP i-l TO 5 

1716 IF C< 1 >«1 THEN c>rtc 1 ,=2+INT 

<13*BND)+<1 + INTC4*PND) '-'IB ELSE 18 

1720 FOR i-l TO 5 IF carter 1 "r»rr 

e.av< 11 THEN 1718 

1738 NEXT J 

1740 IF i-l THEN 1780 

1730 FOP 1-1 TO i-l 

1760 IF cart*' i i-carte-' I • THEN 171 



1770 NEXT i 

1780 PRPEP «1,3 

1790 CLS 01 'GOSUB 2220 GOSUB 2329 



870 REM 

889 FOR l-l TO 4'Sl»lt2* 1 ■ 
64+1) 'NEXT 

890 MODE 1 1 INK 9.1 INK 1 24 
900 LOCATE 2.12 PEN 1' PRINT 
2-VOUS LA PEGLE DU JEU ' a 

919 Ufl-UPP6Mf IHKEV*) 

920 IF wtO-0" AND ..,*- 



930 IF i,i*«"N" THEN 1318 
940 ' REGLE DU JEU 

930 MODE 2 INK 0,1 INK 1.24 
968 *-43 GOSUB 2680 
970 FOB 1=1 TO 4 LOCATE 4(1-2,1 PP 
INT "1 ["LOCATE 4*1-2.1+6 PRI 

NT "1" LOCATE 4*1+1.1+3 PRINT 'i?.! 
f-Yi'NEXT LOCATE 20.10 PRINT " I " 
9B0 FOP 1=1 TO 3 PLOT 32S1+7. 383-1 
6*i DRAUR -31.0 DRAUP 0,112 DPAWB 
36.0DPAUP 9,-15 NEXT PLOT 104.352 
DPAUR 56.9 DRAUP 0.-112 DPAUR -55 
.0 DRAUP 0.111 

S9Z LOCATE 42-6 PRINT 'REGLE DU 
JEU" LOCATE 41.7 PRINT " 

1000 LOCATE 30.8PPINI "L« ■«") con 

U«" 'LOCATE 26,9 PRINT "Possible. 1 
e aolde de depart etant d« 10 ». " 
1010 LOCATE 30.10;PPINT "1- finer 
une somme. inferieure tu sold*."'!. 
OCATE 30.11 PRINT "2- C ENTEP 1, 9 
cartea a'aff ichent." 
1020 PRINT "3- Realiier d#i ^roi.P* 
meriti P«rtlculier» (voir ci-d»»*--"' 
a) •■>! »rr«c4nt l«s c*r- " - " tes 



3." 



1239 FOP i = l TO 14:RERD f.'i SOUND 
1- P. d. 4 NEXT 

1240 BESTOPE 1120 
1250 FOR 1 = 1 TO 14 PERI' P-d WJUND 
l,P,d,4 NEXT 
■2-« PF;TORE 1140 

127B FOP i-l TO 9 BEAD * d iONHD 1 
.P.d-4 NEXT 
1280 IF c«8 THEN t-1 RESTORE 1110 

THEN 90 GOTO 1168 

1290 IF 9=1 THEN 1199 

1300 ' DSBUT DU JEU 

1310 MODE 1 

1320 INK' 0-1 INK 1,0 INK Z. II 'INK 



3.22 

1338 «-22 GOSUB 2888 

1349 *cor«=10 P»r-0 LOCATE 31.22 I 

PINT "SOLDE" LOCATE 34.24 PRINT " 

6 •" 

1330 LOCATE 33,1 PRINT "PARTIES" L 

OCATE 36,3 PRINT P>r 

1360 LOCATE 1 .23 INPUT "M1SE -.1 

i*« IF nise>score OP miae<0 THEN 1 

OCRTE 10.23PRINT SPC-: 15 ) GOTO 136 



1808 


NEXT 1 




1810 
1820 

1838 


FOR tP-1 TO 100- NEXT 








1840 
1830 










CARRE «* 




5 
1870 


P"9 FOP 1=1 TO 4 FOR 


-1+1 TO 


IF v«l.yr( D-J.l.w-J 


THEN P 


1880 






1090 


*** COULEUR *** 




1990 


Coule>jr-0 FOR i=2 TO 5 IF C1N 


Tf»i9r,*<i»)«CINT(»l9I\el 1 1) 










1910 


HEMT 




'. ?:-.' 


tf* SUITE t*r 




Itur 


mon-9 FOP i«l TO 5'M 
1 HMKTi-jwaMV'8 


-ne«+v- 


1940 










1950 




r(3> 






I960 


IF covltLir^ RHD ' e. 


■18 OP 


e.t=93.2) AND r E om=47 OP ;of,=60 ■ T 


HEN «»in««"SUITE COULEUR A 


L'RS" 9 


*n,-500 br«10 GOTO 2960 




1970 


IF co»le»r=4 AND e.t= 








9 GOTO 2860 




1986 


IF e.t-ie THEN (n»in«= 




Mln 


5br-5 GOTO 2060 




1990 


IF coul«ur"4 THEN n) 1 






9»m-7 br-6 GOTO 2060 




2000 


IF p=g THEN mjin«=«"PIEN" 9'in 



2248 IF V*lMM 1 -10 THEN ■,,at = ./p*= 
CHPt'123> '.?l=..ri«=CHP»' 19- . GOSHB 

2360 RETURN 
2238 IF v»\evri 1 .= 11 THEN v)lnrl> 
"V" vt le..r2«-i"HP»' 19" > GOJUB 23*8 
RETURN 

2269 IF v»Itu»Kl>-12 THEN wlw* 
"D" ■v*l*ur2t-CNPt(2H0> GOSi* 23«8 
RETURN 

2270 IF v«UuKl)-13 THEN ujl«urf- 
"P" »Jle.jr2»-CHP»'201 ' GOSUB 2360 
RETUPN 

2280 IF W«t«UrM 1 .-14 THEN if*t«Ur«- 
"1" 'V*l»ur2»=CHR»i 1891 GOS'IR 2360 
RETURN 
2299 



2390 • COINS * -'Ai Ei.ipv - 
2310 ' 

2320 PEN If LOCATE *i . 1 . 1 



< 125 I 



13 PRINT t 



1396 ' CHOI* DES CARTES 
1490 ' 

1410 FOR i-l TO 5 

1428 c#rt#f 1 >-2*INT< 13»RND>*< | + 1N1 

C4WWDJVI0 

1438 IF i-l THEN 1470 

1440 FOR i-l TO 1-1 

1450 IF c*rte(i )-cir-t»f j i THFN 142 



R«242)," 1. C "iCHfi»< 243)1" 3 «t 
C COPY 3. On Ptut In r«PPe-" 
1039 PRINT " l«r. »n cu d'«rr«- 
r, < \-*\<i* de C ";r,HR*240 
HMO PRINT "4- L ENTER 3, 1< 



DESSIN CRBTES 



efface 

oiiP»rn»i">t '. 



.'*ffi- 



1036 PRINT "3- C ENTER 3, 1»* cart 
tS •'•ffacent et C*«t reP-rtl Pou 
r >jm tour "... "-PRINT PRINT " 
GROUFEMENTS r>, GAINS " 
1060 PRINT "* ri#n 



1498 ' 

1300 ' 

1510 FOP 1-1 TO 5 

1329 WINDOW «l. 1*8-7. i*8-1.6, 18 PA 

PER Hi. 3 

1338 CLS Hi ; GOSUB 2226^G0SU8 2328 

1548 NEXT i 

1550 U-3L0CATE u,19 PRINT Po £l i 



EFFACEMENT CARTES 



1070 PRINT "* 1 



1080 PRIN' 



Bornie C 
*** MUSIOUE 1 
) RESTORE 111 



fi>etn= Si9ne ), 



1579 ' 

1390 ' 

1590 FOR l-l TO 5 C I >-0 rtrte. .w' 
l)-carte( i ) NEXT 1 
1600 IF INKEYMJ-0 THEN <.->-l uyu-3 
5 GOSUB 2630 

1610 IF INKEY'8i=0 THEN uu—1 -uuu- 
3 GOSUB 2830 

1620 IF INK-EY'9)=0 THEN x-<o+5' 9 
PAPER tx,0 CLS iy Ciy>-1S0UN[. 1.0 
.3,4, ,,B 

1630 IF INKEYC2J-0 THEN FOB f«l Tu 
5 PRPEP «f,0 CLS *f Clf .'=1 NEXT S 
0<JND 1.0,5.4, ,,8 

1640 IF INKEY'0)-8 THEN i-di+5"* 
C'1>"0 : PAPEP »i-3CLS ttiGOSUB .?22 
GOSUB 2320 

1630 IF INKEY(lB>e THEN LOCATE u< 
19 PPINT" " GOTO 1700 
1668 GOTO 1600 
1679 ' 



2010 IF P-l THEN m.ir,l="l PHlPF" '. 
ain-1 br»2 

2020 IF P-2 THEN n.Jin«-"2 PRIRE'-" 
9aln-2 Br=3 

2830 IF P-3 THEN i»t ir«-"BPFLRH" 91 
1t>-3 br-4 

2040 IF P=4 THEN Mtn**"PUI L" 9;ir> 
-10 br-7 

2656 IF p-v-5 THEN M 1 n»="rAPBF" <M 
in-48 br-6 
2666 FOR 1=1 TO 5 

2670 IF waUuKi j-14 THEN valtuKi 
>-l 9»ln2-9ain «a in2»-nMi>i» br2-br 
GOTO 1938 
2060 NEXT i 

2099 IF 9*in'9ain2 THEN 9«in-94tn£ 
m»i»it=rn»in2* br-br2 

2100 LOCATE 1.23 PRINT 8PW 1? ) ■ LflC 
ATE 1,3 PRINT main* 

2110 *cprr-*cor*+9aifi*r„iif LdCRTE 
29, 24 'PRINT USING"tt(ttllHl#»": = cor = 

2128 9ain-0 9»ln2-0 

2139 P*r-P)r+1 LOCATE 35.1 PPINI "J 

SING"t»«". Par GOSUB 2978 

2148 IF £«>r»»0 THEN LOCRTE 13. 21 

PEN 2 PPINT "** GAME OVER *t" FOP 

1-1 TO 1500 NEXT 9=1 GOTO 2990 

2130 LOCATE 3. 23 PRINT"! EWTER I" 

2160 j«"INVEY« IF ,%■ .CHP»' 13 1 T >"-: 
II 2160 

2170 IF IHKEVV-CHRK 13 • THEN l.OCHT 
E 1.3 PRINT SPC'21 > FOP 1-1 Tu 5 P 
AREP Bl.B'CU Hi NEXT FOR t=l 10 3 
00'NEXT LOCATE 3 23 PPINT SP" I 9 - G 
OTO 1360 

"1 GOTO 2170 



2191 



SIGME CAPTE 

l-IHT' carte' i* 



2330 PLOT 128*1-26.112,0 DRHMR II- 
8 DRAUP 8,11DPAUR -1.0 [.RfllJP -! 
DRRWP -1O.0 PLOT 128*1-24.114 DP 
AWP 5-0 DPAWP 9.5 DPAWP -10 r.RAWR 
0.-4 PLOT 128ti-22.ll6 DRMR l,0i 
DRRWR 0,1 DRANR -1.0 
2340 ' ** CONTOUR ** 
2350 PLOT 128*1-120.128 [-RAHP 9.19 
1-1 DPA1JP 93.0.1 [RRUB 0,-191,1 t'P 
A14R -95,9. I PETUPN 
2369 PEN N 1. 1 LOCATE «i-2.2 PPINT 
Hi. "Jlei.'r* LOCRTE ti,6,2 PPINT »i . 
u*l*.jr» LOCATE 01,8,12 PRINT 01, VI 
l»...r2« LOCRTE »i . 6.13 PRINT tti.yjl 

*'jr2i 

2379 si9n»*=s]91e«'siSf,-' 1 >>> = 19n« 
2«=3i9l*2»''si9nfffi >> 

238? Oil -.I-.jr. 1 ' GOTO 2430.2460. 2 
4?c .V4bp. -■!-.:: ;-480. 2480, 24A0. ^430, 
2480,2620,2669.2700 

2409 ' POSITION DES S1GNES 

2419 ■ 

2428 ' ***** fi? ***** 

2430 LOCATE "1.4.7 PPINT (H,.i9r,el 
IF -/aleurf 1 >=14 THEN RfcTUPN 

2440 IF v«I«ur(l»3 THEN 2480 

2439 ' ***** 2 ***** 

2469 LOCATE »i . 4. 3 PRINT ti.Si9ne« 
LOCATE "1,4,11 PRINT Hi-si^n-J* P 

ETUPH 

2479 ' ***** 4 ***** 

24H LOCATE 1(1,3,3 PRINT KuMSriel 

LOCATE "1.5 3- PPINT ■i.si9n-» IOC 
RTE "1.3.HPRINT »l.*i9ne2« t OCHT 
E #1,3-11 PPINT »i.»i9ne2» IF " 
11KI ><6 THEN RETURN 
2499 IF valeyrf , >>8 THEN 2570 

2599 ' ***** 6 ***** 
l*.ie LOCATE Ki.3-7 PRINT ti.-iSne*. 

LOCATE #1.5.7 PPINT #i, 5 l9n?» 
valevri 1 -6 THEN RETURN 
2529 ' ***** 7 ***** 
253v? LOrfiTE «i .4,5'PRINT tti.si? 

IF vllniKI >-7 THEN RETURN 
2540 ' ***** 8 ***** 

2559 LOCATE »1,4,9'PRIKT «i.si9 
> RETURN 
2369 ' ***** 9 ***** 

2978 li:":ate #1.3,3 print •i.-.i» M a 

LOCATE •i,5,5'PRIMT #i,;i9ne» 
ATE 81,3,9 PRINT 0i,si9n»2«<LDCATE 
#i5.9 PRINT 0i,slewt2tilf Mltur 

■ 1 1-9 THEN RETUPN 

2560 ' m** 10 ***** 

2590 LOCATE »l-4.4 PRINT # 1 ,'i9r,=» 
LOCATE *i-4-10 PPINT *|.si9n«20 P 
ETUPN 

2600 ' ***** VRLET ***** 
2610 ' 

2620 LOCATE #i.2.3 PPINT «i.--i9ne« 

■ CHRB' I47>+CHP«' 148 , +CHP»' 14<>).il* 
no* L'lCRTE #1.3-4 PRINT »i-CHP». 13 
-.rHP*. 151 ^CHPV 152 • 

2639 LiXRTE #1,3,10 PRINT #i.iHRi> 
153>+CHR* 154-rHPV 155 ■ LO>:ATF tti 
-2 11 PRINT Ni - 1 9oe2«.CHR«. 15* >+r 
HP* 157 ..CHP* 158,.jl9.-.e2« 

2640 GO^UP 2749 RETURN 
2?"50 ' ***** f-AME **lll 

2669 LOCATE ti-2.3 PRINT #i ;i<n»» 



2220 vale. 

Ci>10«c«rt«(i>-val«ur>Cl i 

ne'l>'2. 1 THEN z=l ELSE z-^ 
2230 IF ■'alei-r' i ■■ =* THEN ■■ 



7^~ 






"iff <@r- 







an 



SURPRISE 



T Suite de la page 86 

176.114 

1360 ORTR 179.999.999. 62.333, 62, 

330, S3 

1376 DATA 338. 63,334. 64,331.999, 
999. 84 
389 DATA 329. 85.333, 86.334, 86, 



328, 87 

1390 DRTA 328. 87.333.999,999. 

337. 64 

1460 DATA 333.^99.39^. 82.338. 

339.999 

1410 DATA 999. 40.214. 36.212. 



36. 



1420 DATR 211.999,999, 80, 63. 

32, 77 
1430 DATA 65, 32. 83. 85. 82, 

02. 73 
1440 DRTR 83, 69. 13- 86. 79. 

63. 32 
1450 DRTA 65. 32. 80, 

46. 46 
1460 DATA 46. 13, 13. 

69, 84 
1470 DATA 69. 96. 32 

68. 79 
1489 DATA 71, 73. 67 

13. 69 
1499 DATA 84. 32. 66 



76, 85. 

65. 67. 

72, 69. 

73, 69- 



1500 DATA 86, 

79. 85 

1519 DATR 82, 

46- 46 



73, 84. 69- 32- 



1320 DflTR 46, 13, 13, 9, 65, 

79. 33 
1536 DATA 26. 74. 69. 32. 68. 

70, 63 
1340 DftTA 73, 83. 32. 77, 79, 

32, 67 
1350 DATA 72. 73. 71, 76. 79, 

32, 69 
1560 DATA 84, 32, 46. 46, 46, 

92, 70 

1570 DATA 313. 69,312. 66,310, 
306. 40 

299. 37,230. 35. 270. 

250. 41,230, 46,210. 

133. 72,130. 83,150. 

175.100.190.130.245, 

232. 79.239.110.264.1 



1980 
260. 
1590 



236.158 

1630 DATA 251.1 

244,149 

1640 DATA 249. 1 

229.138 

1630 DATA 227, I 

235.280 

1660 DATA 249.; 

272.214 

1670 DATA 280w 

272 . 226 

1699 DATR 260.; 
266,279 

1690 DRTA 275.; 
300,288 

1700 DATA 310,; 
315.236 

1710 DATA 305.; 

999 , 999 

1720 DftTA 4,; 

230,309 



1.253.170,247,151 
1.255. 95.243. 97 
1.228.150,231.170 
), 259. 213, 260. 21 6 
'.272.214,280.226 
J. 260. 253. 262, 260 
?.283.260.266.290 
3.320.261,325,245 
1.295,228.280.226 



1730 [-ATH 224.395-; 

219.303 

1740 DATA 213,310.; 

208,335 

1730 DATA 205. 345, 1 

134,338 

1768 DATA 130,336, 1 

999,339 

1770 DATA 129,342,1 

112,337 

1780 DATA 95,999.5 

49,325 
1790 DATR 40,340, 

67,370 
1609 DATR 85.369, 
113.336 

1810 [>RTfl 117.350. 1 
146.297 

1-320 [-ATA 170.296.1 
999, 



1.393. 217. 29ti. 
3.328.210,33*3, 
7,347,148.: 
3,340,180.999. 
1,347.119.358. 
H.305. 45.315. 
5,355, 33.365. 
5,366. 110.362, 
?. 999. 999. 303, 
3,295. 190, 999_. 



CHATGAROU 



Oil de mechants loutous empechent un genlil matou 
d'agrementer son territoire pyramidal. 



Xavier PELGRIN 



SPECTRUM 




-Mi X»T «Kr 



. .VP!L5Bl5 un 

LES OURRTIERS 
QUE330Y 
22123 YFFINIRC 
11 LET Itinul LET mseo=0 
15 PRINT AT 18,5, FLASH 1; INK 
5, PfiPER 1,"PRTIENTEZ UN IN3TAN 
T! " 

20 go sub eeeo 

25 go SUB 6500 

30 GO SUB 6000 

33 PRUSE 

35 GO SUB 7500 

40 LET ni«l. LET tGO«0 

50 REM CHRROUQRROU 

60 LET i«19: LET : .* 

63 LET vliB: LET V2-0 

6B LET IU--1 LET iOU»l 

66 LET mo-2 LET 1 1 »8 : LET vit 
-3 

67 GO SUB 7000 

66 DIM Hi,;; DIM »1'.3.2j 

70 LET 1(2,1) »8 tat INT IRND»7): 
LET i 13,1) ■10+StINT <RND*5> i LE 

T i (1,1) »ia+a*INT IHN0#3) 

71 FOR «-l TO 3 

72 LET 1 (t,S) "20-* <« ,1) tStINT 
lRND* ii (I ,1) -10) ) 

73 IF RTTR (» It , 1) ,» l« , 2) > <>46 
THEN GO TO 70 

74. LET Sis ■■' »: NEXT I 



77 NEXT h: NEXT g 
80 LET CI-" ": LET dl>" " 
99 DRTR 0,0,0,0,0,60,112,216,0 
.0.252,2,2,3.2,2,255,63,15,16,26 

6 104 9 ' REM B C2 254 ' 25 * ' 258 ' " ' 2e ' 3 

100 REM PROG.PRINCIP. 
120 PRINT RT l,c;" ";BT 1*1, c; 
130 LET I«i+2«IINKEYS» ,, 6" AND I 
<19t -a* <INKEY|."7" RND l>7) 
140 LET C"G+2t [INKEYS""©" RND C 
281 -2» kINKEY»>"5" RND OS) 
150 IF INKEYi.-e 1 ' THEN LET C««" 

-: LET dt- ' 
165 IF 1NKEYM"5" THEN LET CM" 

": LET dl>" 
167 IF SCREE 
EN GO TO 2000 
160 PRINT BT L.CfCtlHT Itl.CJdl 

169 BEEP .02,-B-C; BEEP .03,-10 
#10: BEEP .08,-4+1 

170 IF (C<20-1 OR OL+10) RND I 
<19 THEN PRINT RT I , C i " " J RT 1 + 

i,e; M "ifiT us,c,ci;ht i+3,c;d» 

; LET 1-1+2 

180 IF RND<mO/15 THEN PRINT RT 
I.-1.C+1; INK 3; PAPER 1; ■■«■' 

aO« REM >>S0URI8 

210 FOR m-1 TO 3 

215 if point (s («,ai »e+7,8# taa- 

1(1,1)1-1) THEN GO SUB 500 
217 PRINT RT • (n , D , * (m , 2) ; INK 

Hi Ml.) 

220 NEXT II 

230 LET S0U-I0U+1; IF »0U»4 THE 
N LET SOUal 

235 LET i>3-tOU: IF 1 »0 THEN LE 
T 1-3 

237 IF S (i ,2) <>0 RND RBS is ii , 1 
>-U>J-ni RND RBS It 1 i , 2) -C ) > 10- 
ni THEN GO SUB 700 

240 LET vlii«lU«(ll(tOU,l)>U-( 
f ISO'J , 1) <U > 

268 LET v3>3tlu«l (S (»0U ,2) >C) -( 
t liOU ,8) <C) ) 

260 LET hi;. ■(" 
U <0) ) + ('■ ,T AND IVStl 

370 LET Sl-S (SOU , 1) + 
S (SOU, a) + V8 

274 IP tl>: 
116-12) 

275 IF s8<38-»l OR »2>»1+B OR 1 
1)20 THEN GO TO 310 

376 IF i2)H+8 THEN LET I2.J1+0 

288 FOR t«i TO 3: IF Sl»ilt,l) 
AND S2-1H..2, AND SOUOl THEN GO 

TO 310 

290 NEXT I 

300 PRINT RT S (40U ,1) ,S (SOU ,3) , 
■' " : LET *i*OU,l)=H: LET ft (IOU 
,8) -S3 

310 LET Hat I -.08 

320 IF RNO>ll THEN LET t LUtl 00 

SUB 5000 

330 GO TO 180 

500 REM S0URI5 TOUCHEE 

505 LET tl«t L-.05 

610 IF lu--l THEN GO TO 600 

530 LET »CO«SCO + 10- IF SCOXRftCO 

THEN PRINT PAPER 5, INK li FLR5 
liRI_21,e; " .MEILLEUR SCORE BRT 



RNO iv2*L 

-0) ) 

: LET ta* 

20 THEN LET llaftl-RBS 



535 FOR U-i TO 3: IF S lg ,8) < >0 
THEN GO TO 540 

536 NEXT U 

537 LET ni-mtl: PRINT RT 0,86; 
ni: FOR Z-0 TO nittS STEP 5: LET 
ftCO-SCO+2; BEEP .05, 1/5: PRINT fl 
T 0,11, »C0. NEXT I 

538 IF rU/7«INT (ni/7) THEN FOR 
Z.0 TO nit 100 5TEP 100: LET »C0 

■tC4+I: 6EEP .05,Z/40: PRINT RT 
0,lli ftCO: NEXT Z 

539 00 TO 67 

540 PRINT RT 0,11; ICO 
550 RETURN 

600 REM MEURT 90URIS 

610 LET ICO»»CO-10 

615 LET tl«U-.0B 

630 BEEP i*j-C; BEEP .4,-1: BEE 
P .4,C-l 

630 LET Vlt-Vit-li IF Vit<*0 TH 
EN GO TO 640 

634 FOR V"l TO 3: PRINT RT 3,30 
+3»v," ";BT 4,a0*3*v;" "i NEXT 

635 FOR V»l TO Vit: PRINT RT 3, 
a0+3»v; ink a; 1 ' ",RT 4,30+3tv;" 

: NEXT v 

637 RETURN 

640 PRINT RT 0,0; PRPER Zi INK 
7; " _ VOUS ETE5 MORT. . . 

650 GO SUB 6000 

560 PRUSE 0: CL5 

665 BORDER 0: PAPER 0: INK 5: C 



683 IF SCODICO THEN LET DftCOaft 
co : LET nni -ni 

684 PRINT : PRINT INK 3; FLASH 
(m» co -ft co) ; "MEILLEUR SCORE: ";m»c 
0' n RU NIVEAU: ,, ,l»ni 

665 PRINT : PRINT "VOU UZ-VOUft . 
. .?" 
687 PRINT INK 4;" UlrtJOUtr" 

686 PRINT INK 4;" <a>rtvoir i 
a rtBit" 

669 PRINT INK 4,' 1 (3)«rrtttr 
it Jtu" 

690 PRINT INK 



dir 



(4) s«uvtg«r 



TUI 



595 LET ol-INKEY»: IF 0I<"1" OR 
INKEY|>"4- THEN GO TO 695 

596 LET vin-URL 01 

697 IF vin«l THEN GO SUB 8000 

698 GO TO 40-10*(vin«8) +3960t tW 
in*4) i9959»(vin>3) 

700 REM SAC MANGE 

710 FOR 0-5 TO STEP -1: BEEP 

.04. Ota: PRINT INK ; AT S(l,l>-1 

,» ll,!l," ";AT ft (i ,i) ,»(i ,4) ; " 
: NEXT 
780 LET SC0-1CO-5: PRINT RT 0,1 

l; see 

730 RETURN 
2000 REM BIDULES 

2005 BORDER 1 PAPER 0: INK 7: C 
L5 : FOR U--5 TO 5: BEEP .1,U»U; 

NEXT U 
S010 PRINT AT 0,0, PAPER 1; INK 
5i" Vous vtntz dt hturttr un "" 
; iNyERse i;"i"j inverse b; "" 

"I n ttlfronXtl 14 BtLtdietionl HE, 

8030 PRINT : PRINT INK 6," li mt 
Ltdietlon t»t ttrriblt! uoui t 
it» dtvtnu un fttc di bit I " 

2040 PRINT : PRINT INK 4;" Rami* 
in tous -is ranxonts .ftinsvoui h 
tur ttr tux »ouri» I " 
2043 PRINT : PRINT INK Bi" Lt ni» 
ltdiction prtnd Tin ^utnd vouft * 
-*i un scort turrifttntitn fin s 
0*nt vtiJ i ..." 

2045 PRINT : PRINT INK 3;" UTIL 
I5EZ LE5 TOUCHES 5 fi 8.'' 

2046 GO SUB 6000 

2050 PRPER 6: INK 1: CL5 
2060 FOR t-1 TO Btnii PRINT AT 2 
•INT IRNDliei ,a*INT (14IRNDIJ IN 
K 0;" :, ,RT 8»INT IRNDflO) ,8»INT 

(14»RND) , '■ i NEXT « 
3065 PRINT INK 0,AT 0,0; "+♦+++++ 
♦ ♦*♦ + + + + + + + + + * + ♦ + + + ♦ + + + + + " J RT 21 



. NEXT . 

2980 LET lft-10: LET Cft-15: LET b 

id i0 

2092 PRINT RT l»,C*,- " J RT Lft+1 

iS*i" 

8095 LET i ■-'"- 



2100 REM JEU II 

8106 IF INKEY*)fi"5" AND INKEYK- 

• 6" THEN LET i l-INKEYf. 

3110 LET nd-ls-Mi t« , '6 , 'l -HI-"7" 

): LET Cftd-Cft + ii*-"B"> - li l«"6") 

8119 LET H-RTTR ( Lid , Cftd I +BTTR 

U»d,C»d + l) tATTR (Ud+l,C»d) +RTT 

R (lSd+l,Cid+l) -196 

2120 PRINT RT L*,Clj H ■' ; AT l* + l 

,c»;" ";RT iid.Cftd;" " ; AT L»d+ 

t,c*d;" ■' 

2123 IF sa<0 THEN GO TO 3000 

8186 IF s«-0 THEN GO TO 2150 

2130 FOR U--S TO 8: BEEP ,05,U#iJ 

: NEXT U: LET bid«bid+10 

2140 PRINT AT 21,5, INK 0."bidul. 

t-";bid; IF bid>20«ni THEN LET I 

C0alC0+bid/2: SO SU6 7000: GO TO 

100 
2160 LET (.ft-lftd: LET ct-Cftd 
2200 GO TO 2100 
3000 REM CHOC 

3013 BORDER FOR B»-8 TO 5. BE 
EP .05, .l/ia+.l) : NEXT g 
3015 PRINT INK 0,AT ( Lft+a) * li l«" 
6") tii.ft-1) •li*- ,, 7-l , Cft ;■■+♦", RT L 



GO TO 640 

3023 BORDER 6 

3035 LET i«»(' , 7'- RND t»-"6")+( 

" AND li« Il 7"J*'("B" AND il»"8") 

'■8" RND i|«"5") 

3030 00 TO 2100 

4000 REM SAUUEGARDE 

4010 3P.UE 'CHRT GRROU" LINE 1 

4020 00 TO lffl 

5300 rem aiifilmiiumaff ntff 

5010 LET LU--IU 

5020 RESTORE 7300; FOR Ct-1 TO ■ 

: READ du.hi: BEEP du».15,hi: 

INKEYt""" THEN NEXT n 
5030 FOR r-0 TO 5: BEEP .05,10* 

: PRINT AT l,C, OVER 1; INI 

»";RT l+l,C;"|i": NEXT r 
040 RESTORE 9910 
5050 IF u. ■! THEN RESTORE 9965 
5060 FOR K-0 TO 95: RERD d: POKE 

U5R -f+K ,d 
5085 NEXT k 

5070 PRINT RT l,C,Cf;AT l+l.ejdl 
;AT 5,7, INK (3* (IU--1) +6»(lU-l) 
) , PRPeR 0, " '■, AT 6,7; '■ " 
5075 CIRCLE INK 13» I lu--l) +8» ( lu 
-1) I ;63,186,10 
5390 RETURN 
6000 REM MUSIOUE 

6010 DATA 1,2,1,7,1,9,2,11,1,9,1 
,9,2,4,1,7,1,6,1,4,1,2,1,4,1,8,1 



•f?Ji 



6030 DBTR 1,7,1,6,1,4,1,2,1,4,1, 

6048 DRTR 1,7,1,6,1,4,1,3,1,4,1, 

6,2,7 

6045 Re5T0RE 6000 

6050 FOR x»l TO 42: READ d.h; BE 

EP d*.3,h: IF INKEY«■' , ' , THEN NEX 

T X 

6060 RETURN 

6500 REM TITRE 

6803 BORDER 0: INK 7: PAPER 0: C 

LS 

6510 PRINT AT 3,5; " 

6520 PRINT m RT 4,9; " 

8530 PRINT AT 5,5; " 

6540 PRINT AT 6,8; " 

6550 PRINT RT 7,5; " 

6560 PRINT RT 5,3; INK 5; FLASH 

li "OU LOUP OAROU 77?" 

6570 PRINT RT 10,0; INK 8; "VOUS 

tits It vitux chtl qui dQltvtlU 

tr ftur it bit. Ma is lt> ratssont 

Plus rorts qut vous tl vouftpours 

uivtnilEchappti iturl" 

5580 PRINT INK 3;" Htur tus tmtni 

,voui avtz trois vitslconma tout 

Itt chats.vouft tnavitz ntuf,mai 
s vous ttts vitux mainttnani l ) ,« 
l... dts pouvoiri magiquts ! Ouand 

la lunt tit gait <t jaunt, aion 

vous dtvtntz un tigrt cKasstur 

dt fiu ■ 
6660 RETURN 
7000 REM DES5IN DECOR 
7005 IF ni/3-INT (ni/3) THEN FOR 

g-0 TO 6: BORDER 9: BEEP . 05 , g : 

NEXT g : LET HO-flO+1 
?010 INK 1: PAPER 6: BORDER 6: C 



L.S 



IN 



7323 FOR V-l Ti 
20+3*v, INK 3, 

: NEXT v 
7025 PRINT RT 



,ll.s:o,RT 0,26; 



7030 FOR X-20 TO 6 STEP -3; FOR 

g-aa-x to x+i step a paint rt x 

,y; " ", AT x-l,y, " & j BEEP .05. 

X+V: NEXT <i : NEXT X 

7035 PRINT RT 81,0; INK 1. PAPER 
8 j '•_ DEPLACEHENT5: 5-6-7-8.- 

7040 INK 4: PAPER 
7050 PRINT RT 3,5, "P 
7050 FOR d-4 TO 6 PRINT RT d ,5; 
NEXT_d_ 

. MSI: DRA 
u -4,-4 PLOT 40,104: DRAU 4,4 
PLOT 40,151; DRAU 4,-4: PLOT 87, 
104: DRAU -4,4 INVERSE 
7075 RESTORE 7200: FOR n«l TO 44 
. RERD du,ht. BEEP du*.2,ha: IF 
INKEYf-"" THEN NEXT n 
7080 PRINT RT 5,7, INK 3*3*(lU«l 
) ; " ";RT 6,7; " '■ 

7090 CIRCLE INK 3 +3* I IU - 1 ) , 63 , 12 
8,10 

7093 PAPER 6: INK 
7095 RETURN 

7200 DATA 1,6,1,5.1,6,1,7,8,9.8. 
7,1,5,1,9,1,7,1,7,4,6 
7210 DATA 1,5,1,6,1,5,1.7,2,9,8, 
7,1,5,1,9,1,7,1,7,4,6 
7330 DATA 1,7,1,7,1,7,1,7,2,2,2, 
2, 1,7,1,6,1,4,1, a, 8,0 
7340 DATR 1,5,1,5,1,6,1,7,8,9,8, 
7,1,5,1,9,1,7,1,7,4,6 
7500 REH REGLE DU JEU 
7520 CL5 : PRINT " DEPLACEMENT ftU 
r la pyratnldt: ", RAPE 

R 1, "5-6-7-8" 
7530 PAINT INK 5;" VOUft POUVtZ 
arrtttr un air tnprtfttam unt i 
oucht . '■ 

7540 PRINT "Pour attraptr itft so 
urtft.piactz vous tur itur tmpitc 
tmtnt ." 

7660 PRINT INK 6;" Si VOUS tVtS 
trop loin das sou-r is , 1 1 it* mang 
era It bit . (-5 pis " 
7570 PRINT INK 3: "VOUft ChangtZ d 
t nivejij quand ittiroit souris o 
nt tit MngtM. INK 8;" fltltnt 
ion aux bidultt qui vout tnvoitn 
l dans un auirt univtrs!" 
7575 PRINT INK 6," BIDULE-" 
; INK 3, PAPER 1; "8" 
7560 PRINT INK 4," AU dtparl,v 
ous avtz la rormt '■■ , Chai"",aiors 

,ati«ntioni Lt contact avtc u 

nt touris tsi loruuti vout n't 
itt pat LIOni"^ tiit ti|i/ __,_,, 

?ft83 P"RlNT : PRINT INK 3; FLASH 
li ;; BONNE CHANCE I 

INK 6, 
PAUSE t 
7900 RETURN 
6000 REM INIT.CAR. 
6010 RESTORE 9910: FOR d-USR 

TO USR "U"+7: RERD fi POKE d 

NEXT d 
8030 RETURN 
9000 REM CRR.GRRPH. 
9799 REM 

9900 REM >LUNE OEFAVOARBLE 
9910 DATA 0,0,63,64.64,64,64,64, 
3.0,0,0,0,9,15,27, 127,127,127.63 
,56,40,36,22,255,252,240,240,88, 
76,70,96: REM CI 

9920 DATA 0,0,0,0,0,60,112,216,0 
,0,252,2,3,3,2,3,255,63, 15,15,25 
,50,96,6,254,254,254,252,26,20,3 
6,104: REM C2 

9933 DATA 0,0,0,7,0,6,0,1,0,0.0, 
224,0,96,0, 126.3,0,7,8,0,0,0,0,6 
4,0,334,16,0,0,0,0: REM L8 
9935 DATR 0,31,32,64,143,159,355 
,63,0,24,168,60,149,853,384,848: 

REM 61 
9940 DATA 0,24,21,60,169,835,7,3 
1,0,246,4,8.226,241,353,240; ** 

52 

9950 DATA 0,7,8,6,1,1,2,12,0,240 
,20,40,240,64,32,16,16,44,42,44, 
42,44,16,15,4,180, 154, 180. 164,24 
4,12,243 

9963 DRTR 3.0,60,126,126,60,0 
9965 REM >LUNE FAVORABLE 
9970 DATA 0,0,0,46,72,140,140,12 
8,0,0,0,0,0,120,232,250, 129,266, 
63,63,63,56.72. 108,284,250,248,2 
54,240,112,72,102: REM F8 
9950 DATA 0,0,0,0,0,30,23,95,0., 
,0,12,16,49.49, 1,127,93,31, 127, 1 
5,14, IB, 102,129,255,253,253,252, 
25,18,54: REM Fl 

2990 DATA 0,0,0,14,17,4.4,0,0.0, 
0,112,136,33,38,0,1,0,8,4,3.0,0, 
0,128,0, 16,32, 193, 0,0, 0;REM LI • 



POKER 



iSuite de la page 87 

iCHR«< 15?>*CHPt' 16B'+rHP»' 16] ),si^ 
n»« LOCATE ai.2.4 PPIMT ti -CHPt- US 
2i.CHP«'!631*CHP«' 111 :-.rHB'»< 152 i L 
OCHTE Hi, 2, 3 PPIMT Hi ,CHRI> 164 ) LO 
CRTE •!?.« PRINT tiCHP«'1651 
i:e?n l.nrflTE 11,6.8 PPINT Ni .CHPS' ] 
fe i LOCATE *i. 6.? PRINT tti ,CHP«' 16 
?< LOCATE ai.3,10 PPINT ■l,CWKt8 
-', >+CHP*' 1?4 ,*CHPf \sa ,+i-HP*'- lr?', L 
OCflTE #i.2,HPRI»T »i,5i9r.^«.rMR 
•( 170 "CHPS' 171 •+CHPI'! |72>i»t9nt2f 
•.:.n G05UB 2740 RETURN 
2690 ' ** PHI t« 
2700 :C.rRTE 11,2.3 PRINT Ht.t-iSM* 

• CHPI' 159^+CHP«' 16«)-CHP«' 178'i3i9 

',*« LOCATE ti»2,4>PRlHT I1.CHRWJ7 

? -rup%. i^0.*rMp»( 174 >*c MPS' 175 1 L 

QCflTE li.2.5 PPINT Hi .CMPt' !76'nLri 
CflTE »i. 2, 6 PRINT tljCHRKlT?) 

2710 LOCATE ti, 6,8 PRINT ai.CMRXl 



AMSTRAST 



79?L0CATE *i. 6. 9 PRINT »i,CHR»'18 
B)i LOCATE #i,3.l0^PRlNT »i.CHP«fi8 
1 )»CHR«( 192)+CHR»' 155)*CHR»''193) L 
OCATE »i,2,ll-PRINT «i , Bi9n»2». CHR 
•< 1B4 HCHRM 171 )+CHR«r 172 )tti«ntM 

2720 GOSUB 2740 PETURM 

2730 ' ** CORPS V D R ** 

2740 PLOT 126*1-70.255.1 [>RAWP 13, 

-3'DPRNR 7,-7 DRAUR -58,-50 DPAMR 

4.-4PL0TR -4,4'[1RRUR -12,;? fPAUR 

0,17 DRAWP 16-16 DPAWR 10,0 PRAWR 

6-61PRAUR 7,0 DPAWR 3,6 
2750 PLOTR -20.-13 ORAUP -8.-8 DRA 
UP B, -6 PLOTR 2.0iDR«UR 0,7 PLOTP 
2,2'DRAUR 0,-10 PLOTR -6.2 DPtWR 2 
3.-10:PLOTR 11,7 PRANP 0,15 
2760 FLOT 129*1-75. 176 DRAUP -13. 5 

DPflUR -7.7 [>RAUP 5(3,5? [>RAHP -4.4 

PLOTR 4,-4'OWWB 12.-29 DRAUP 0.- 
17'WMHR -16.-16 PRAUR -10.8^DRANP 

-6.6 DRflUR -7.0 CPAUR -3.-6 
3770 PLGTP 20. li MMR B,8 PPflWP i 

6 ! PL0TR -20 PPAWP 0.-7 PLOTR -2 

-2 DPAUP 0.18 PLOTP 6.-2 MM -2 

3.10PLOTP -H.-7 DRRMR -15 PLOT 

128*1-97,191 -DPAUP 49.49 
2780 RETURN 



2790 ' ** ECP1TURE POKER ** 

2800 PEN 3 LOCATE x.l'PPINT CHR»' I 

271+CHRJU28)." ",CKPI< 129. LOCATE 

x,2 PRINT CHR«<n0)tCHP«(131 .*CHR 
*' 1 It .+CHR«f 133HCHR«d34 >+CKf»' ■ 
5)+CHRt< 136->*CHRtU371 
2B10 LOCATE «. 3 PRINT CHPV 138 >*CH 
Rt( 139:"CHR«' 140HCHP* 141 i*Zne»i | 
42)*CHPt( 143>+CHR«' 144)*CHRt( 145 ■ 
LOCATE y. 4 PRINT CHR»M46 VRETURN 
2820 ' ** PEPL. CUP5EUR t* 
2830 IF ii=u./i.i THEN SOUKf. 1.190.3.6 

RETURN 
2840 FOR x«l TO 8 -u.=u+uu = LOCATE u . 
19'PRINT Posit FOR t-l TO 20-NEXT 
NEXT x 

2850 SOUND [, 299.10, 3'SOUNO 1,142, 
15,4 SOUND 1,201.22,5 RETURN 
2860 ' ***** SONS ***** 
2870 ON br GOTO 2880. 2996,2890 .29* 
0. 2920 . 2920 , 2940 , 2940 , 2968 . 2=>60 
2880 EHT 15.0,1.8B.5,2SOUND 1.37 
9,100.7. .[RETURN 
2690 SOUND 1.119.28.5 SOUND l.ct,4 
SOUND 1. 119. 15, 5 SOUND 1,69,38,70 
F br=2 THEN RETURN 

_:•..'■.' ■ ■:■.- i -i . iv. v :■: '!)[■ : ■■-•..;■ 
7 IF br-3 THEN RETURN 



2910 ENT 2,28,-1,1,20, 1.1 'SOUND 1 ■ 
60,35.7. .2 RETURN 
2920 SOUND 1.119,20,5 SOUND 1.95.2 
0,5 SOUND 1-80,20,5 SOUND 1,69,25. 
F' SOUND 1,0, 5 SOUND 1.71.20.6 -.LH.HI I 
D 1.60.30,7 IF br»5 THEN RETURN 
2938 SOUND 1 ,60. 35, 7. .2 'RETURN 
g94Q sound I, 95,28,3. SOUND 1.71,35 

.7 FOR i«l TO 6' SOUND 1.^.13.', i. i 
'.IND l.O, 3^ NEXT SOUND 1 . 1 13. 2« - =1 ■ ■-" 
IJNO 1.95,20.5 SOUNf- 1.71. 35. 7 IF i ; . 
r-7 THEN RETURN 

2958 SCTJND 1,0.4 SOUND 1.71,20,5 S 
OUND 1,95.20,5 SOUND 1,0,4S0UND 1 
■95,20.5 SOUND 1.113,20,5 SOUND 1. 
0.4 SOUND 1. 113. 20. 5 SOUND 1,142.2 

B.3 RETURN 

2960 SOUND 1.159.25.7 SOUND 1.158, 

30.7 SOUND 1.0. 1l) sound l iw.=-;,- 
SOUND 1.179.25.7 SOUND 1,159,25,7 
SOUND 1.95.35,7 SOUND I, 8,5 SOUND 
1,95,25,7 SOUND 1,0, 5. SOUND 1.119 

.30.7 IF br=9 THEN RETURN 

2970 ENT 3.10.3.2.10.-3,2, 10. 3. ?-l 

9,-3,2. IB.3,2 FOR i = l TO .1 1 SOUND 1 

■119,85.7. .3 NEXT RETURN 

2999 ' CAHE OVER 

2998 SOUND 1.758.60.6 SOUND 1,B,S 



SOUND I. 738, 50. 6. SOUND 1,0.3 

3008 SOUND 1,758. 20. 6 'SOUND 1,( 

SOUND 1,756.48,6 SOUHD 1.0.13 

3810 SOUND 1,638,40,6 SOUND 1.67.;, 

30.6SOUND 1.758.30.6 SOUND 1.0,1 

3820 SOUND 1.758,20,6 StUWD L0.S< 

SOUND 1,759.30,6 

3030 SOUND 1,0.3 SOUND 1, 851. 38, i 

SOUND 1 .758.50,6 

3B40 PEN 3F0R i=l TO 2080 NEXT r 

S 

3050 LOCATE 6-3 PRINT ■■yniiLFI-'.'OlK 

REJOUER '0 M N^ T" 
3060 »«"UPPER<< INKEY») 
3078 IF A«<>-N" 8MD R»<>"0" THEN 5 
950 

3089 IF A»="N" THEN CI.S LOCATE 7.1 
2 PRINT "A UNE PPOCHAINE PARTIE... 
"FOR t»I TO 1080 NEXT GOTO 9S0 
3098 LOCATE I 10 PRINT "AVEr ON i,f 
NS flFFICHAGE DE LA REGLE" LOCATE 1 
5,12 PRINT "'0 ov N> f 
3100 b»"i.'PPER*' INKEV«) 
3110 IF bt'VO" AND B»""N" THEN 3 
090 
3120 IF bi-"N"THEH 1318 FI.SF 9S0# 



ROGER LE MACON 



SPECTRUM 



~ PftK 



Un macon, sa vie, son oeuvre. ses deboires... 

Franck DIETRICH 



Mode d'emploi : 

Les regies sont incluses 



1 LET hsc 

[fincf. 37 

76015 PARIS 

2 BORDER 8 PAPER 8 
' 6, INK 1] " 





6 PRINT AT 19,6, *n> o, », r 

r«gc| oietrich",at 30,9;at ai,g 

; INK 2, "Q MR I 1965" 

9 PAUSE 399 SEEP .3,16 
10 FOR jM TO 12; READ " " 
i »B TO 7; READ • POKE " 
,«: NEXT i ! NEXT 

13 DATA " 
6.6,265 

14 DATA 



IB DATA 
6,4 

16 DATA ' 
4,24,24 

18 DATA ' 



■ I FOR 

USR aa>i 

7266 ' 64 , 64 , 266 , 366 , 
.0,6,92,43,0,66,36, 
, 0. 16, 86,84, 16,66,3 

,24,24,368,366,24,2 



,0,0,136,192,24,0, 

30 CLS : PRINT AT 0,6, PAPER 2 
; INK 6, "ROGER LE MACON" 

31 INK 8: PRINT AT 2,0,"RO9ir 
doit construirt ton mr d t br I out 
1 "; INK 2, PAPER 6, - g g ' 

33 PRINT AT *,0;"aaTsTl III do 
it pas hturler son but ni t aur 

d'tnetinlt": PRINT AT 6.8. ■ II p 

tut raaaaser dta sacs de " ,AT 7 

.8, ■ciiini " ; INK l;"»",AT 8,0i 

INK 6i"ainai qui d*t truants " 

, INK 6, B y" 

RINT AT 10, O; "Roger n'a au 

..is plus una a *5aoa points 

. PRINT AT I3,0;"8onnt chtnct 

U";RT 17,lO;"Unt togcht t.v.p": 
PAUSE 8 SEEP .3,16 

34 LET V-3: LET tc-C LET hx -0 
26 CLS : LET X-18: LET u-18: L 

E T xdir»0: LET ydir«-l; LET p»0: 
LET v-V-1; LET tie 1 '**! PRINT AT 
0,8, INK 3,-ROQER LE MACON": FO 

R i»l TO V; PRINT AT 0,0*1; INK 

7,ti;: NEXT i: PRINT AT 21,16; T 

• eorv 






THEN 00 
THEN CO 



■*Ll I I 

33 PRIN 
a S vits 



. ' OR r|-"0 
SU6 330 

33 IF rt»"P" OR ri«"P 
SUe 230 

34 LET »«ATTA (U *Wd i f ,X +Xd I r ) 
38 IF ft -6 THEN 90 TO 39 

38 IF *■! TMEN GO 8UB 240 
37 IF ■ -* THEN CO SUB 350 
36 IF a=5 THEN GO SU6 346 

39 IF ft. 50 THEN GO TO 380 

40 PRINT AT y,*., INK 3; PAPER 
6, "fi"; . LET x.x+xdir: LET u..u+ud 

41 PRINT AT V.,x; INK 7;tf 

43 LET p-p + l. LET suic.l IF 
P-6 THEN GO SUB 300 

43 IF Sl>. 45000 RND S G < "46000 
AND hx-0 THEN GO SUB 400 

44 PRINT AT 31,1; INK 7;"SC0rt 
: ";RT 21,10,SC 

99 BEEP .009,2 

109 GO TO 26 

200 LET ydir»-l: LET xdif-O: RE 
TURN 

310 LET Ujtftr»i! LET Xdtr.O; RET 



RNDI301 +1: LET r 
t) »7 TMEN GO TO 



303 LET t" 
-INT CRND416 

304 IF RTTR 
303 

305 IF q.l THEN PRINT AT r . t 
NK 1,"»-: BEEP .1,10: LET p .0 
ETUAN 

306 IF 4*2 THEN PRINT AT r , t 
NK 4,"-r": BEEP .1,30: LET P -0 
ETURN 

307 IF q.3 THEN PRINT AT r , t 
NK 6, ■'-■': BEEP .1,16- LET P >0 
ETURN 

40T ■ 

exT 

RETURN 
600 RES" . 
RERD bl.bS 



00 



600 RESTORE 601 
' " ,b3; BEEP 
607 



NEXT 

FOR 



, .3,10, 
,10, ■ 




339 LET 

239 LET 



.w,v, io.c.o, *»»,«,« 
. ,66,354,99, ill, 111, 
99 , 126 , 63, "g " , 0,0 , , 139 . 196 , 126 , 
0.0, ™h ". 188, 96, 84, 7,1, 8,0, 8, "i ". 
1,6,24,224,126,8,0,0," j",0. a 3,2 



_, PAPER 
;hi 1 ,31; "~" 
27 PRINT 
7,tf 

38 LET r««INKEYB 

39 IF r»»"i" OR r! 
USE 

ZZ If r>»"q" or fi«"0" 
SUB 300 
31 IF ro»"a" OR r|»"A" THEN 00 



PAPER 0; INK 



THEN PA 
THEN 00 



1; LET udi 
RETURN 
Xdir-l: LET ydi r 
*•■ s : RETURN 
340 LET s esc + 1000 BFFP 
BEEP .23,15: ftCTUAN 
248 LET SC-SC+1600 BEEP 
BEEP .03,10: RETURN 
360 LET ic-SC+600 BEEP 
CEP .2,10: RETURN 

360 PRINT AT y.x; INK 1 
EP .3,3 BEEP .6,3: BEEP 
EEP .8,3 

361 IF V«0 THEN 00 TO 500 
262 GO TO 28 

300 LET q-INT (RND«3) *1 



0: LE 



, . ■-. , j. <- .....«, . = IV, i3.1» . » . o 

603 INK 2 PRINT AT 10,9, BRIGH 
T 1; INUERSE li'FIN DC PARTIE" : 
INVERSE BRIGHT 0: PAUSE 200 

803 CLS . PRINT AT 11,9; "UOTRE 
SCOAE . ".AT 13.9.SC: IF tOhSC T 
MEN LET hSC»SC 

804 PRINT AT 13 , 1 1, "RECORD : " , P 
~ I4,9;hsc: INPUT "una »'j* t ,-a par 



THEN 00 TO 24 
TO 2 STEP 



xi: 



lit 

see if 4S-o 

506 STOP 

807 FOR i-U-L _ 

508 PRINT AT i+l,x," " I PRINT 
AT i,x;"^^"'; PAUSE 2: PRINT AT 
i,x; "-+-". PAUSE 2: PRINT AT 

x;",>K": PAUSE 3 

509 NEXT I 
810 RETURN 




<£S> 




SPECTRUM-PAINT 



SPECTRUM 



De gribouillis douleux en oeuvres maitresses, faites 
participer voire spectrum a vos delires artisliques. 

Michel SEILLIER 

Mode d'emplo: ; 

tape? * sauvagariJeT \b HsilrKj i . Tapuz ih nsiirig 2 at apres Isnce- 
moot. entraz les codes MACHINE du listing 3. Ces demlers seront 
sauveganfes aulomabquefnertt a la suite du listing 1. 
O programme en langage MACHINE comprend 1851 octets im- 
piantes a partir de I adresse 56000. Apres lancement, le clignote- 
ment de "5* au bas de lecran Indique la fonclion "DESSIN". Le 
point courant ciignotant se trouve aux coordonnees 1,1. Son depla- 
osment dans les 8 directions, s'etfectue a I'aide des touches 5. 6, 7 
et B. L'appui simuttane sur deux touches, cermet les deplacements 
en dlagonale. 

FONCTIONS : le changement de fonction s'etfectue par appui sur 
"0". La lettre "D" ne clignote plus, tapez akxs la lettre representant 
la fonction desiree a ['exception des fonctions rectangle, trait, cercle 
et rempiissage. Pour la plupart des fonctions, le message "OK ?" 
apparah, repondez oui par "0*. 

A, arret : retour au BASIC avec le message d'erreur "program fini- 
shed-. 

D, dessin : deplacement du point a I'aide des touches 5, 6, 7, 6. 

E. encre : change la couleur de I'encre de tout lecran. Apres 
"OK T, apparalssent les chiffres 01234567. Choisir le chrffre corres- 
pondant a la couleur desiree 

G, gomme : permet de deplacer le point sans laisser de trace, ou 
d'effacer ce qui se trouve sur son passage. 
I, Impression : copie d'ecran sur imprimante. 



053 034 255 
205 040 045 
040 045 058 
110 032 009 
255 060 024 
085 255 061 
036 056 177 
040 005 205 
040 045 175 
036 175 305 
253 303 071 
219 024 003 
036 201 237 
034 056 177 
040 216 205 
001 024 001 
017 000 247 
BBS 167 040 
221 054 001 
221 054 012 
117 013 231 
024 005 063 
211 254 253 
21? 175 253 
053 0OS 092 
253 203 071 

024 002 006 

25 3 016 249 
0^0 071 073 
030 032 033 
033 001 132 
126 153 176 
032 24S 201 
221 156 254 



M. menu : rappel des fonctions (ecran provisotrement slocke a partir 

de 58450) 

C. chargement ; chargement d'un ecran sauvegarde sur cassette. 

S. sauvegarde : sauvegarde dun ecran sur cassette. 

N, nertoyage : nettoie I ecran et le point courant se retrouve en 1,1. 

P, papier : rrodifie la couleur du papier de la meme (aeon que pour 

r encre. 

X, coordonnees ; affiche \es coordonnees du point courant. 

Z, rappel ie ecran : rappeie un ecran stocke a partir de 58450, ou 

le demier ecran realise avant i'utiiisation de "M". 

O, cercle I trace un cercle dont le centre est le demier point obtenu 

par *D* et rextremite du rayon, le demier point obtenu part *G". 

Example : faites un point avec "D", tapez "0", tapez "G" et deplacez 

le point de la longueur du rayon desire. Tapez "0' et enfln "C". SI le 

cercle ne peut-etra trace en raiaon de la proximite des bords, le 

point courant reste sous la fonction "G". Rapprochez-le du centre 

puis retapez "0" puis "C". Repondez "0" comme reponse affirmative 

a la question 'REMPLISSAGE'. 

T, trait : mise en oeuvre idenlique. I'ordinateur trace un trait entre le 

demier point '0* et le demier point "G". 

R. rectangle : idem, trace un rectangle dont la dlagonale joint les 

deux points predtes. 

F rempiissage : rempiissage d'une courbe fermee en mettant le 

point a I'lnterieur de celle-ci par la fonction "G". Attention a blen 

refermer la courbe apres le passage du point. 



120 REM 

130 REM 

140 FOR N-56000 TO 57653 

150 INPUT A 

160 POKE N,A 

170 NEXT N 

180 SAUE "SP'XODE 56000,57652 



CODE MACHINE 



056 034. 

107 013 

002 134 

035 219 

205 136 

119 337 

143 092 

224 205 

254 255 

064 017 

176 201 

024 242 

201 033 

175 255 

201 05-5 

c^- oc-r- 

060 024 



255 175 311 

303 046 222 

096 050 129 

001 001 034 

033 198 090 

086 255 133 

050 139 092 

013 235 136 

215 034 346 

238 001 000 

083 236 017 

040 045 239 

000 034 064 

176 093 205 

092 253 303 

028 319 058 

205 040 045 



197 

254 000 033 

034 094 355 

042 0.34 255 

Mi 255 229 

225 124 254 

000 032 016 

254 000 032 

|S9 30 001 

00L 032 015 

254 000 040 



£>0* 
064 
040 040 122 254 
305 003 221 166 



024 



167 



084 355 175 
036 175 306 
353 303 071 
219 058 065 
040 0*5 056 
255 205 163 
303 071 116 
024 003 205 
045 205 163 
058 178 093 
005 205 038 
045 205 183 
255 205 229 
303 071 118 
024 314 063 
116 092 001 
235 058 116 
054 000 003 
054 011 000 

000 064 331 
205 097 007 
160 006 175 
134 195 336 
110 040 249 

001 174 301 
004 006 033 
355 013 033 
067 068 069 
077 078 079 

090 033 000 

091 085 255 
011 120 177 
255 205 003 
001 255 255 
003 321 166 
034 355 044 
017 000 0OB 
084 255 042 
221 182 119 
044 123 254 
003 221 166 
084 355 036 
355 123 254 
003 331 166 
000 024 003 
124 254 000 
032 016 037 
000 032 007 



205 
032 
0*0 
331 



025 
03S 
050 
035 
062 
075 
053 
188 
055 
143 
050 
004 
123 
125 
024 
062 
056 
025 
013 
056 
062 



351 

3 A3 

sac 

205 
062 



255 
033 
221 
0*2 
0*5 
254 
062 
201 
■71 
193 
249 
214 
136 
022 




245 

019 
063 
003 



022 001 122 
064 255 037 

000 040 002 
125 25* 000 
255 203 003 
129 225 03* 

033 177 189 
329 193 305 

001 015 016 
001 220 25* 

046 245 058 
353 303 057 
001 220 033 
016 190 040 

034 334 033 
095 303 035 
233 042 000 

047 303 047 
193 14* 850 

033 201 090 
071 323 237 
084 355 205 
337 091 084 
186 040 004 

034 009 122 
024 001 1*6 
135 187 040 
175 034 010 
346 024 002 
205 173 222 
205 217 013 
060 354 091 
195 090 006 
001 305 217 
341 060 334 
090 006 007 
016 252 201 
218 082 069 
083 065 071 
090 062 014 

023 001 205 
042 043 042 
042 255 024 
202 226 218 
333 024 220 
001 205 231 
255 033 238 
305 33* 221 



176 

.. a s 

025 
040 
053 
035 

•" : 
"■ 
v)Av 
■'• . 
040 

. I 

S?j 

013 
092 
254 

062 

;.! - 5 
I 

012 

I 
2 1 4 

■ 
015 

092 

208 
IS ■■ 

. . . 

3-i 

108 
033 

ail 



201 305 0*8 
211 231 301 
130 305 0*0 
056 193 121 
00* 329 015 
313 045 050 
337 075 084 
063 175 1*4 
092 18* 048 
084 255 205 
205 0*0 045 
045 205 045 
001 354 247 
003 034 003 
339 337 130 
040 03* 254 
0*0 0*6 25* 
0*0 059 234 
0*0 073 334 

202 037 331 
034 008 237 
184 200 175 
237 076 135 
125 092 063 
005 18* 300 
092 02* 008 
013 IBS 300 
024 020 337 
337 075 135 
200 062 255 
123 092 353 
253 203 087 
075 125 092 
087 150 034 
337 075 126 

203 087 214 
125 092 205 
090 205 048 
013 195 191 
048 223 032 
195 O90 205 
095 307 255 
222 058 087 
205 020 321 



KNOCK-OUT 



Vous aimez la castagne ? Voici justement dix adversai- 
res qui sont inpatients de se mesurer a vous. 

Cyril CHASTAING 

Mode d'emptol : 

Les regies percutantes sont incluses. Si vous possedez un SPEC- 
TRUM antique, modiliez ainsi les lignes suivantes : 
445 : rem place z 253 par 1 89 
447 : remplacez 254 par 190 
500 : remplacez 239 par 1 75 
510 : remplacez 251 par 187 



SPECTRUM^^m 





KNOCK-OUT ) 
CHRSTAING CYRIL 
ZX SPECTRUM 



A PS" " 

2 rIm - 

3 REM - 

4 REM - 

6 REM - 

6 REM - 

7 REM - 1988 

8 REM - 

10 rem 

is let s1*0: let *3>»1 

14 GO SUB 9638 

15 LET 1 1-0: LET ii=il 

17 GO SUB 7 

19 LET ,-0«nd»l 

20 GO SUB 9500 
S2 GO SUB 5000 
30 GO SUB 9580 

62 PRINT AT 17, Si round 

63 BEEP .25.0 BEEP .38,0 
65 LET y-2: LET X-7: LET ' 



2030 if r-g+i tmen let ts-ts+i 

BEEP .84, 0; PRINT RT 6,36, S3 

2036 IF S3-M THEN GO TO 6600 

2043 RETURN 

S100 PRINT AT f +3,9-1, •■•—'■ : BEEP 

.1,30 

3110 PRINT RT f ♦3,9-1;" #•' 

3130 IF r«y-i THEN Let »3>»3*1 

BEEP .04,0: PRINT RT 8,S8;»3 

2136 IF i2.ll THEN GO TO 6S00 

31*0 RETURN 

3000 PRINT RT yl.xl," ",RT yl + 1 
,xi; '■ ";AT «l+3,:'* ■ 

3010 FOR r "" 



!■« 



-19 TO 13 STEP -1: LET 

PRPE 

I PRP 

?' i RT 

l*3,Xl*3 



yi + 

, INK 2, "7\ PRPER L . 
2, INK 6, -,r. PRPER 6 
INK 



7034 NEXT X 

7038 NEXT n 

7040 PRU5E BEEP .09,13 

7042 IF ai-1 THEN GO TO 7522 

7045 INPUT t IF LEN C « > 6 TMEN 

GO TO 7045 

7300 CL3 

7515 LET villi-" UOUS vovla 

1 davanir 

7816 LET yt<3)-" Un ChtftPiO 

n da boxa, 

-" Sam bougar dt 

RLOrft, tnt 

RPPUYER 5 



7817 LET Uf (31 • 
voire fautauil " 

7818 LET U ■(«)■" 



LET f=17: 
LET I* -3 



LET rim 



PER 6 



70 LET 

f LET 91 

90 LIT 

95 LET l _ 

100 PRINT RT yl.xl, " ",RT yl + 1 

,xI7" ".RT yl+S-Xli" ■'; INK a;fl 

T v,x, "■•'■, PAPER 0.RT y + l,x;".." 

. PRPER 6;RT y*3,x; "■•": LET u. 1 ■ 

y i20 PRINT RT fl-Oli" "jRT fi + 1 

- ".rt ri*a,9i; " ,RT r ,9 
PRPER 7,RT f ♦l.g + l; ",."; P 
RPER"6,RT F+3, g, "(•": LET fl-f 
LET gl-g 

130 LCT lS-tS-3: IF tS-0 THEN L 
ET l»ml»-l: LET ti«60: IF t»m-l 
THEN GO TO 8500 

150 PRINT RT 17,87; tit,": "i ("B 
AND IS<10> . IS 

420 REM 

425 REM TEST OU CLRUIER 

427 REM 

429 REM TOUCHES ET P 

430 REM 

448 IF IN 8734Sml69 THEN GO SUB 
1000 

447 IF IN 57343.130 THEN GO 5UB 
1100 

450 IF 9=xt-l THEN IF RND>S* THE 
N GO SUB 2000 
455 REM 
457 REH TEST OeS TOUCMES OU CUR 

"-SK6 „*« 

See LET y-ytdN 61*30-178 AND V 
<!"•)-. IN 61438 = 183 RND 'j ■ 2 > 

51-3 LE T .-X+IIN 61436 = 187 RND x 
(221-IIN 63496=175 RND * > 7 ) 

3S0 LET ..r+INT (RND»2.S) -INT I 
RND*2.5) + ir tul - ir )yj 

553 IF I ,2 THEN LET f -2 

555 IF f.17 THEN LET r-17 

860 LET g-g*INT IRND*3 . 51 -INT 1 
RND. 2. 5 ' + (9 <X+3) - (9 >X*2) 

563 IF g<x + l THEN LET g=xtl 

565 IF g>33 THEN LET g«33 

870 IF NOT t THEN IF x>20 TMEN 
LET ««1 

560 IF i THEN LET t-C-lf-1 RND 
x<20J+l: IF 5 = 10 THEN GO SUB 300 


690 BEEP .01,-30 

700 GO TO 100 

900 REM 

910 REM AFFICHAGE DE5 PO INGS 

915 REM 

920 REM EN CAS DE TIR 

925 REM 
1000 PRINT INK 2,RT U , X + 1 , '■■*" 
BEEP .1,20 

1010 PRINT INK S;flT y,X + l,"*J " 
1050 IF ym'+l RNO X-8-1 THEN LET 

Sl»Sltl BEEP .04,0: PRINT AT 8 

,a;si 

1030 IF SlakS THEN GO TO 6000 
1090 RETURN 

1100 PRINT INK 2;RT y +2 , X +1, "*■■" 
. BEEP .1,20 

1110 PRINT INK 2;RT V+2,X*1;"-J " 
1120 IF ymf-1 ANO X«g-1 THEN LET 
Sl-sl + 1: BEEP .04,0: PRINT RT 6 
,3, tl 

1130 IF S1-K2 THEN GO TO 5000 
1190 RETURN 
1200 REM 

1205 REM RFFICHRGE DES POINGS 
1207 REM DU JOUEUR ROUERSE 
1310 REM 

3000 IF fvj THEN GO TO 3100 
2010 PRINT RT f ,g-l, •■#■•'. BEEP 
1,30 
2020 PRINT RT f,9-l;" •" 



; RT y 1 ♦ 



»!£ 

3022 BEEP 

30=5 NEXT * 

303B PRINT 

l,xl+2;" "; 

3040 LET a- 

3045 REM 

3050 REM RFFICHRGE OU JOUEUR 

3055 REM HIS K.O. 

3060 REH 

5000 PRINT RT I ,9, ' '!•«", AT I +3 , 9 

;"«■"• 1NK 2 ' flT '+i-s.".i"; I NK 

^ M Tkik ■! ciac-EP Sl"Jj" 

,RT 1,Y, " BIEN 
BEEP ' 



7819 LET ,«' 

UR ENTER 

7520 LET »i«l: GO TO 7030 

7535 DRTR "Htney T*PtfO " 



.02,0 

■;l.Klt»;" ' 

Jit!,/ 1+3 

ftE 



w Rvtrag< 



uic L«_ 



"Rrno 
Car ton" ,"Rndrt 
B«ntrue" ,"G*tt 
... Brta","Joit Ba 1 
Harci Duponf /'Miliar M 



RETURN 



7536 CLS : PRINT INVERSE 1, " 

CHAMPIONSHIP BOXING "1 Z 

NUERSE 0;" B CgrlL CHRSTRI 
NQ K" 

7S3S PRINT : FOR r»l TO 10: RERO 
at: PRINT *'■' 



• /■"! INK 6;"PRPER j, 
6010 PRINT FLRSM l.PT 1,7, 



>10i 



NEXT 



JOUE. 
RUSE 30 

6030 GO TO 6600 
650O PRINT AT Y.X-1, 
, AT Y*2,X-1, "lH T " 



INK 2, '■■•J'■ 

iNK 6, PAPElS 

, , PRPER 6; INK 2 

PRINT A+ 1,7, FLASH lj_"PRS 



INK 1 



7538 PRINT INK 3; AT 16,S, =Chon 
us« voira >dv«rt«irt •" 
7540 INPUT x; IF x<l OR X > 10 THE 
N GO TO 7540 

7545 LET si=i.ll-u,l! 

7546 LET *3«10*X*INT IRN0»8> : LE 
T 11-16-XtINT CRNDdlO) 

7550 RESTORE 7538: FOR f«l TO X: 
RERO tf: NEXT r LET b|»| 1 TO 



DE CHRNCE 
6600 PAUSE 
6630 CLS : 
N GO TO 6700 
6630 PRINT ■' 



IF 



=52 OR 53>S1 THE 

jO'.'t ■ -ous av< 
"; round ; " rou 

"Li -isuua <i 



66S0 PRINT INK S 
un advenairt p 

668« GO TO 67B« 
670O PRINT "P«i ■ 



6740 PRINT 

.-. ■■ :- u -<.: <•'.:■ 
S7S0 PRINT 



VOUS, Ct ',1 

2' ESij'j*; 



7863 LET q«(S) m" 
coupi porta. 

7864 LET q»(3) m" R 

oira advtrsaira" 

7865 LET <t»t4) ■" 
das points. 

7866 LET q»(S) ■" S 
qua est bonnt , " 

7867 LET q§i6) m" 
possi bta . 

7B68 LET S.aC7> -• 

ANCE- 

7569 LET au>0 

7570 FOR n«0 TO 6 

7571 FOR x«0 TO 30 
757S PRINT RT n#3,X 
7573 BEEP - 



la Kit dt V 

rappor tant 
votrt lacti 



-BONNE CM 



.91*1;" "<RT '1+2, 91," ,RT r,j 
,"•»•■, PRPER 7;RT l*\ ,q*X; ".." , P 
RPER6,AT f+a,9."«*": LET tlmf- 
LET 91=0 

854a IF ATTR ta,7)m50 TMEN IF RT 
TR (19,34) m48 THEN GO SUB 9850: 
FOR r--l TO 3: PRINT RT yltf.Xli 
" ": NEXT t: PRINT RT 31,0; " 

"I GO 
TO 63 
6545 BEEP .1,-28 NEXT i 

9000 REM 

9001 REM ACCEPT & BEETHOUEEN 

9003 REM INTERPRETS PAR Cyril. 
3003 REH icitra a Euse 

9004 REM 

9005 RESTORE 9017 

9009 LET d-0.15 

9010 FOR r»l TO 53 

9012 IF i=52 THEN LET d-.6 

9017 RERO S 

9030 BEEP d ,S 

9025 NEXT r 

9030 DRTR 16,15,16,15,16 

9032 DRTR 11,14,13,9,-8,-3,0,4,9 

,11,-8,-4 

9034 DRTR 4,8,11,0,-6.-3,4 

9036 DRTR 16,18,16,15,16 

9038 DRTR 11,14,12,9,-8.-3,0,4,9 

,11,-8,-4 

9040 DRTR 4,8,11,0,-5,-3,4 

9042 DRTR 4,12.11,9 

21*50 RETURN 

9500 PSFFR 6: BORDCR 5: INK B: C 
LS 

9501 REM 

9503 REM RFFICHRGE DU RING 
9503 REM 

960S INK 4: FOR dJ TO 7 STEP 3 
PLOT 65-f,15-f: DRRU 0,14B+2»f: 
ORRU 145+3*r,0 DRRU 0,-S*r-145 
DRRU -S*r-14S,0: NEXT r 
9510 PRINT INK 3, BRIGHT 1,AT 1, 
6;"1",RT l,25;"i",RT 20,6, "■",«+ 

20,35, ■■- 
9520 INK 

9525 PRINT RT 4,0,CI,RT 4,36, bl 
9530 PRINT RT 6,0, INK S; "POINTS 
', INK 0,AT 6,S6i "POINTS". INK 3 
,RT 15,0; "ROUND", AT IB, 27 ; "TIME" 
95*0 PRINT AT 6.2;S1,AT 8,38,33 
95*5 RETURN 

9660 LET Yl-16: LET Xl-9: RESTOR 
e^BSML FOR r-1 TO 4t READ Y , X 
9660 DATA 0,1,-1,0,0,-1,1,0 
9570 FOR «-l TO 13: PRINT RT 91, 



NEXT : 



♦ 1 TO ; 



INT 



xl; "tt-iflT ui + i, xl;"l";R- 
, "I"; PRPefi 3; INK 7;flT 



RT v,l*3*xi 



NEXT n: PRUSel 0: CL 



RESTORE 7500 
FOR i"=l TO 10: HERD *• 
I"." AND r i >10) ,a 



il TO 6) 



f : 
T f 

6790 INPUT INK 7, PRPER 0;"Chois 
isi«r voire aovarsaira '";x 
5800 IF x-0 THEN STOP 
S610 CLS : RESTORE 7800: FOR r«l 
READ af. NEXT I. LET bl=a 
PRINT "OK - fl vous d« 
jou«r!";t>». PRINT INVERSE 1' IN 
K 3';; PRE55ER UNE TOUCME 

6330 PRUSE CLS 

6830 LET Sl-0: LET S3«S1: LET SK 

mlll-Xl/lS: LET KSml0+X+INT IRND 
♦61 LET K1=16-X+INT tRNO*10l : G 
TO 15 
7000 RESTORE 7500 

7003 BORDER 0: PRPER 0. INK 6: C 
LS 

7004 LET ti*0 LET au-0 

7005 DIM vl'5,31 
7008 LET gMi ." 
It at GREMLIN 
7010 LET 9113) m" 
t KNOCK-OUT 
7013 LET y«i3J ■" 



7878 LET q»(3j -" 
- EN HRUT : 7 

7879 LET q| i*j •" 
GAUCHE 

7580 LET q(16) ■" 
DROIT 



<--- 8 

: EN BRS --- 

0: POINQ 

P: POING 
BRERK : RETO 
RPPUYER S 



Jl-l,xl; 

9S80 IU BEEP .06,-45 

9585 IP «el3 THEN FOR 0-35 TO 38 
BEEP .008,0: NEXT O: FOR 0-1 T 

30: NEXT Or FOR 0-35 TO 35 5TE 
P -1: BEEP .005,0: NEXT 
9890 PRINT RT yl - 
xl, " '-;RT yl+3," 



Ui 



- "jAT vltl, 
",RT yl-l,xi 



CMRSTRING Cyr 
uous prestnttn 
Un jtu d ic t io 



nax 



UR RU DEBUT 

7863 LET q»(71 

UR ENTER 

7583 LET au«l: GO TO 7570 

7585 BORDER 5. PRPER 6: INK 

7890 RETURN 

7600 REM 

7650 REM RFFICHRGE DU TEMPS 

7665 REM ET DES ROUNDS 

7660 REM 

3500 PRINT RT 17 , 37 , "0 : 00" 

8505 BEEP .25.0 BEEP .25,0 

8810 LET roundmround+1: IF round 

m4 THEN LET roundmS: GO TO 6630 

8830 PRINT RT 31,0; "Prtt pouf It 
prochain round T'l INK 6; PAPER 
0.AT 2,7,"::",RT IV.Z*.,-'... FOR 

nl TO 30 

85SS LET ymy-lw>ai; LET xmx-tx>7 



SUR ENTL 

7030 FOR n=0 TO 4 

7025 FOR x«0 TO 30 

7027 PRINT AT n *5 , x , "B" 

7029 BEEP .05,10 

7032 PRINT INK n*l,AT n .5 , 



T *,x;"4T*"- P 
, PAPER 6. AT 



" ";RT yi+i 
1 " ; INK $, A 

at yti.x, ■•;." 

ti"l LET vX» 

LET 9=9 + 19 I 



LET xl-xi+x; N 

9610'RETURN 

9615 REH 

9617 REM CMARACTERES OHAPHlOUES 

9616 REM 

9S20 RESTORE 9533: LET F m0 : LET 

■3=255 FOR Y»USR "a" TO USR " t " + 

7: RERD X. POKE Y.X: NEXT Y 

9632 DRTR F.63 . 137, G ,G , S53 , 354 , 2 

54,F,0,G,G,G,F,F,F,28,264,284,2& 

4,254,28,F,F 

9624 DRTR 195 , 139 , F , F , F , F , 129 , 19 

5,35*,254,2B3,G,G,1S7,63,F,F,F,F 

,G,G,Q,G,F 

96S6 DRTR F ,F ,36,354,254 ,284 ,284 

,38,86,137, 137, 137, 127, 56, F,F 
9635 DATA F , 353 , 354 , G , G , 63 , 127 , 1 
37, F,F, 56, 137, 137, 137, 127,56,127 

, 127, 63, G- 0,354, 252, F 

9645 DRTR 66,129,187,165.165,94, 

66,60,60,60,24,24.60, 136. G,G, 108 

,108, 108,40,40,40,40, 108 
9650 DRTR 28,30,15,15,31,63,136, 
283 , 248 , 340 , 340 , 334 , 224 , 240 , 240 , 
248,252,126,62,31,15, 15,30,36 
9660 DATA 56,130,340,340,246,124 

,126,63,31, 15,15,7,7,15,15,31,63 

, 136, 134, S46, 340, 340, ISO, 86 

9670 RETURN 

9700 REH 

9710 REM * FIN * 

9713 REM 1 • 
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Sone de la page 89 

0B6 355 141 050 087 I 

320 241 050 066 255 I 

255 024 056 033 303 I 

222 032 043 205 172 I 

033 205 090 205 078 ', 

221 050 086 355 024 ( 

090 205 048 322 032 < 

218 033 210 090 205 ( 

020 221 135 135 135" "i 



067 25S 305 
195 226 218 
119 301 023 

068 SIS 062 
205 040 045 
001 205 217 
061 218 068 
205 227 045 
033 200 090 

221 SOS 001 
245 305 075 

069 223 205 
033 206 090 
071 206 305 
195 080 224 
332 205 051 
214 090 305 
195 S4S 223 

222 205 055 
220 090 06S 
195 078 221 
2S5 333 183 



mil 



215 056 
327 048 
062 089 

093 205 
001 220 
142 119 
254 045 
241 024 

222 195 
142 119 

223 205 
312 090 
195 054 
222 205 
209 090 
195 108 
119 205 
140 223 
048 331 



012 222 

862 142 

13 063 

1SS 092 

001 016 

215 062 

040 048 

024 197 

305 340 

032 181 

174 205 

235 218 

353 303 

173 222 

305 033 

334 033 

170 319 

205 033 

324 033 

020 219 

115 218 

101 233 



189 223 

216 2S4 

065 032 

077 032 
032 067 
069 077 
076 059 
069 013 
083 083 
069 082 
069 032 
080 032 
013 013 
08O 076 
006 032 

078 071 
032 071 
032 083 
082 066 
129 224 
12S 092 
013 062 



302 224 
123 323 
065 082 
077 069 
032 067 
069 078 
084 064 
013 032 
073 078 
067 076 
069 078 
0B0 065 
032. 070 
073 083 
032 082 
076 069 
079 077 
065 0B5 
069 013 
111 333 
229 205 
096 050 



080 334 183 

22? 324 099 
0B2 069 08* 

078 085 013 
072 065 082 
064 005 078 

079 089 086 

068 032 068 
006 079 033 

069 013 013 
067 002 069 
060 073 069 
033 083 069 
083 065 071 
069 067 084 
013 013 033 
077 069 006 
086 069 071 
013 032 073 
2S1 234 136 
008 219 305 
139 093 S53 



223 
223 
006 
013 
071 
032 
071 
069 
06? 
032 



065 
071 
083 
353 
032 
042 
107 
203 



■ 
079 



-1 " , >:. 
■■ : 

I 

. ■ 

195 



083 083 073 
064 082 065 
075 033 067 
083 033 084 

079 083 066 

083 013 013 
078 084 006 

080 069 076 
078 355 001 

084 065 080 
069 033 084 
255 001 025 
069 073 076 
032 127 033 
205 033 219 
07B 050 087 
104 090 006 
221 205 001 
203 003 134 
034 135 092 
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